Ciclaggio di VBScript

Il ciclaggio permette che eseguiate diverse volte un gruppo delle dichiarazione fino a che una circostanza non sia falsa; altri ripetono le dichiarazione fino a che una circostanza non sia allineare. Ci sono inoltre cicli che ripetono le dichiarazione in un numero di volte specifico.

Le seguenti dichiarazione di ciclaggio sono disponibili in VBScript:

Do...Loop: Cicli mentre o fino ad una circostanza � allineare.
While...Wend:: Cicli mentre una circostanza � allineare.
For...Next: Ripete la a al contrario delle dichiarazione funzionate in un numero specificato di tempo. dei periodi.
For Each...Next: Ripete un gruppo delle dichiarazione per ogni articolo in una collezione o in ogni elemento di allineamento.

VBScript: - Fare i cicli

Potete usare� dichiarazione del ciclo eseguite un blocco delle dichiarazione un numero di volte indefinito. Le dichiarazione sono ripetute uno fino a che una circostanza non diventi allineare o mentre una circostanza � allineare

Ripetere le dichiarazione mentre la circostanza ottiene soddisfatta

Mentre la parola chiave � usata per controllare un termine di ciclaggio in a� la dichiarazione del ciclo. Potete anche controllare la circostanza prima che entriate nel ciclo (secondo le indicazioni di seguente esempio di ChkFirstWhile), o potete controllarli dopo che il ciclo abbia funzionato almeno una volta (secondo le indicazioni dell'esempio di ChkLastWhile). Nella procedura di ChkFirstWhile, se il myNum � regolato a 9 anzich� 20, le dichiarazione all'interno del ciclo non funzioneranno mai. Nella procedura di ChkLastWhile, le dichiarazione all'interno del ciclo funzionano soltanto una volta perch� la circostanza � gi� falsa.

Sub ChkFirstWhile()
     Dim counter, myNum
     counter = 0
     myNum = 20
     Do While myNum > 10
         myNum = myNum - 1
         counter = counter + 1
     Loop
     MsgBox "The loop made " & counter & " repetitions."
End Sub

Sub ChkLastWhile()
     Dim counter, myNum
     counter = 0
     myNum = 9
     Do
         myNum = myNum - 1
         counter = counter + 1
     Loop While myNum > 10
     MsgBox "The loop made " & counter & " repetitions."
End Sub

Ripetere una dichiarazione fino a che la circostanza non diventi allineare

Potete usare fino alla parola chiave in due sensi controllare un termine in a� dichiarazione del ciclo. Potete controllare la circostanza prima che entriate nel ciclo (secondo le indicazioni di seguente esempio di ChkFirstUntil), o potete controllarli dopo che il ciclo abbia funzionato almeno una volta (secondo le indicazioni dell'esempio di ChkLastUntil). Finch� la circostanza � falsa, il ciclaggio accade.

Sub ChkFirstUntil()
     Dim counter, myNum
     counter = 0
     myNum = 20
     Do Until myNum = 10
         myNum = myNum - 1
         counter = counter + 1
     Loop
     MsgBox "The loop made " & counter & " repetitions."
End Sub

Sub ChkLastUntil()
     Dim counter, myNum
     counter = 0
     myNum = 1
     Do
         myNum = myNum + 1
         counter = counter + 1
     Loop Until myNum = 10
     MsgBox "The loop made " & counter & " repetitions."
End Sub

Potete rimuovere la a� ciclo usando l'uscita per fare la dichiarazione. Poich� se desiderate rimuovere soltanto in determinate situazioni, tale da evitare un ciclo infinito, dovreste usare l'uscita fare la dichiarazione nel vero blocchetto di dichiarazione dell'se� allora� altrimenti dichiarazione. Se la circostanza � falsa, il ciclo funziona come di consueto.

VBScript: Mentre-wend ciclo

Mentre-Wend il ciclo � un ciclo che continua a collegare mentre qualcosa � allineare. Everytime collega il blocco in circuito del codice che � parte interna il ciclo di istante ed ottiene eseguita.

VBScript: For...Next il ciclo

Quando conoscete quante ripetizioni desiderate, potete usare dopo la a per� la dichiarazione per eseguire un blocco del codice.
Potete aumentare o fare diminuire il valore di contro variabile usando la parola chiave di punto. L'esempio fornito sotto la contro variabile J incremented da 2 ogni volta le ripetizioni del ciclo. Quando il ciclo � rifinito, il totale � la somma di 2, di 4, di 6, di 8 e di 10.

Nota: Dalla parola chiave dell'Exit For potete rimuovere dopo per� dalla dichiarazione ogni volta che desiderate.

Sub TwosTotal()
     Dim j, total
     For j = 2 To 10 Step 2
         total = total + j
     Next
     MsgBox "The total is " & total
End Sub

For Each...Next ciclo

A For Each...Next ciclo sar� dopo simile alla a per� il ciclo. Invece di ripetere le dichiarazione un numero di volte specificato, a For Each...Next ciclo ripeter� un gruppo delle dichiarazione per ogni elemento di un allineamento o di ogni articolo in una collezione di oggetti. Ci� � specialmente utile se non conoscete quanti elementi sono in una collezione di oggetti.