これは内部のループから壊れてはいけませんか？

Question

私は内側のループから脱出する必要があり、出口ループはそうする最良の方法ではないことを知らされています。だから私はそうするための別の方法を考えた、私はifステートメント内の値を取得したいが、それは正しく動作するように見えません。

While Bavailable = True 

      For Each position In MyPosList 

       If creditPoints = "20" And semester = "1" And year = "Year 1" Then 
        Blongthin = False 
        BlongFat = False 
        If position.strLabel = "a1" And available(0) = "True" Then 

         pos = position.strX & " " & position.strY 
         count += 1 
         available(0) = blnavailable 
         Bavailable = False 
         MsgBox(Bavailable) 

        ElseIf position.strLabel = "b1" And available(1) <> "False" Then 
         pos = position.strX & " " & position.strY 
         'position.blnAvail = False 
         count += 1 
         available(1) = blnavailable 
         Bavailable = False 

        ElseIf position.strLabel = "c1" And available(2) <> "False" Then 
         pos = position.strX & " " & position.strY 
         position.blnAvail = False 
         count += 1 
         available(2) = blnavailable 
         Bavailable = False 
        End If 

私は条件が真を返しているのならば、これらのいずれかのインスタンスに値POSを取得しようとループから抜け出すためにBavailableを使用していることがわかり？どんな助け？

Answer 1

すべての項目をループしたくないときにForループを使用するのは嫌です。このような状況では、私はWhileを使うほうが好きです。どのようなものについて：

Dim index As Integer 
index = 0 

While Not Found And index < MyPosList.Count 
    ' Do whatever and update Found when required 
    index = index + 1 
While End 

Answer 2

試してみてください。

While Bavailable 
     For Each position In MyPosList 
      If Bavailable Then 'Add loop controls to inner loop 
       If creditPoints = "20" And semester = "1" And Year() = "Year 1" Then 
        Blongthin = False 
        BlongFat = False 
        If position.strLabel = "a1" And available(0) = "True" Then 
         pos = position.strX & " " & position.strY 
         count += 1 
         available(0) = blnavailable 
         Bavailable = False 
         MsgBox(Bavailable) 

        ElseIf position.strLabel = "b1" And available(1) <> "False" Then 
         pos = position.strX & " " & position.strY 
         'position.blnAvail = False 
         count += 1 
         available(1) = blnavailable 
         Bavailable = False 

        ElseIf position.strLabel = "c1" And available(2) <> "False" Then 
         pos = position.strX & " " & position.strY 
         position.blnAvail = False 
         count += 1 
         available(2) = blnavailable 
         Bavailable = False 
        End If 
       End If 
      End If 
     Next position 
    End While 

私は正確にExit ForとExit Whileについて間違っているものに非常に興味がありますが...

Answer 3

Exit ForまたはExit While場合は、あなたのコードをより作ります読める、それらを使用する！ 目的が不必要な複雑さを追加するだけの変数を追加する意味がありません。

ほとんどの内部ロジックを別々の機能に移行することができます。

Answer 4

私は前提に同意しません。その外側whileループを使用している理由がExit Forを使用しないようにするには、Whileを削除する必要があります。 Forの中のあなたの条件が本当に本当に長く、あなたがスポーツよりも飛び跳ねるのを避けたいなら、これをやってください：

For Each position In MyPosList 

    Dim breakEarly As Boolean = False 

    If someCondition Then 

     'logic, logic, logic 
     'logic, logic, logic 
     'logic, logic, logic 
     breakEarly = True 

    ElseIf someOtherCondition Then 

     'logic, logic, logic 
     'logic, logic, logic 
     'logic, logic, logic 
     breakEarly = True 

    ElseIf etc, 
    ElseIf etc, 
    ElseIf etc, 
    End If 

    If breakEarly Then 

     'do any common pre-exit code here 

     'now bail 
     Exit For 

    End If 

Next