End Select

Select Case выражение

Шаг 61 - Инструкция Select Case

Next NextChar

Dim MaxSize, NextChar, MyChar

Next RecordNumber

End Type

ID As Integer

Шаг 60 - Инструкция Seek

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

Seek [#]номерФайла, позиция

Параметры
номерФайла: Обязательный. Любой допустимый номер файла.
Позиция: Обязательный. Число в диапазоне 1 – 2,147,483,647 указывающее позицию, начиная с которой будет выполнена следующая операция чтения или записи.

Замечания
При выполнении инструкций Get и Put, содержащих конкретные номера записей, позиция указателя, установленная с помощью инструкции Seek, игнорируется.
Выполнение операции записи в файл после установки указателя с помощью инструкции Seek за конец файла приводит к увеличению размера файла. Установка указателя с помощью инструкции Seek в отрицательное или нулевое положение приведет к возникновению ошибки.

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

Type Record ' Тип, определенный пользователем.

Name As String * 20

Для файлов, открытых в режиме Random, Seek указывает следующую запись.

Dim MyRecord As Record, MaxSize, RecordNumber ' Объявляет переменные.

' Открывает файл произвольного доступа.

Open "TESTFILE" For Random As #1 Len = Len(MyRecord)

MaxSize = LOF(1) \ Len(MyRecord) ' Определяет число записей в файле.

' Последовательно читает все записи, начиная с последней.

For RecordNumber = MaxSize To 1 Step - 1

Seek #1, RecordNumber ' Указывает номер записи.

Get #1,, MyRecord ' Читает запись.

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

Для файлов, открытых в других режимах, Seek указывает номер байта, с которого будет начато выполнение следующей операции. Предположим, что файл TESTFILE содержит несколько строк текста.

Open "TESTFILE" For Input As #1 ' Открывает файл для чтения.

MaxSize = LOF(1) ' Определяет размер файла в байтах.

' Последовательно читает все записи, начиная с последней.

For NextChar = MaxSize To 1 Step -1

Seek #1, NextChar ' Указывает номер байта.

MyChar = Input(1, #1) ' Читает символ.

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

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

[Case списокВыражений-n

[инструкции-n]]...

[Case Else

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

Параметры
выражение: Обязательный. Любое числовое выражение или строковое выражение.
списокВыражений-n: Обязательный при наличии предложения Case. Список с разделителями, состоящий из одной или нескольких форм следующего вида: выражение, выражение To выражение, Is операторСравнения выражение. Ключевое слово To задает диапазон значений. При использовании ключевого слова To перед ним должно находиться меньшее значение. Ключевое слово Is с операторами сравнения (кроме Is и Like) задает диапазон значений. Если ключевое слово Is не указано, оно вставляется по умолчанию.
инструкции-n: Необязательный. Одна или несколько инструкций, выполняемых в том случае, если выражение совпадает с любым компонентом списка списокВыражений-n.
инструкции_else: Необязательный. Одна или несколько инструкций, выполняемых в том случае, если выражение не совпадает не совпадает ни с одним из предложений Case.

Замечания
Если выражение совпадает с любым выражением из спискаВыражений в предложении Case, выполняются все инструкции, следующие за данным предложением Case до следующего предложения Case, или, для последнего предложения, до инструкции End Select. Затем управление передается инструкции, следующей за End Select. Если выражение совпадает с выражениями из списка в нескольких предложениях Case, выполняется только первый подходящий набор инструкций.
Предложение Case Else задает список инструкции_else, которые будут выполнены, если не обнаружено ни одно совпадение выражения и компонента списокВыражений ни в одном из остальных предложений Case. Хотя данное предложение не является обязательным, рекомендуется помещать предложение Case Else в блок Select Case, чтобы предусмотреть неожиданные значения выражения. Если ни в одном предложении Case списокВыражений не содержит компонента, отвечающего аргументу выражение, и отсутствует инструкция Case Else, выполнение продолжается с инструкции, следующей за инструкцией End Select.
В каждом предложении Case допускается использование нескольких выражений или диапазонов. Например допустима следующая строка:

Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber

Следует отличать оператор сравнения Is от ключевого слова Is, используемого в инструкции Select Case.
Имеется также возможность задать диапазоны или несколько выражений для строковых значений. В следующем примере предложение Case выполняется для строк, которые точно совпадают со строкой "все", для строк, лежащих в алфавитном порядке между "орехи" и "яблоки", и для строк со значением, равных текущему значению переменной TestItem:

Case "все", "орехи" To "яблоки", TestItem

Допускаются вложенные инструкции Select Case. Каждой вложенной инструкции Select Case должна соответствовать инструкция End Select.

Пример
В данном примере инструкция Select Case используется для анализа значения переменной. Второе предложение Case содержит значение анализируемой переменной и следовательно выполняется только инструкция, связанная с этим предложением.

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