Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Можно ли открыть файл как Bynary и читать по несколько байт в переменные / 3 сообщений из 3, страница 1 из 1
17.08.2004, 12:21
    #32652494
Invisible
Invisible
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли открыть файл как Bynary и читать по несколько байт в переменные
Что-то типа blockread на Паскале, только под VBA.

Указываем переменную типа Integer, читем 2 байта, потом переменную String, читаем 210 байт, потом переменную Long, читаем 4 байта.

Таким образом, вот.

А то достало - делаю так:

dim b as byte, b2 as byte, l as long
Open "File" for binary as #1
get #1,,b
get #1,,b2
l=b2 *256 +b

Ну разве это дело? Люди, помогите плз., поделитесь опытом.

Заранее благодарен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2004, 12:27
    #32652517
andreiy
andreiy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли открыть файл как Bynary и читать по несколько байт в переменные
через API (lread, ReadFile) http://www.mentalis.org/
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2004, 15:11
    #32655032
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли открыть файл как Bynary и читать по несколько байт в переменные
Фигня какая-то...
Что мешает так и писать:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim i As Integer
    Dim l As Long
    Dim s As String *  210 
    
     Open "file" For Binary As # 1 
     Get # 1 , , i
     Get # 1 , , l
     Get # 1 , , s
...
ЗЫ. Конструкция b2 *256 запросто может привести к переполнению...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Можно ли открыть файл как Bynary и читать по несколько байт в переменные / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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