открытие файла

[iolaus]

у меня есть переменная типо string, в ней содержится шифрованый текс. нужно сохранить его в файл. все нормльно - использую:

open "a.txt" for output as 1
PRINT 1, TXTSTR
CLOSE 1

а вот дальше возникает проблема. мне нужно его считать. а часто получается что в текстовой переменной собеджаться символы конца строки. и соответственно простым Lineinput я его ститать не могу:(

подскажитке пожалуста, как считать сразу весь файл в текстовую переменную!!!!

заранее спасибо.

[Viper]

Если записывать при помощи Print, то читать надо при помощи Line Input, а чтобы считать все содержимое файла используй функцию Input

Dim s As String
s = Input(LOF(1), #1)

[MIT]

Да, правильно, но даже Input будет читать файл только до символа Chr(0). Для ПОЛНОГО считывания пиши так:

[code]
Dim FN as integer,Str() as byte,text as string

open "a.txt" for Binary as fn
redim str(lof(fn)-1)
get fn,,str
close fn

text = strconv(str(),vbUnicode)
[\code]
Вроде так (писал не в Basic е поэтому могут быть опечатки)

[AntonGV]

как считать сразу весь файл в текстовую переменную

MIT, А как теперь расшифровать это массив?

[MIT]

text = strconv(str(),vbUnicode)

После этого переменная text будет иметь содержимое файла

[RayShade]

Проще сделать через FSO. Там есть textstream и отличный метод readall.

[MIT]

Ну, можно по всякому, кому как нравится...

[iolaus]

я вот нашел на сайте microsoft

Код: Выделить всё

Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(ioDir & GetLogonUser & "." & GetLogonDomainuser & ".iosh")
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    msgbox ts.ReadLine
    ts.Close


спасибо всем!