VB.NET-For Each Loopの次の項目に移動する方法

のようなステートメントがありExit Forますが、ループを終了する代わりに次のアイテムに移動するだけです。

例えば：

For Each I As Item In Items

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

    ' Do something

Next

ElseIfステートメントにを追加するだけで、次のようになります。

For Each I As Item In Items

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

Next

Itemsリストの次の項目にジャンプする方法があるかどうか疑問に思っています。ほとんどの場合、なぜこのElseステートメントを使用するだけでなく、適切に質問することになると思いますが、私にとって「何かを行う」コードをラップすることは読みにくいようです。特に多くのコードがある場合。

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()/をCurrent明示的に使用する必要がありFor 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"を使用すると、プログラマーはコードがループの先頭に直接移動することを知っています。

純粋主義者にとっては、純粋な「非スパゲッティ」コードなので、このようなものが最適です。

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