2.7 Циклы

Циклы в VBScript, For Next, For Each Next, Do While Loop, Do Until Loop, While Wend

Циклы используются в ситуациях, когда нам нужно выполнить какое-либо действие несколько раз. Первая ситуация - мы знаем, сколько раз нужно выполнить какое-либо действие, в этом случае используется конструкция For...Next:

For iCounter = 1 to 10

            WScript.Echo “Loop Number” & iCounter

Next

Чтобы указать, насколько должно прирастать значение счетчика, используется ключевое слово Step:

For iCounter = 1 to 10 Step 2

            WScript.Echo “Loop Number” & iCounter

Next

Можно и уменьшать исходное значение счетчика:

For iCounter = 10 to 1 Step -2

            WScript.Echo “Loop Number” & iCounter

Next

Для безусловного выхода из конструкции For...Next используется команда Exit For:

VStop = InputBox(“Enter the value to stop the loop at”)

VInput = CInt(VStop)

For iCounter = 1 to 10

            WScript.Echo “Loop Number” & iCounter

            If iCounter =VInput Then Exit For

Next

Для того, чтобы выполнить какое-либо действие с каждым элементом массива, используется команда For Each ... Next:

For Each File in objFiles

            WScript.Echo File.Name

Next

Вторая ситуация - когда мы не знаем точно, сколько раз должна быть выполнена та или другая команда - это зависит от какого-либо условия. Используются конструкции Do While...Loop и Do Until...Loop:

Do While MyVar < 10

MyVar = MyVar + 1

WScript.Echo “MyVar = “ & MyVar

Loop

Второй вариант - Do Until, обратная возможность:

Do Until  MyVar >= 10

MyVar = MyVar + 1

WScript.Echo “MyVar = “ & MyVar

Loop

Можно переписать цикл так, чтобы условие проверялось после завершения цикла:

Do

MyVar = MyVar + 1

WScript.Echo “MyVar = “ & MyVar

Loop While MyVar < 10

В этом случае цикл будет выполнен по крайней мере один раз.

Немедленный выход из цикла производится по команде Exit Do.

Есть еще конструкция While ... Wend - из первых версий VBasic, оставлена только для обратной совместимости:

While My Var < 10

MyVar = MyVar + 1

WScript.Echo “MyVar = “ & MyVar

Wend

Получить учебные материалы по этому курсу