VBS/VBAでwhileループを終了

Question

VBS/VBAでwhileを終了/中断する方法はありますか？

次のコードが意図したとおりに動作しません：

は

num = 0 
while (num < 10) 

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

    num = num+1 
wend 

Answer 1

ループ

と出口が

Exit Do 

Answer 2

VBScriptのWhileを使用しながら行うには、whileループの変更についてドンループ何早期終了をサポートします。そのためDoループを使用します

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

Answer 3

を私は、これは汚れのように古いです知っているが、それはグーグルでかなり上位にランクイン。

一方の使用を維持する（ラーフルに応答して）溶液マディ実装に伴う問題...とWENDループは=ステータス後

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

を与えられた例では、いくつかの欠点

を有します"Fail" numは実際には11になります。ループは失敗条件で終了せず、次のテストで終了します。チェックの後のすべてのコードはまだ処理されており、カウンターはあなたが期待していたものではありません。

Do Whileまたは Do Untilあなたがループの実行を停止することができますを使用し

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

：今、あなたのコードは、より多くのようなものを見た場合、それが再び問題では、ないかもしれませんが、何を、すべてのループでやっているに応じて、

ループ条件でトリッキーを使用してWhile ... Wendの構文を維持する代わりにExit Doを使用してください。私は代わりにそれを使用することをお勧めします。

Answer 4

ループは廃止された構造ですが、「Whileループ」を「Do While..loop」に置き換え、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

使用しています...ループキーワードまで

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

でこのループを実行していきます、まで条件が真

ながらになり... Wendのは、古い構文ですブレークループに機能を提供していません！ループ

Answer 6

信じられないほど古い質問しながら行うことを好むが、ここでは... OPは、彼がDo Whileおよび他のソリューションのどれも実際に動作しないことを利用したくないと述べたことを念頭にすることとまったく同じを行い何かExit Loop：

ステータスが「失敗」にすでにある場合は、この1は常に最初に何かを処理（​​およびループ変数をインクリメント）に対しこれは、一度それが必要かどうかのループを決定する前に...

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

を何も実行されることはありませんもっとかどうか

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

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

変数StatusがWhile内で変更された（そして、あなたがしばらく外iを必要としないと仮定されている場合、最終的に、それは本当に違いはありませんが、ちょうど複数のオプションを提示したかった...