vbscript - 有没有办法退出或中断 VBScript 中的 switch 语句？

Question

例如：

Select Case (x)
    Case 1
        If ... Then
            ***Break***
        End If

        Response.Write( ... )

    Case Else
        Response.Write( ... )
End Select

Answer 1

Select Case不断自。也不是If。

句法：

选择案例测试表达式

[案例表达式列表-n

[语句-n]] 。. .

[ Case Else表达式列表-n

[其他陈述-n]]

结束选择

资源

VBScript 的 break 等价物是Exit. 它以以下形式存在：

Exit Do
Exit For
Exit Function
Exit Sub

资源

Answer 2

要跳入 VBScript，您必须进入Exit一个循环（或一个子/函数，（c）@Andrevinsky）：

Option Explicit

Dim i
For i = 1 To 3
    Do ' Jumper Do
        Select Case i
          Case 1, 2
            WScript.Echo i, "A"
            If i = 2 Then
               WScript.Echo i, "B"
               Exit Do
            End If
            WScript.Echo i, "C"
          Case Else
            WScript.Echo i, "D"
        End Select
        WScript.Echo i, "E"
        Exit Do
    Loop ' Jumper Loop
    WScript.Echo i, "F", "---------"
Next

输出：

1 A
1 C
1 E
1 F ---------
2 A
2 B
2 F ---------
3 D
3 E
3 F ---------

Answer 3

问题已经得到解答，但仅供您参考，您可以使用此构造（我将条件Apples = Pears作为您的If ... Then条件）：

Select Case True
    Case (Apples = Pears)
         ' Do nothing, so it just breaks out of the select construct
    Case (x = 1)
         Response.Write( ... )
    Case Else
         Response.Write( ... )
End Select

Answer 4

如果您将选择包围在 a 内，do loop则可以使用exit do它来退出选择。

do
    select case i
        case 1
            ...do stuff...
        case 2
            ...do stuff...
        case 3
            exit do
        case else
            ...do stuff...
    end select
    exit do
loop

请注意exit do结尾之前的，loop因为您不想实际循环。