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。

構文：

Select Caseテスト式

[ケース式リスト-n

[ステートメント-n]] . . .

[ Case Else式リスト-n

[elsestatements-n]]

エンドセレクト

ソース

VBScript のブレークに相当するものは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