Шаг 56 - Инструкция Resume

Next FileNumber

Dim FileNumber

Reset

Шаг 55 - Инструкция Reset

Dim MyStr1, MyStr2

Шаг 54 - Инструкция Rem

Next I

Next I

Следующая инструкция изменяет размер массива и обнуляет его элементы.

Redim MyArray(10) ' Увеличивает размер массива до 10 элементов.

For I = 1 To 10 ' Выполняет цикл 10 раз.

MyArray(I) = I ' Инициализирует массив.

Следующая инструкция изменяет размер массива, но сохраняет существующие элементы.

Redim Preserve MyArray(15) ' Увеличивает размер массива до 15 элементов.

Используется для добавления в программу дополнительных пояснений.

Rem примечание

Параметры
примечаниеm: Необязательный аргумент примечание содержит текст любого комментария, который добавляется в программу. После ключевого слова Rem перед текстом примечание нужно вставить пробел.

Замечания
При использовании номеров строк или меток строк имеется возможность выполнить с помощью инструкции GoTo или GoSub переход на строку, содержащую инструкцию Rem. Выполнение программы продолжится с первой выполняемой инструкции, следующей за инструкцией Rem. Если за ключевым словом Rem на строке имеются другие инструкции, инструкции должны разделяться двоеточием (:).
Как показано в примере синтаксиса, вместо ключевого слова Rem возможно использование апострофа ('). При использовании апострофа двоеточие не требуется.

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

Rem Это первая форма синтаксиса.

Ниже показана вторая форма синтаксиса.

MyStr1 = "Привет": Rem Пояснение отделяется двоеточием.

MyStr2 = "До свидания" ' Можно и без двоеточия.

Закрывает все файлы, открытые с помощью инструкции Open.

Замечания
Инструкция Reset закрывает все активные файлы, открытые с помощью инструкции Open, и записывает содержимое всех буферов файлов на диск.

Пример
В данном примере инструкция Reset используется для закрытия всех открытых файлов и записи содержимого всех буферов файлов на диск. Обратите внимание, что переменная FileNumber типа Variant используется одновременно как строка и число.

For FileNumber = 1 To 5 ' Выполняет цикл 5 раз.

' Открывает файл для записи. FileNumber включается в имя файла как

' строка и одновременно является числовым счетчиком цикла.

Open "TEST" & FileNumber For Output As #FileNumber

Write #FileNumber, "Всем Привет" ' Записывает данные в файл.

Reset ' Закрывает файлы и записывает содержимое

' буферов на диск.

Продолжает выполнение программы после завершения подпрограммы обработки ошибок.

· Resume - Если ошибка возникла в процедуре, в которой находится обработчик ошибок, то выполнение программы продолжается с инструкции, следующей за той, которая привела к ошибке. Если ошибка возникла в вызванной процедуре, выполнение продолжается с инструкции в процедуре, содержащей обработчик ошибок, из которой был сделан последний вызов.

· Resume Next - Если ошибка возникла в процедуре, в которой находится обработчик ошибок, то выполнение программы продолжается с инструкции, следующей за той, которая привела к ошибке. Если ошибка возникла в вызванной процедуре, выполнение продолжается с инструкции, непосредственно следующей за той инструкцией в процедуре, содержащей обработчик ошибок (или инструкцию On Error Resume Next), из которой был сделан последний вызов.

· Resume строка - Выполнение программы продолжается со строки, указанной в обязательном аргументе строка. Аргумент строка должен определять метку строки или номер строки внутри процедуры, содержащей данный обработчик ошибок.

Замечания
Если инструкция Resume используется в любой другой программе, помимо обработчика ошибок, то возникает ошибка.

Пример
В данном примере инструкция Resume используется для прекращения обработки ошибок в процедуре и возобновлению выполнения инструкции, которая привела к ошибке. Для иллюстрации создается ошибка с кодом 55.

Sub ResumeStatementDemo()

On Error GoTo ErrorHandler ' Включаем обработчик ошибок.

Open "TESTFILE" For Output As #1 ' Открываем файл.

Kill "TESTFILE" ' Попытка удалить открытый файл.

Exit Sub ' Выходим из процедуры, чтобы

' не попасть в обработчик.

ErrorHandler: ' Подпрограмма обработки ошибок.

Select Case Err.Number ' Определяем код ошибки.

Case 55 ' "Ошибка "Файл уже открыт".

Close #1 ' Закрываем открытый файл.

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