vbscript - VBScript 上的 "Continue"(到下一次迭代)

Question

我和一位同事试图找出一种方法，在 VBScript“For/Next”循环中执行相当于“继续”语句的操作。

我们到处寻找，发现人们无法在 VBScript 中做到这一点而不需要令人讨厌的嵌套，这对我们来说不是一个选择，因为它是一个相当大的循环。

我们提出了这个想法。它会像“继续(到下一次迭代)”一样工作吗？有没有人有更好的解决方法或改进建议？

For i=1 to N
  For workaroundloop = 1 to 1
    [Code]
    If Condition1 Then
      Exit For
    End If

    [MoreCode]
    If Condition2 Then
      Exit For
    End If

    [MoreCode]
    If Condition2 Then
      Exit For
    End If

    [...]

  Next
Next

感谢您的评论

Answer 1

您的建议可行，但使用 Do 循环可能更具可读性。

这实际上是 C 语言中的一个习惯用法 - 如果您想尽早摆脱构造，您可以使用 do { } while (0) 循环和 Break 语句，而不是使用 goto。

Dim i

For i = 0 To 10
    Do
        If i = 4 Then Exit Do
        WScript.Echo i
    Loop While False
Next

正如rush建议的那样，如果删除额外的缩进级别，看起来会好一点。

Dim i

For i = 0 To 10: Do
    If i = 4 Then Exit Do
    WScript.Echo i
Loop While False: Next