ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пример кода побайтного чтения бинарного файла в циклк
9 сообщений из 9, страница 1 из 1
Пример кода побайтного чтения бинарного файла в циклк
    #35576219
nickolays
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nickolays
Участник
нужно на Visual Basic 6 под вин32
прочитать побайтно бинарный файл
...
Рейтинг: 0 / 0
04.10.2008, 13:37
| Ответить | Цитировать | Написать  
Пример кода побайтного чтения бинарного файла в циклк
    #35577852
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
nickolaysнужно на Visual Basic 6 под вин32
прочитать побайтно бинарный файл

См. Help по Open ... For Binary[/q].

И читать надо не побайтно, а целиком файл (или порциями, если файл большой).
...
Рейтинг: 0 / 0
06.10.2008, 12:36
| Ответить | Цитировать | Написать  
Пример кода побайтного чтения бинарного файла в циклк
    #35578146
гость222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гость222
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
 Dim messUSB( 0  To  300000 ) As Byte
 Dim sFileName As String
  
 sFileName="С:\1.bin"
 Open sFileName For Binary Access Read As # 1 
    Get # 1 , , messUSB()
  Close # 1

вот так можно побайтно загнать данные из файл в переменную messUSB, а потом их оттуда читать, если файл конечно не больше 300 кбайт )
но можно и размер поставить массива больше, смотря для надо!
...
Рейтинг: 0 / 0
06.10.2008, 14:19
| Ответить | Цитировать | Написать  
Пример кода побайтного чтения бинарного файла в циклк
    #35590325
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Читай сколько влезет. А не влезет, то немножко комп потормозит и всеровно влезет
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Command1_Click()
 Dim S As String
 Dim L As Long
  Open "d:\tmp.tmp" For Binary As # 1 
   L = FileLen(L)
   S = Space(L)
   Get # 1 ,  1 , S
  Close # 1 

'1
 Dim F As Long
  For F =  1  To L
   MsgBox Mid(S, F,  1 )
  Next
'2 Можно остановить программу и вручную писать в "Прямом окне" print Mid(S, F, 1)
'3 Я бы сделал привязку к элементу HScrollBar
End Sub
...
Рейтинг: 0 / 0
13.10.2008, 01:12
| Ответить | Цитировать | Написать  
Пример кода побайтного чтения бинарного файла в циклк
    #35590326
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
L = FileLen(L) замени на L = FileLen("d:\tmp.tmp"). Я что то поспешил
...
Рейтинг: 0 / 0
13.10.2008, 01:14
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Пример кода побайтного чтения бинарного файла в циклк
    #37904145
BelowZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZ
Гость
Андрей159,

объясни, пожалуйста, для чего тут get. который день перечитываю код - не могу сообразить
...
Рейтинг: 0 / 0
03.08.2012, 22:56
| Ответить | Цитировать | Написать  
Пример кода побайтного чтения бинарного файла в циклк
    #37904264
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Get потому что For Binary. Можно так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Command1_Click()
 Dim buf() As Byte, k%
  k = FreeFile
  Open "d:\MyFile.bin" For Binary As #k
   ReDim buf(1 To LOF(k))
   Get k, , buf
  Close k
'вывод в окно Immediate
Dim x
For Each x In buf: Debug.Print x, Chr(x): Next

End Sub
...
Рейтинг: 0 / 0
04.08.2012, 09:42
| Ответить | Цитировать | Написать  
Пример кода побайтного чтения бинарного файла в циклк
    #37908860
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qlewer
Участник
Казанский,

пасяп за пример. у меня код часто зависает и отрабатывает очень долго. да и результаты странные: только 0 и 255. видимо, я как-то неправильно представлял себе бинарное чтение файла. это не подойдёт, попробую юзать input
...
Рейтинг: 0 / 0
08.08.2012, 14:00
| Ответить | Цитировать | Написать  
Пример кода побайтного чтения бинарного файла в циклк
    #37909776
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Не должно зависать и долго работать! См. другую тему:

/topic/960083
...
Рейтинг: 0 / 0
09.08.2012, 01:22
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пример кода побайтного чтения бинарного файла в циклк
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=72&tid=2157524]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 281ms
total:  416ms
созд. / загр.: 416ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]