내부 루프에서 벗어날 수 없습니까?

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