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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Svetlana P.
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 19.03.2004 (Пт) 13:10

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

Сообщение Svetlana P. » 19.03.2004 (Пт) 13:37

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

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 19.03.2004 (Пт) 14:06

У тебя что-то вроде БД (т.е. несколько записей), или просто надо загрузить параметры в переменные?
Если первое, то определяешь пользовательский тип
Код: Выделить всё
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. Только проверь параметры операторов, я по памяти писал, мог местами перепутать.
Lasciate ogni speranza, voi ch'entrate.

Svetlana P.
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 19.03.2004 (Пт) 13:10

Сообщение Svetlana P. » 22.03.2004 (Пн) 13:18

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15

    TopList  
cron