Для открытия двоичного файла применяется оператор:
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)
ReDim mas(k)
For i = 1 To k
Get #1, i, mas(i)
Print mas(i);
Next
Close #1
End Sub