Чтение бинарных файлов

[Svetlana P.]

Помогите, пожалуйста. Мне нужно из бинарного файла считать в переменные. Я использую get, но не знаю как мне задать кол-во byte, которые надо записать в эту переменную. Длина поля заранее известна. Т.е., в перем. Var1 надо записать 1 byte, в Var2 - 4 bytes, Var3 - 2 bytes
Буду благодарна за любую помощь.

[alibek]

У тебя что-то вроде БД (т.е. несколько записей), или просто надо загрузить параметры в переменные?
Если первое, то определяешь пользовательский тип

Код: Выделить всё

Type MyType
  Var1 As Byte
  Var2 As Long
  Var3 As Integer
End Type

Создаешь переменную

Код: Выделить всё

Dim MyVar As MyType

и открываешь файл как

Код: Выделить всё

Open ... For Random As #1 Length Len(MyVar)

Тогда достаточно использовать Get/Put #1, ..., MyVar.

А если тебе нужен именно бинарный доступ к файлу, тогда лучше всего использовать строковый буфер

Код: Выделить всё

Open ... For Binary As #1
buff$ = Space$(1)
Get #1, 1, buff$
Debug.Print buff$
buff$ = Space$(4)
Get #1, 2, buff$
Debug.Print buff$
buff$ = Space$(2)
Get #1, 6, buff$
Debug.Print buff$
Close #1

P.S. Только проверь параметры операторов, я по памяти писал, мог местами перепутать.

[Svetlana P.]

Большое спасибо. Попробую