Помогите с открытием бинарного фала в VB Access

helpme 04.04.2004 - 20:31 | собсно сабж...
NTFS 1 - 05.04.2004 - 11:35 | Пишу по памяти... open "123.exe" for binary as #1 s$="*" ' Чтение одного байта for i=1 to 100 get #1,i,s$ ' Побайтно читаем первые 100 байт файла next i close #1 Вроде так, хотя см. F1
helpme 2 - 06.04.2004 - 15:32 | Спасибо за совет... А вот если я буду читать эти байтики в переменную типа Double будет ли происходить автоматичекое приведение типов?
NTFS 3 - 06.04.2004 - 15:35 | Не уверен. Смотри функции MKI, MKL, MKS, MKD и обратные им
helpme 4 - 06.04.2004 - 23:42 | спасибо :-))) Раз уж встретил разговорчивого человека, то грех не задать еще вопросик :) Можно ли как-то рисовать на форме в Accesse, я нарыл только рисование в отчете, а хочется на формочке... :-((
helpme 5 - 09.04.2004 - 10:56 | Пардон, что поднимаю опять эту тему, но отзовитесь пжаста кто знает, какие библиотеки надо подключить чтоб работали ф-ции из п.3. В Хелпе их нет, и литературки никакой под боком нету, а очень надо...
NTFS 6 - 09.04.2004 - 11:35 | Мой косяк! Эти функции были в QuickBasic 4.5, а в VBA их, видимо, решили убрать. Сейчас покопаюсь и что-нибудь придумаю.
NTFS 7 - 09.04.2004 - 11:36 | А тебе нужно читать из бинарного файла строки вида 1454.567445 13.4443334353 16754.434 или все же именно такой вид, как эти числа выглядят в памяти?
NTFS 8 - 09.04.2004 - 11:37 | В общем, подробности в студию! А там что-нибудь придумаем!
helpme 9 - 12.04.2004 - 14:54 | Подробности в студию: В файле в двоичном виде записан массив чисел типа Double, мне нужно его прочесть перегнать в десятичный вид и использовать как числовой массив (123.457, 309.590 и т.д.), в С++ я даже не задумывался, что здесь может быть какая-то проблема, загнал весь файл под указатель типа Double и пользую готовый массив. А в VB возникли проблемы, он хоть и открывает в бинарном режиме, но упорно интерпритирует содержимое как строку :-((( Вот сижу, туплю...
helpme 10 - 14.04.2004 - 17:00 | (додыхая) Ну хоть кто-нить, пли-и-и-з, помогите
ГыГы 11 - 14.04.2004 - 19:00 | Это елементарно. Вот две процедуры, одна пишет, другая читает. Sub save() Dim d# d = 5 Open "D:\aa" For Binary As #1 Put #1, , d Close #1 End Sub Теперь файл содержит 8 байт: 00 00 00 00 00 00 14 40 Sub load() Dim d# Open "D:\aa" For Binary As #1 Get #1, , d Close #1 Debug.Print d End Sub
ГыГы 12 - 14.04.2004 - 19:03 | А весь прикол состоял в том, что Get и Put не в функциях искать надо было, а в операторах (statement) :)))

>>