Позиционирование на запись в файле

Ввод информации из файла

1. Чтение данных из последовательного файла Чтение выполняется оператором:

Input #номер_файла; <список_переменных>

Двойные кавычки при считывании игнорируются, выполняется проверка соответствия типов данных переменных и файла.

Пример 19.32. Запись в файл произвольного доступа

Текст программы	Комментарий
Open "FILE" For Input As #1 Do While Not EOF(1) Input #1; MyString; MyNumber Debug.Print MyString; MyNumber Loop Close #1	Открытие файла Цикл до конца файла Чтение данных записи в переменные Печать считанных данных Конец цикла Закрытие файла

Другим оператором чтения из последовательного файла является

Line Input #номер_файла; <переменная>

Оператор обеспечивает посимвольное считывание данных строки по файлу до обнаружения символа "возврат каретки" (Сhг(13)) и присвоение этих данных указанной переменной символьного типа.

Пример 19.33. Построчное чтение из файла последовательного доступа

Текст программы	Комментарий
Open "TESTFILE" For Input As #1 Do While Not EOF(1) Line Input #1, TestLine Debug.Print TextLine Loop Close #1	Открытие файла Цикл, пока не достигнут конец файла Чтение строки в переменную Печать в окне Debug Конец цикла Закрытие файла

2. Чтение данных из файла произвольного доступа

Данный оператор обеспечивает считывание записи файла произвольного доступа в указанную переменную:

Get Put [#номер_файла; [#записи],<переменная>

Пример 19.34. Чтение из файла произвольного доступа

Текст программы	Комментарий
Type Record	Объявление пользовательского типа данных для записи
ID As Integer Name As String * 20 End Type
Dim MyRecord As Record	Объявление переменной на основе пользовательского типа данных
Open "FILE" For Random As #1 Len=Len(MyRecord)	Открытие файла произвольного доступа с длиной, соответствующей длине объявленного типа
Psition=3 Get #1, Position, MyRecord Close #1	Задание номера (индекс) записи Формирование содержимого записи Закрытие файла

Позиция в записи (номер байта или номер записи) для очередного чтения или записи в файл устанавливается оператором:

Seek [#] номер_файла; позиция

где позиция.- число в диапазоне номеров байтов (1-2147483 647) файла.

Для файла, открываемого в режиме последовательного доступа, с помощью оператора SEEK определяется байт.

Пример 19.35. Позиционирование в файле последовательного доступа

Текст программы	Комментарий
Dim MyChar As String	Объявление переменной на основе пользовательского типа данных
Open "FILE" For Input As #1	Открытие файла произвольного доступа с длиной, соответствующей длине объявленного типа
MaxSize=LOF(1)	Вычисление количества байтов в файле
For NextChar- MaxSize To Step -1	Организация цикла для последовательного считывания записей от конца файла к его началу
Seek #1, NextChar MyChar= Input(1,#1) Next NextChar
Close #1	Закрытие файла

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

Пример 19.36. Позиционирование в файле произвольного доступа

Текст программы	Комментарий
Type Record	Объявление пользовательского типа данных для записи
ID As Integer Name As String * 20 End Type
Dim MyRecord As Record	Объявление переменной на основе пользовательского типа данных
Open "FILE" For Random As #1 Len=Len(MyRecord)	Открытие файла произвольного доступа с длиной, соответствующей длине объявленного типа
MaxSize=LOF(1)\ Len(MyRecord) Get For RecordNumber=MaxSize To 1 Step-1	Вычисление количества записей в файле Организация цикла для последовательного считывания записей от конца файла к его началу
Seek #1, RecordNumber Get #1,, MyRecord Next RecordNumber
Close #1	Закрытие файла

Дата добавления: 2014-01-11