Высокоуровневые методы информатики и программирования. Степанов А.Г. - 72 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

72
teger
ода-вывода
eeFile()
O
быть открыт в состоянии Append.
сходных данных для начисления зар-
платы
упом позволяют обращаться к записи в файле по
ее но чивается за счет создания регулярной струк-
туры , которую легко обеспечить, например, за счет
типо вателем.
что создана структура (тип данных, определяе-
мый
может содержать
след
а
И_О = "Иванов В.Н."
числено_Ведомость = 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
Dim canal As In
'Определение номера свободного файлового канала вв
canal = Fr
pen "test1. sss " For Output As #canal
Close #canal
Если файл уже существует, то при открытии его в состоянии Output старый
файл удалится, а новый запишется на его место. Если предполагается внесение
изменений в уже существующий файл, он должен
Пример 23. Программа записи файла и
в соответствии с рис. 1
Open "Зарплата.sss" For Output As #1
'Запись в файл
Print #1, "Иванов В.Н."
Print #1, 1234
Трофимова Л.А."
Write #1, "
W
rite #1, 1234
Write #1, "Семенова Е.Г.", 1000, "Степанов А.Г.", 900
Close #1
Файлы с произвольным дост
меру. Такая возможность обеспе
записей определенного формата
в данных, определяемых пользо
Пример 24. Предполагается,
пользователем) следующего вида:
Type Запись_файла
Фамилия_И_О As String
Начислено_Ведомость As Currency
End Type
Тогда программа работы с файлом произвольного доступа
ующие операторы:
Dim record As Запись_файла
Dim nomber As Integer, j As Integer
#1
Open "Зарплата1.rrr" For Random As
роизвольного доступ
'Запись в файл п
милия_
record.Фа
record.На

Страницы