|
Тема |
Как се чете binary файл? |
|
Автор |
Werewolf (Demon Team) |
|
Публикувано | 08.09.04 18:01 |
|
|
Здрасвейте,
трябва да прочета един файл който не е нормален ASCII текстов, а е BINARY. Проблемът е, че ако го чета като текстов файл с това по-долу не става:
Dim FileData As String
FileOpen(1, "D:\" & FileName, OpenMode.Input, OpenAccess.Default)
Do Until EOF(1)
FileData = FileData & LineInput(1)
Loop
FileClose(1)
Логично, че няма да стане, защото видях, че по този начин операторът LineInput() се ориентира по символите 0Ah и 0Dh, за край на реда и съответно ги реже. От тук получавам един прекрасен бинарен файл ако искам, но с липсващите въпросни байтове на всичките места на които се срещат. Моля ако някой има пример за четене на бинарен файл, да помогне
Благодаря.
[image]http://www.zcs.k12.in.us/ZCHS/images/wrestling.gif[image]
|
| |
|
|
|