VBSの基本 - ループ (for, do, while)

For counter = start To end [step step] 'counter is used as the numeric variable for the loop counter, start: the initial value of counter, end: the final value of counter, step: the step length of counter
  [statements]
  [Exit For] 'Exit the loop
  [statements] [Exit For] 'Exit loop
Next 

Dim Count:Count = 0 'Define a variable and assign it a value of 0
For i = 1 To 10 'Loop 10 times, the For statement specifies the count variable and its start and end values
  Count = Count + 1
Next 'The Next statement increments the variable i in steps of 1
MsgBox Count 'Output 10 '

Exit loop: The Exit For statement is used to exit the For... . Next statement.

Dim Count:Count = 0 'Define a variable and assign it the value 0
For i = 1 To 10 step 2 'Loop 10 times with a step size of 2. By using the Step keyword, we can specify the incremental or decremental step value of the count variable
  Count = Count + 1
  If Count = 3 Then 'When the value of the variable Count is 3, exit the current loop
    Exit For 'Exit the loop
  End If
Next
MsgBox Count 'Output 3

For counter = start To end [step step]
  [Statements]
  [Exit For]
  [statements]
Next

Dim Count:Count = 0 'Define a variable and assign it a value of 0
For i = 1 To 10 'Loop 10 times
  Count = Count + 1
Next
MsgBox Count 'Output 10

Dim Count:Count = 0 'Define a variable and assign a value of 0
For i = 1 To 10 Step 2 'Set the counter step to 2, loop 5 times
  Count = Count + 1
Next
MsgBox Count 'Output 5

Dim Count:Count = 0 'Define a variable and assign it a value of 0
For i = 1 To 10 'Loop 10 times
  Count = Count + 1
  If Count = 5 Then 'When the value of the variable Count is 5, exit the current loop
    Exit For
  End If
Next
MsgBox Count 'Output 5

Repeat the statement until the condition becomes True

Dim Count:Count = 5 'Define a variable
Do Until Count = 0 'until the Count variable is 0, otherwise keep looping
  MsgBox Count
  Count = Count -1
Loop
MsgBox "End of loop"

Dim Count:Count = 5 'Define a variable
Do
  MsgBox Count
  Count = Count -1
Loop Until Count = 0 'until the Count variable is 0, otherwise keep looping
MsgBox "Loop Ended"

Repeat a block of statements before the condition becomes True

Dim Count:Count = 5 'Define a variable
Do While Count <> 0 'Stop the loop when the Count variable is 0
  MsgBox Count
  Count = Count -1
Loop
MsgBox "End of loop"

Dim Count:Count = 5 'Define a variable
Do
  MsgBox Count
  Count = Count -1
Loop While Count <> 0 'Stop the loop when the Count variable is 0
MsgBox "End of loop"

The Exit Do statement is used to exit the Do.... Loop loop

Dim Count:Count = 5 'Define a variable
Do While Count <> 0 'Stops the loop when the Count variable is 0
  MsgBox Count
  Count = Count -1
  If Count = 2 Then 'Determine if the value of the Count variable is 2, if so, exit the loop
    Exit Do
  End If
Loop
MsgBox "Loop ended"

Dim Count:Count = 5 'Define a variable
While Count <> 0 'When the value of the Count variable is not equal to 0, it keeps looping
  MsgBox Count
  Count = Count -1 
Wend
MsgBox "End of loop"

While...Wend without Exit statement, loop from beginning to end, to exit in the middle, use Do...Loop statement

Dim Dics 'Define a variable
Set Dics = CreateObject("Scripting.Dictionary") 'Define a Dictionary object
Dics.Add "0", "Athens" 'Assign a value to the Dictionary object
Dics.Add "1", "Belgrade"
Dics.Add "2", "Cairo"
For Each Dic in Dics
  MsgBox Dics.Item(Dic) 'Loop through and output Dictionary key values
Next