Обсудим инструкции и функции вывода информации из файла последовательного доступа, а также функцию идентификации конца файла.
Input # | Считывает.данные из открытого файла последовательного доступа и присваивает их переменным. Данные, считываемые с помощью инструкции input I, обычно записываются в файл с помощью инструкции Write #.
Синтаксис:
Input #НомерФайла, СписокПеременных
| ||
Line Input # | Считывает строку из открытого файла последовательного доступа и присваивает ее переменной типа string. Данные, считываемые с помощью инструкции Line input I, как правило, записываются в файл с помощью инструкции Print #.
Синтаксис:
Line Input #НомерФайла, ИмяПеременной
Синтаксис инструкции Line Input1 содержит следующие элементы:
| ||
Функция Input | Возвращает значение типа string, содержащее символы из файла, открытого в режиме input или Binary. Функция input считывает данные, записываемые в файл с помощью инструкции Print # или Put.
Синтаксис:
Input (Число, [#] НомерФайла)
| ||
ФУНКЦИЯ EOF | Функция возвращает значение True при достижении конца файла. Синтаксис: EOF (НомерФайла} При последовательном считывании информации из файла часто используется следующий цикл: Do While Not EOF(l) Loop или, для тех пользователей, кто предпочитает инструкцию While - Wend инструкции Do While - Loop, следующий эквивалентный цикл: While Not EOF (I) Wend | ||
Приведем пример использования инструкции input # для считывания данных из файла. В этом примере предполагается, что на диске существует файл группаЭкономистов, содержащий информацию о студентах. Файл был создан при помощи инструкции write # и состоит из двух столбцов, в первом из которых указывается фамилия, а во втором — оценка студента. Для удобства работы с информацией введен пользовательский тип Студенты. Процедура примериспользованияInput последовательно считывает фамилии и оценки из файла и выводит их в ячейки первого и второго столбца рабочего листа.
Туре Студенты
' Фамилия As String * 20
Оценка As String * 3
End Type
Sub ПримерИспользованияInput()
Dim Студент As Студенты
Open "ГруппаЭкономистов"
For Input As 12 i = 1