А в чем вопрос-то состоит?

Открытие файла и считывание с него побайтно выглядит так:

f=freefile

open"file" for binary as f

for i=1 to lof(f)

s=input(f,1)

next

close

Ответить

Для Binary более трезво изспользовать Put и Get

Ответить

Трезвее всего использовать CreateFile, ReadFile, CloseHandle. Хорошо бы прочести бенчмарк...

А теперь хочу поздравить себя с 1000-м постом! И с тем, что сегодня у меня появится новый винт на 40ГБ - теперь я смогу заниматься почти всем, что меня интересует, не заботясь о свободном месте! И окинув орлиным взором кучу тупого флуда, который я оставил на этом форуме, жестокие баталии во флейме, которые велись со сторонниками .NET и Delphi, хочу спросить: "Хоть кому-то я помог?"

Ответить

рад, что ответил, продолжаю вопрос. То, что ты указал - это подходит для всех типов переменных или нет?

допустим необходимо сначала записать, а потом считать значения переменных строкового и целого типа?

и вообще можно поподробнее об этом Binary, каким образом происходит сохранение? я пробовал, но все время разная фигня получается при просмотре! 

Ответить

Ответить

Вот так выглядит запись в файл:

Public Sub WriteToFile(sFileName As String, sFileData As String)
    Dim nf As Integer: nf = FreeFile
 
    If Not Len(Dir$(sFileName)) = &H0 Then Call DeleteFile(sFileName)
 
    Open sFileName For Binary Access Write As nf
        Put nf, 1, sFileData
    Close
End Sub

Public Function ReadFromFile(lpFilename As String) As String
    Dim nf As Integer: nf = FreeFile
 
    Open lpFilename For Binary Access Read As nf
        ReadFromFile = String$(LOF(nf), &H0)
        Get nf, 1, ReadFromFile
    Close nf
End Function

Ответить

> То, что ты указал - это подходит для всех типов переменных или нет?

> допустим необходимо сначала записать, а потом считать значения переменных строкового и целого типа?

Тип доступа Binary позволяет записывать в файл байты, а не числа. Т.е. либо переводишь числа в строки, либо используешь следующий прием: создаешь массив, где у тебя хранятся записываемые численные значения, например Dim a(100) As Double, а потом используешь CreateFile и WriteFile с параметрами a(0) и LenB(a(0))*101. Для считывания применяешь ту же технику. Полагаю, это самый быстрый способ сохранения-восстановления данных: маппинг массива.

> 2Sharp Может у меня Opera глючит, но у тебя на данный момент 928 постов... В любом случае поздравляю!

Да, она кеширует страницы исключительно странно. Рекомендую использовать вместо нее Avant Browser - IE-based броузер, исключительно удобный, содержит все преимущества Оперы и ни одного ее недостатка. Только вот рекламу он блокирует через раз, наверно, потому, что я еего автору не пожертвовал 15 баксов. Сама программа - freeware (тоже плюс). Пожалуй, 3 вещи мне не нравятся в IE - ресурсоемкость, тупое строение кэша, сохранение страниц с перезагрузкой, но в Опере их намного больше.

Ответить

Ответить

Ну, дык, это что, юбилей что ли был? Еще предвидятся в ближайшее время юбилеи - 1024 поста, 1000 ответов, 1024 ответа - вот это будут юбилеи!

Ответить