| Вопрос: СЧИТЫВАНИЕ ДАННЫХ ИЗ ФАЙЛА | Добавлено: 15.10.04 02:59 |
Автор вопроса:  sms101
|
|
Господа! Прекрасно понимаю, что дурацкий вопрос, НО помогите ламеру!
Значит так: нужно считать данные из файла, побайтово... А в этом ВБ ничего понять не могу, Input непонятный какой-то, хэлпа нету, НИЧЕГО НЕТУ! Например, в файле записаны байты (HEX): 01, 14, AA, BB, FF, CC, 1A, ........... Мне надо получить байты: 1, 20, 170, 187, 255, ........ Если не тяжело, напишите... В качестве благодарности заблокирую Вашего недруга )))) |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #1 | Добавлено: 15.10.04 06:38 |
|
В качестве благодарности заблокирую Вашего недруга ))))
????????? |
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 15.10.04 10:11 |
|
см. поиск по форуму...
Для всего файла: dim sHexBuffer as string dim fn as integer fn = freefile open lpFileName for binary access read lock write as nf sHexBuffer = Spase$(LOF(nf)) get nf, vbnull, sHexBuffer close nf Для побайтового счисления: dim sHexBt as byte dim fn as integer, i as long fn = freefile open lpFileName for binary access read lock write as nf for i = 1 to LOF(nf) get nf, i, sHexBt Call msgbox(sHexBt) next close nf PS В первом примера заместо String типа можно использовать массив Byte и заместо Space(LOF(nf)) нужно будет подставить redim sHexBuffer(LOF(nf) - vbNull) |
||
|
Номер ответа: 3 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #3 | Добавлено: 15.10.04 10:23 |
Во-первых, никого блокировать ненадо - у меня врагв нет  Private Sub Form_Click() Dim bytHEX As Byte Open "C:\eklmn.bin" For Binary Access Read As #1 Do Until EOF(1) Get #1, , bytHEX Print CDec(bytHEX); Loop Close #1 End Sub |
||
|
Номер ответа: 4 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #4 | Добавлено: 15.10.04 13:44 |
| А если не секрет - зачет из файла считывать данные побайтово? Не проще ли загнать весь файл или его часть в массив и работать уже оттуда. Или эта прога - что то вроде тормозилки, делающей из P4 простую четверку? | ||
|
Номер ответа: 5 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #5 | Добавлено: 15.10.04 15:09 |
LamerOnLinе, а может дифицит памяти на машине 
|
||
|
Номер ответа: 6 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #6 | Добавлено: 15.10.04 15:10 |
|
сорри за очепятку, дЕфицит
|
||
|
Номер ответа: 7 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #7 | Добавлено: 15.10.04 15:50 |
|
Ага, и профицит быстродействия при нехватке памяти |
||
Страница: 1 |