For Each элемент In группа

Dim SourceFile, DestinationFile

FileCopy source, destination

Шаг 20 - Инструкция FileCopy

End Sub

Loop

Next I

End Select

Dim I, MyNum

Do ' Бесконечный цикл.

For I = 1 To 1000 ' Цикл выполняется 1000 раз.

MyNum = Int(Rnd * 1000) ' Генерирует случайное число.

Select Case MyNum ' Анализирует случайное число.

Case 7: Exit For ' Если 7, завершает цикл For...Next.

Case 29: Exit Do ' Если 29, завершает цикл Do...Loop.

Case 54: Exit Sub ' Если 54, завершает процедуру Sub.

Копирует файл.

Параметры
source: Обязательный. Строковое выражение, указывающее имя файла, подлежащего копированию. Аргумент source может содержать имя каталога или папки и диска.
Destination: Обязательный. Строковое выражение, указывающее имя результирующего файла. Аргумент destination может содержать имя каталога или папки и диска.

Замечания
При попытке скопировать открытый файл с помощью инструкции FileCopy возникает ошибка.

Пример
В данном примере инструкция FileCopy используется для копирования одного файла в другой. Предположим, что файл SRCFILE существует и содержит данные.

SourceFile = "SRCFILE" ' Файл-источник.

DestinationFile = "DESTFILE" ' Файл-адресат.

FileCopy SourceFile, DestinationFile ' Копирует файл.

Шаг 21 - Инструкция For Each...Next

Повторяет выполнение группы инструкций для каждого элемента массива или семейства.

[инструкции]

[Exit For]

[инструкции]

Next [элемент]

Параметры
элемент: Обязательный. Переменная, используемая для выполнения итераций по элементам семейства или массива. Для семейств элемент может быть только переменной типа Variant, универсальной объектной переменной или переменной, представляющей любой конкретный объект. Для массивов элемент может быть только переменной типа Variant.
Группа: Обязательный. Имя семейства объектов или массива (за исключением массивов с определяемыми пользователем типами).
Инструкции: Необязательный. Одна или несколько инструкций, которые выполняются над каждым элементом группы.

Замечания
Вход в блок For...Each выполняется только в том случае, если группа содержит хотя бы один элемент. После входа в цикл все инструкции цикла выполняются для первого элемента группы. Затем, если группа содержит другие элементы, инструкции цикла выполняются для каждого элемента. После обработки всех элементов цикл завершается, а выполнение продолжается с инструкции, следующей за инструкцией Next.
В любых местах цикла может размещаться любое число инструкций Exit For, позволяющих выйти из цикла. Инструкция Exit For часто применяется вместе с проверкой некоторого условия (например, If…Then). Она передает управление инструкции, непосредственно следующей за инструкцией Next.
Допускается организация вложенных циклов For...Each...Next (один цикл For...Each...Next располагается внутри другого). Однако каждый элемент цикла должен быть уникальным.
Если опустить элемент в инструкции Next, выполнение продолжается так же, как если бы элемент был указан. При обнаружении инструкции Next до соответствующей инструкции For возникает ошибка.
Не допускается использование инструкции For...Each...Next с массивами, определяемых пользователями типов, поскольку значение типа Variant не может содержать тип, определяемый пользователем.

Пример
В данном примере инструкция For Each...Next просматривает свойство Text каждого элемента семейства, чтобы найти строку "Привет". В данном примере MyObject - объект, который имеет свойство Text и является элементом семейства MyCollection. Оба имени используются исключительно в иллюстративных целях.

Дата добавления: 2015-06-27