有没有办法在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也不是。

语法：

选择案例 testexpression与

[案例与expressionlist-N

[报表-N]。 。 。

[案例否则与expressionlist-N

[elsestatements-N]

最终选择

Source

VBScript的当量突破是Exit。而且它存在于以下几种形式：

Exit Do 
Exit For 
Exit Function 
Exit Sub 

Source

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

问题已经回答了，但只是如果你围绕do loop内选择，那么你可以使用exit do走出选择的

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

：你的信息，你可以使用此结构（我把条件Apples = Pears为您If ... Then条件）。

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 

注意loop结束前的exit do，因为你不希望实际循环。