VBNet - Форум - Обработка двоичных файлов

Вопрос: Обработка двоичных файлов Добавлено: 12.02.03 19:40

Автор вопроса: AlexSid

Я хочу создать двоичный файл, с элементами моего собственного типа. Тип выглядит примерно следующим образом:

Private Type Article

Id As Long

Info As String

End Type

Создаю переменную данного типа:

Dim art as Article

Открываю файл следующим образом:

Open txtFile For Random As #1 Len = Len(art)

Записываю в txtFile заранее заполненную переменную art:

Put #1,,art

И получаю ОШИБКУ: Bad record length (Error 59)...

Возможно дело в безразмерном string'e. Но как тогда записывать и соответственно считывать такого типа файлы?

Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #1

Добавлено: 13.02.03 00:22

Ты бы хоть мануалку блин почитал... Длинна которую указываешь должна быть на 2 байта больше размера переменной, для дискриптора, который PUТ туда пишет.

Ответить

Номер ответа: 2
Автор ответа:

AlexSid

Вопросов: 4
Ответов: 27

Профиль | | #2

Добавлено: 13.02.03 18:23

То есть,

Open txtFile For Random As #1 Len = Len(art)+2

и все заработает?

Ответить

Номер ответа: 3
Автор ответа:

Alex3

ICQ: 9481061

Вопросов: 18
Ответов: 132

Профиль | | #3

Добавлено: 15.02.03 02:09

Лучше делать так:

Private Type Article

Id As Long

Info As String

End Type

Dim art1 as Article, art2 as Article

Open TestFileName For Binary As #1

Put #1, 1, art1

Put #1, Seek(1), art2

Close #1

Ответить

Номер ответа: 4 Автор ответа: AlexSid Вопросов: 4 Ответов: 27	Профиль \| \| #4	Добавлено: 16.02.03 02:41
	Здорово! То, что надо. Спасибо! Ответить

Номер ответа: 5 Автор ответа: Gravity Вопросов: 6 Ответов: 120	Профиль \| \| #5	Добавлено: 01.04.03 02:33
	И мне пригодится : Ответить

Страница: 1 |