Лекция: Файлы двоичного доступа

Для открытия двоичного файла применяется оператор:

Open ИмяФайла For Binary As # ДескрипторФайла

Как и в файл произвольного доступа в двоичный файл можно помещать записи с полями различного типа. Однако этот файл может содержать записи различной длины. Поэтому при объявлении типа данных у строковых полей длина может быть не фиксирована.

Запись данных в файл происходит при помощи оператора:

Put #ДескрипторФайла, НомерБайта, ИмяПеременной

Где:

НомерБайта - номер байта в файле, т.е. то место в файле, куда надо поместить данные.

Чтение данных из двоичного файла осуществляется оператором:

Get #ДескрипторФайла, НомерБайта, ИмяПеременной

Где:

НомерБайта - номер байта в файле, т.е. то место в файле, откуда надо прочитать данные.

Найти этот номер байта бывает очень трудно. В этом заключается недостаток двоичного доступа.

Пример:

Private Type ФамИм

Фамилия As String

Имя As String

End Type

Dim фаим As ФамИм

Dim mas() As String * 1

Private Sub Command1_Click()

Open «Faim.bin» For Binary As #1

L% = 1

For i = 1 To 2

фаим.Фамилия = InputBox(«Фамилия»)

Lf% = Len(фаим.Фамилия)

фаим.Имя = InputBox(«Имя»)

Li% = Len(фаим.Имя)

Put #1, L, фаим.Фамилия

Put #1, L + Lf, фаим.Имя

L = L + Li + Lf

Next

Close 1

End Sub

Private Sub Command2_Click()

Open " Faim.bin" For Binary As #1

k = LOF(1)