“继续” （下一个迭代）在VBScript上

Question

我和一个同事试图找出一种在vbscript中进行“继续”循环中“继续”语句的方法。

到处都是，我们发现人们在没有令人讨厌的巢穴的情况下无法在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

一个选项是将所有代码放入sub内的循环中，然后在要“继续”时从该sub返回。

并不完美，但我认为与额外的循环相比，这会减少混乱。

Answer 2

我经常使用DO，经常使用循环，但是我已经开始使用可以退出的子或功能。对我来说似乎更干净。如果您不需要的任何变量不是全局，则需要将它们传递给潜艇。

For i=1 to N
 DoWork i
Next

Sub DoWork(i)
    [Code]
    If Condition1 Then
      Exit Sub
    End If

    [MoreCode]
    If Condition2 Then
      Exit Sub
    End If

    [MoreCode]
    If Condition2 Then
      Exit Sub
    End If

    [...]
End Sub

Answer 3

我一直在循环时使用DO。这与两种类型循环一起使用。

For iIndex = 0 to 100
  Do
    If bCondition then Exit Do
    ...
  Loop While False
Next 

恕我直言，这看起来很干净。
我刚刚在底部看到了Crush的答案。对不起，重复的答案。

Answer 4

我们可以使用单独的功能来执行继续语句工作。假设您有以下问题：

for i=1 to 10

if(condition) then   'for loop body'
contionue
End If

Next

在这里，我们将使用一个函数呼叫进行循环主体：

for i=1 to 10
Call loopbody()
next

function loopbody()

if(condition) then   'for loop body'
Exit Function
End If

End Function

循环将继续进行函数退出语句。

Answer 5

将迭代作为递归函数实施。

Function Iterate( i , N )
  If i == N Then
      Exit Function
  End If
  [Code]
  If Condition1 Then
     Call Iterate( i+1, N );
     Exit Function
  End If

  [Code]
  If Condition2 Then
     Call Iterate( i+1, N );
     Exit Function
  End If
  Call Iterate( i+1, N );
End Function

从呼叫迭代（1，n）开始

Answer 6

尝试使用 / wend and wend and while / loop语句...

i = 1
While i < N + 1
Do While true
    [Code]
    If Condition1 Then
       Exit Do
    End If

    [MoreCode]
    If Condition2 Then
       Exit Do
    End If

    [...]

    Exit Do
Loop
Wend

Answer 7

我认为，如果语句，您打算在下包含所有逻辑。基本上：

' PRINTS EVERYTHING EXCEPT 4
For i = 0 To 10
  ' you want to say
  ' If i = 4 CONTINUE but VBScript has no continue
  If i <> 4 Then ' just invert the logic
    WSH.Echo( i )
  End If
Next

这可以使代码更长一些，但是有些人 don> don' t喜欢break或继续 无论如何。

Answer 8

您的建议会起作用，但是使用DO循环可能会更可读性。

这实际上是C中的一个习语 - 而不是使用goto，而是可以有一个do {}，而（0）循环带有断路语句，则如果您想及早救出构造。

Dim i

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

正如Crush所建议的那样，如果您删除额外的缩进水平，看起来好多了。

Dim i

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

Answer 9

我决定涉及使用布尔变量的一种解决方案来跟踪循环的是否应该处理其指令或跳过下一个迭代：

Dim continue

For Each item In collection
    continue = True

    If condition1 Then continue = False End If

    If continue Then
        'Do work
    End If
Next

我发现嵌套的环解决方案在某种程度上使人感到困惑。此方法还具有自己的陷阱，因为循环遇到继续后，循环不会立即跳过下一次迭代。以后的条件可能会扭转继续的状态。它还在初始循环中具有辅助构建体，需要声明额外的var。

哦，vbscript ...叹息。

另外，如果您想使用所接受的答案，这还不错，明智的可读性，可以将其与：合并到似乎是一个的合并到一个：

Dim i

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

我发现消除额外水平的凹痕很有用。