For...Next - statement of language VBScript

Repeats a group of statements a specified number of times.

For counter=start To end [Step step]


  [Exit For]



counter - Numeric variable used as a loop counter. The variable can't be an array element or an element of a user-defined type.
start - Initial value of the counter variable.
end - Final value of the counter variable.
step - Amount the counter variable is changed each time through the loop. If not specified, step defaults to 1.
statements - One or more statements between For and Next that are executed the specified number of times.
The step argument can be either positive or negative. The value of the step argument determines loop processing as follows:
step >= 0: loop executes if counter <= end.
step < 0: loop executes if counter >= end.

Once the loop starts and all statements in the loop have executed, step is added to counter. At this point, either the statements in the loop execute again (based on the same test that caused the loop to execute initially), or the loop is exited and execution continues with the statement following the Next statement.

Tip: Changing the value of counter while inside a loop can make it more difficult to read and debug your code.
Exit For can only be used within a For Each...Next or For...Next control structure to provide an alternate way to exit. Any number of Exit For statements may be placed anywhere in the loop. Exit For is often used with the evaluation of some condition (e.g. If...Then...Else), and transfers control to the statement immediately following Next.
For similar purpose in the JavaScript language is used the command for.
A simple cycle example. It dumps text i=1 and i=2 into the Debug_info item of the INFO system.
Dim i
For i=1 To 2
  Pm.Debug "i=" & i
You can nest For...Next loops by placing one For...Next loop within another. Give each loop a unique variable name as its counter. The following construction is correct:
Dim i, j, k
For i=1 To 3
  For j=1 To 4
    For k=1 To 5
      Pm.Debug "i=" & i & ", j=" & j & ", k=" & k
© MICROSYS, spol. s r. o.Tavičská 845/21 703 00 Ostrava-Vítkovice