Vb.net için yuvalanmış kırma / çıkış

Vb.net'te iç içe geçmiş for veya döngüden nasıl çıkabilirim?

Çıkış için kullanmayı denedim, ancak yalnızca döngü için yalnızca bir tanesi atladı veya kırıldı.

Aşağıdakiler için nasıl yapabilirim:

for each item in itemList
     for each item1 in itemList1
          if item1.text = "bla bla bla" then
                exit for
          end if
     end for
end for

Maalesef herhangi bir exit two levels of foraçıklama yok , ancak istediğinizi yapmak için birkaç geçici çözüm var:

• Goto . Genel olarak, kullanmak kötü bir uygulamagoto olarak kabul edilir (ve haklı olarak öyle), ancak gotoyalnızca yapılandırılmış kontrol ifadelerinden ileriye doğru bir atlama için kullanılması, özellikle alternatif daha karmaşık bir koda sahip olmaksa, genellikle uygun kabul edilir.

  For Each item In itemList
      For Each item1 In itemList1
          If item1.Text = "bla bla bla" Then
              Goto end_of_for
          End If
      Next
  Next
  
  end_of_for:

• Kukla dış blok

  Do
      For Each item In itemList
          For Each item1 In itemList1
              If item1.Text = "bla bla bla" Then
                  Exit Do
              End If
          Next
      Next
  Loop While False

  veya

  Try
      For Each item In itemlist
          For Each item1 In itemlist1
              If item1 = "bla bla bla" Then
                  Exit Try
              End If
          Next
      Next
  Finally
  End Try

• Ayrı işlev : Döngüleri, ile çıkılabilen ayrı bir işlevin içine koyun return. Bu, döngü içinde kaç yerel değişken kullandığınıza bağlı olarak birçok parametreyi iletmenizi gerektirebilir. Bir alternatif, bloğu çok satırlı bir lambda'ya koymak olabilir, çünkü bu, yerel değişkenler üzerinde bir kapanma yaratacaktır.

• Boolean değişkeni : Bu, kaç tane iç içe döngü katmanına sahip olduğunuza bağlı olarak kodunuzu biraz daha az okunabilir hale getirebilir:

  Dim done = False
  
  For Each item In itemList
      For Each item1 In itemList1
          If item1.Text = "bla bla bla" Then
              done = True
              Exit For
          End If
      Next
      If done Then Exit For
  Next

Döngüleri bir alt programa koyun ve return

Dış döngüyü bir while döngüsü ve if deyiminde "While Exit While" yapın.

Birkaç kez "çıkış" yazmayı denedim ve işe yaradığını ve VB'nin bana bağırmadığını fark ettim. Sanırım bu bir seçenek ama kötü görünüyordu.

En iyi seçeneğin Tobias'ın paylaştığına benzer olduğunu düşünüyorum. Kodunuzu bir işleve koyun ve döngülerinizden çıkmak istediğinizde geri dönmesini sağlayın. Daha temiz görünüyor.

For Each item In itemlist
    For Each item1 In itemlist1
        If item1 = item Then
            Return item1
        End If
    Next
Next

For i As Integer = 0 To 100
    bool = False
    For j As Integer = 0 To 100
        If check condition Then
            'if condition match
            bool = True
            Exit For 'Continue For
        End If
    Next
    If bool = True Then Continue For
Next

Bir for-to döngüsünden çıkmak istersem, endeksi sınırın ötesine ayarlarım:

    For i = 1 To max
        some code
        if this(i) = 25 Then i = max + 1
        some more code...
    Next`

Baba.