Zakończyć pętlę w VBS/VBA

Question

Czy istnieje metoda wychodzenia/zerwania while w VBS/VBA?

następujący kod nie będzie działać zgodnie z przeznaczeniem:

num = 0 
while (num < 10) 

    if (status = "Fail") then 
     exit while 
    end if 

    num = num+1 
wend 

Answer 1

co o zmianę pętli while do zrobienia pętli while

i wyjść za pomocą

Exit Do 

Answer 2

VBScript na While pętle don” t obsługuje wczesne wyjście. Użyj Do pętlę na to:

num = 0 
do while (num < 10) 
    if (status = "Fail") then exit do 
    num = num + 1 
loop 

Answer 3

wiem, że to jest stary jak brud, ale to miejsce bardzo wysoko w google.

Problem z rozwiązaniem zastosowanym Maddy (w odpowiedzi na Rahula) w celu utrzymania zastosowanie Podczas gdy ... pętli Wend ma pewne wady

W podanym przykładzie

num = 0 
While num < 10 
    If status = "Fail" Then 
    num = 10 
    End If 
    num = num + 1 
Wend 

Po stan = Liczba "Fail" będzie faktycznie równa 11. Pętla nie zakończyła się po wystąpieniu błędu, kończy się w następnym teście. Cały kod po sprawdzeniu jest nadal przetwarzany, a twój licznik nie jest tym, czego mógłbyś się spodziewać.

Teraz w zależności od tego, co wszyscy robią w pętli może nie ma znaczenia, ale potem znowu, jeśli kod wyglądało coś więcej takiego:

num = 0 
While num < 10 
    If folder = "System32" Then 
    num = 10 
    End If 
    RecursiveDeleteFunction folder 
    num = num + 1 
Wend 

Korzystanie Do While lub Do Until pozwala na zatrzymanie wykonywania pętli używając Exit Do zamiast używać sztuczek z warunkiem pętli do zachowania składni While ... Wend. Zamiast tego polecam go użyć.

Answer 4

Pętla jest przestarzałą strukturą, ale zaleca się, aby zastąpić "While loop" na "Do While..loop", i będzie można użyć klauzuli Exit.

check = 0 

Do while not rs.EOF 
    if rs("reg_code") = rcode then 
     check = 1 
     Response.Write ("Found") 
     Exit do 
    else 
     rs.MoveNext 
    end if 
Loop 

if check = 0 then 
    Response.Write "Not Found" 
end if} 

Answer 5

Zastosowanie Do ... Loop z Do kluczowych

num=0 
Do Until //certain_condition_to_break_loop 
num=num+1 
Loop 

Pętla ta będzie w dalszym ciągu wykonywać, Do warunek staje się prawdą

... Wend Chociaż jest stary składnia i nie zapewnia funkcji do przerwania pętli! Wolę zrobić, gdy pętle

Answer 6

Bardzo stare pytanie, ale mając na uwadze, że PO powiedział, że nie chce korzystać Do While i że żaden z innych rozwiązań naprawdę działa ... Tutaj jest coś, co robi dokładnie taki sam jak Exit Loop:

to nigdy nie działa nic, jeśli status jest już w „Fail” ...

While (i < 20 And Not bShouldStop) 
    If (Status = "Fail") Then 
     bShouldStop = True 
    Else 
     i = i + 1 
     ' 
     ' Do Something 
     ' 
    End If 
Wend 

niniejsza zawsze przetwarza coś pierwszy (i przyrost zmiennej pętli) przed podjęciem decyzji, czy powinien on pętla raz więcej lub nie.

While (i < 20 And Not bShouldStop) 
    i = i + 1 
    ' 
    ' Do Something 
    ' 

    If (Status = "Fail") Then 
     bShouldStop = True 
    End If 
Wend 

Ostatecznie, jeśli zmienna Status jest modyfikowany wewnątrz While (i zakładając, że nie trzeba i poza czas, to naprawdę nie ma znaczenia, ale po prostu chciałem przedstawić kilka opcji ...