Составители:
Рубрика:
52
операторах Put и Get номер записи явно не задан, то новое действие будет
выполняться с записью, номер которой содержится в указателе. Текущее
значение указателя номера рабочей записи может быть получено оператором
Seek.
Пример 2.16. Предполагается, что создана структура (тип данных, определяемый
пользователем) следующего вида:
Type Запись_файла
Фамилия_И_О As String
Начислено_Ведомость As Currency
End Type
Тогда программа работы с файлом произвольного доступа может содержать
следующие операторы:
Dim record As Запись_файла
Dim nomber As Integer, j As Integer
Open "Зарплата1.rrr" For Random As #1
record.Фамилия_И_О = "Иванов В.Н."
record.Начислено_Ведомость = 1234
Put #1, 1, record
Get #1, 1, record 'Считывается только что записанное значение из
файла
record.Фамилия_И_О = "Трофимова Л.А."
'record.Начислено_Ведомость содержит считанное из файла число 1234
Put #1, 2, record
record.Фамилия_И_О = "Семенова Е.Г."
record.Начислено_Ведомость = 1000
Put #1, , record 'Действие с записью 3
j = Seek(1) 'Значение указателя записи равно 4
record.Фамилия_И_О = "Степанов А.Г."
record.Начислено_Ведомость = 900
Put #1, j, record
Close #1
Двоичные файлы представляют собой разновидность файлов с
произвольным доступом с элементарными записями размером в один байт, в
связи с чем указатель текущего номера рабочей записи двоичного файла имеет
смысл счетчика байтов. Программирование действий с записями двоичных
файлов проводится так же, как и в случае работы с файлами произвольного
доступа.
Страницы
- « первая
- ‹ предыдущая
- …
- 50
- 51
- 52
- 53
- 54
- …
- следующая ›
- последняя »
