小编08r*_*tsj的帖子

我正在尝试创建一系列可以获取参数的命令.拿起我正在使用Select Case的每个单独的命令这个问题是如果我使用的话,我无法感知'参数'(字符串的第二部分)Case Else.如果我不使用Case Else那么我无法处理不正确的命令并将它们发送到所需的程序.

例如:

Private Sub AllocateType(ByVal Command As String)

    Select Case Command
        Case "Eat"
            'Call Eat procedure
        Case "Use"
            'Call Use procedure
        Case "Quit"

        Case "Pause"

        Case "Go"

        Case Else
            Errors() 'Error handling procedure
    End Select

End Sub

如果命令是'Brrr​​rr',它会调用Errors().然而,如果命令是"吃食物",它仍会调用Errors()而不是将参数传递给Eat程序.

编辑,因为它现在不起作用. 我已经尝试了所建议的内容,但我仍然有完全相同的问题.它似乎兼而有之Command.StartsWith,Command.Contains因为如果我尝试进入'吃食物',它仍然不会认为它是一个案例.

例:

Select Case Command
    Case Command.Contains("Eat")
        Output("TESTING")
        If Len(Command) > 4 Then
            Command = Mid(Command, 4, (Len(Command) - 4))
            Interaction(Command)
        Else …