VB.NET-如何移至下一个项目“每个循环”？

是否有类似的陈述Exit For，除了没有退出循环，它只是移至下一项。

例如：

For Each I As Item In Items

    If I = x Then 
        ' Move to next item
    End If

    ' Do something

Next

我知道可以简单Else地在If语句中添加一个，因此其内容如下：

For Each I As Item In Items

    If I = x Then 
        ' Move to next item
    Else
        ' Do something
    End If

Next

只是想知道是否有一种方法可以跳到Items列表中的下一项。我敢肯定，大多数人都会正确地问为什么不仅仅使用该Else语句，而是对我来说包裹“ Do Something”代码似乎不太可读。尤其是当有更多代码时。

For Each I As Item In Items
    If I = x Then Continue For

    ' Do something
Next

我会改用以下Continue语句：

For Each I As Item In Items

    If I = x Then
        Continue For
    End If

    ' Do something

Next

请注意，这与继续运行迭代器本身略有不同-之前的任何操作都If将再次执行。通常这是您想要的，但如果不是，则必须先使用/ GetEnumerator()然后显式使用，而不是使用循环。MoveNext()CurrentFor Each

关于什么：

If Not I = x Then

  ' Do something '

End If

' Move to next item '

我想清楚的是，以下代码不是一个好习惯。您可以使用GOTO标签：

For Each I As Item In Items

    If I = x Then
       'Move to next item
        GOTO Label1
    End If

    ' Do something
    Label1:
Next

当我尝试Continue For失败时，出现编译器错误。在执行此操作时，我发现了“恢复”：

For Each I As Item In Items

    If I = x Then
       'Move to next item
       Resume Next
    End If

    'Do something

Next

注意：我在这里使用VBA。

只有“ Continue For”是可接受的标准（其余的将导致“ spaghetti code”）。

至少通过“ continue for”，程序员知道代码直接进入循环的顶部。

对于纯粹主义者来说，最好是这样，因为它是纯“非意大利面条”代码。

Dim bKeepGoing as Boolean 
For Each I As Item In Items
  bKeepGoing = True
  If I = x Then
    bKeepGoing = False
  End If
  if bKeepGoing then
    ' Do something
  endif
Next

为了便于编码，“继续”是可以的。（虽然对此发表评论是个好主意）。

使用“继续”

For Each I As Item In Items
  If I = x Then
    Continue For   'skip back directly to top of loop
  End If
  ' Do something
Next