VB.NET - Her Döngü İçin bir sonraki öğeye nasıl geçilir?

Döngüden Exit Forçıkmak yerine sadece bir sonraki öğeye geçmesi dışında, gibi bir ifade var mı ?

Örneğin:

For Each I As Item In Items

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

    ' Do something

Next

ElseAşağıdaki gibi okunabilmesi için If ifadesine basitçe bir ekleyebileceğini biliyorum :

For Each I As Item In Items

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

Next

ItemsListedeki bir sonraki öğeye atlamanın bir yolu olup olmadığını merak ediyorum . Eminim çoğu kişi neden sadece Elseifadeyi kullanmayacağını doğru bir şekilde soracaktır , ama bana göre "Bir Şey Yapın" kodunu sarmak daha az okunabilir görünüyor. Özellikle çok daha fazla kod olduğunda.

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

    ' Do something
Next

Bunun Continueyerine ifadeyi kullanırım:

For Each I As Item In Items

    If I = x Then
        Continue For
    End If

    ' Do something

Next

Bunun yineleyicinin kendisini hareket ettirmekten biraz farklı olduğuna dikkat edin - önceki her şey Ifyeniden yürütülecektir. Genellikle istediğiniz budur, ancak istemezseniz kullanmanız gerekecekGetEnumerator() bir döngü kullanmak yerine ve sonra MoveNext()/ Currentaçıkça kullanmanız gerekir For Each.

Ne dersin:

If Not I = x Then

  ' Do something '

End If

' Move to next item '

Aşağıdaki kodun iyi bir uygulama olmadığı konusunda net olmak istiyorum. GOTO Etiketini kullanabilirsiniz:

For Each I As Item In Items

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

    ' Do something
    Label1:
Next

Continue ForBaşarısız denediğimde bir derleyici hatası aldım. Bunu yaparken 'Devam Et'i keşfettim:

For Each I As Item In Items

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

    'Do something

Next

Not: Burada VBA kullanıyorum.

Yalnızca "Devam Et" kabul edilebilir bir standarttır (geri kalanı "spagetti koduna" yol açar).

En azından "devam et" ile programcı kodun doğrudan döngünün en üstüne gittiğini bilir.

Püristler için ise, bunun gibi bir şey en iyisidir çünkü saf "spagetti olmayan" koddur.

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

Yine de kodlama kolaylığı için, "Devam Et" sorun değil. (Yine de yorumlamak iyi bir fikir).

"Devam Et" seçeneğini kullanma

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