Ввод информации из файла
1. Чтение данных из последовательного файла
Чтение выполняется оператором:
Input #номер_файла; <список_переменных>
Двойные кавычки при считывании игнорируются, выполняется проверка соответствия типов данных переменных и файла.
Пример 19.32.Запись в файл произвольного доступа
| Текст программы | Комментарий |
| Open "FILE" For Input As #1 Do While Not EOF(l) Input # 1 ; MyString; MyNumber Debug.Print MyString; MyNumber Loop Close #1 | Открытие файла Цикл до конца файла Чтение данных записи в переменные Печать считанных данных Конец цикла Закрытие файла |
Другим оператором чтения из последовательного файла является
Line Input #номер_файла; <переменная>
Оператор обеспечивает посимвольное считывание данных строки по файлу до обнаружения символа "возврат каретки" (Chr(13)) и присвоение этих данных указанной переменной символьного типа.
Пример 19.33.Построчное чтение из файла последовательного доступа
| Текст программы | Комментарий |
| Open "TESTFILE" For Input As #1 Do While Not EOF(l) Line Input #1, TextLine Debug.Print TextLine Loop Close #1 | Открытие файла Цикл, пока не достигнут конец файла Чтение строки в переменную Печать в окне Debug Конец цикла Закрытие файла |
2. Чтение данных из файла произвольного доступа
Данный оператор обеспечивает считывание записи файла произвольного доступа в указанную переменную:
Get Put [#номер_файла; [#записи],<переменная>
Пример 19.34.Чтение из файла произвольного доступа
