Как получить данные из txt файла?

[Nikolka]

Привет!

Как получить данные из txt-файла? Пробую:

Open App.Path & "\text.txt" For Random As #1
Get #1, , fileSettings
Close #1

Ничего не выходит, бьёт ошибку 59: Bad Data Length.

Что я упустил? Подскажите...

[GSerg]

В каком виде данные в файле?

[tyomitch]

Может, Nikolka имеет в виду вот это:

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

Open App.Path & "\text.txt" For Input As #1
fileSettings = Input(LOF(1), 1)
Close #1


[GSerg]

Скорее всего, но спросить не помешает

[Nikolka]

Простой текст. Обычный, набранный в Блокноте

Его нужно занести в переменную. А что ета за код такой интересный?

[Nikolka]

(GSerg - интересное и скорее всего правильно у тебя послесловие - ну про решение проблем)

[tyomitch]

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

[dr.MIG]

Другой вариант решения: подключи Microsoft Scripting Runtime и используй следующий код:
Private Sub Command1_Click()
Dim fso As New FileSystemObject, f As File, ts As TextStream
Set f = fso.GetFile("file.txt")
Set ts = f.OpenAsTextStream(ForReading)
Str = ts.ReadAll 'Текст записан в переменную Str
End Sub

Кстати, в Microsoft Scripting Runtime ещё много чего полезного!

[Nikolka]

Пасиба, сейчас же попробую.

Пасиба всем.