For...In...Next
Перечисляет элементы в коллекции объекта или массива
For <variable> In <expression>
<statements>
Next
Параметры
variable | Переменная, которой будет присваиваться значение элемента |
expression |
Должно быть выражением, возвращающим объект или массив с как минимум одним элементом. |
statements |
Многострочный блок операторов, который выполняется, пока происходит перечисление элементов. |
Примечания
Переменная создаётся автоматически в локальной области видимости, даже если включена опция MustDeclareVars.См. также
With...EndWithПример
; Массив
Dim $aArray[4]
$aArray[0] = "a"
$aArray[1] = 0
$aArray[2] = 1.3434
$aArray[3] = "test"
$string = ""
For $element In $aArray
$string = $string & $element & @CRLF
Next
MsgBox(4096, "For..In тест, массив", "Результат: " & @CRLF & $string)
; Объект
$oShell = ObjCreate("shell.application")
$oShellWindows = $oShell.windows
If IsObj($oShellWindows) Then
$string = ""
For $Window In $oShellWindows
$string = $string & $Window.LocationName & @CRLF
Next
MsgBox(4096, "", "Открыты следующие окна:" & @CRLF & $string)
Else
MsgBox(4096, "", "Не открыто никаких окон :(.")
EndIf