wend - Salga de un ciclo while en VBS/VBA

while visual basic ejemplos

Question

¿Hay algún método para salir / interrumpir un while en VBS / VBA?

El siguiente código no funcionará como se esperaba:

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

Answer 1

¿Qué hay de cambiar el bucle while por un bucle while?

y salir usando

Exit Do

Answer 2

Los bucles While de VBScript no son compatibles con la salida anticipada. Use el bucle Do para eso:

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

Answer 3

Sé que esto es viejo como suciedad, pero se clasificó bastante alto en Google.

El problema con la solución implementada por maddy (en respuesta a rahul) para mantener el uso de un ciclo While ... Wend tiene algunos inconvenientes

En el ejemplo dado

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

Después del estado = "Fail", el número realmente será igual a 11. El ciclo no finalizó en la condición de falla, sino que finaliza en la siguiente prueba. Todo el código después de la verificación aún se procesa y su contador no es lo que podría haber esperado que fuera.

Ahora, dependiendo de lo que estén haciendo todos ustedes en su ciclo, puede que no importe, pero de nuevo si su código se viera algo más parecido a:

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

El uso de Do While o Do Until permite detener la ejecución del ciclo utilizando Exit Do lugar de usar trucos con su condición de bucle para mantener la sintaxis While ... Wend . Yo recomendaría usar eso en su lugar.

Answer 4

Si bien Loop es una estructura obsoleta, le recomendaría que reemplace "While loop" por "Do While..loop", y podrá usar la cláusula 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

Una pregunta increíblemente vieja, pero teniendo en cuenta que el OP dijo que no quiere usar Do While y que ninguna de las otras soluciones realmente funciona ... Aquí hay algo que hace exactamente lo mismo que un Exit Loop :

Esto nunca ejecuta nada si el estado ya está en "Fail" ...

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

Mientras que este siempre procesa algo primero (e incrementa la variable de bucle) antes de decidir si debe repetirse o no.

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

En definitiva, si la variable Status se está modificando dentro del While (y asumiendo que no es necesario que esté fuera del tiempo, realmente no hace ninguna diferencia, pero solo quería presentar múltiples opciones ...

Answer 6

Use Do ... Loop con la palabra clave Until

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

Este ciclo continuará ejecutándose, Hasta que la condición se vuelva verdadera

Mientras ... Wend es la sintaxis antigua y no proporciona funciones para romper el ciclo. Prefiere hacer mientras bucles