Файлы двоичного доступа

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

Open ИмяФайла For Binary As # ДескрипторФайла Как и в файл произвольного доступа, в двоичный файл можно помещать записи с полями различного типа. Однако этот файл может содержать записи различной длины, поэтому при объявлении типа данных у строковых полей длина может быть не фиксирована.

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

Put # ДескрипторФайла, НомерБайта, ИмяПеременной где НомерБайта — номер байта в файле, т. е. то место в файле, куда нужно поместить данные.

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

Get # ДескрипторФайла, НомерБайта, ИмяПеременной где НомерБайта — номер байта в файле, т. е. то место в файле, откуда надо прочитать данные.

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

Пример

Private Туре ФамИм Фамилия As String Имя As String End Type.

Dim фаим As ФамИм.

Dim mas () As String * 1.

Private Sub Commandl_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).

ReDim mas (k).

For i = 1 To k Get #1, i, mas (i).

Print mas (i) ;

Next.

Close #1 End Sub.