Как считать файл в массив?

[Alexandrius]

Подскажите, как можно считать текстовый файл в массив, так, чтобы каждая следующая строка была следующим элементом массива. Я пробую так:

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

Dim Opt(7) As String
MyFile = FreeFile
Open (App.Path & "\Text.txt") For Input As #MyFile
        Do Until EOF(MyFile)
            Line Input #MyFile, Opt()
        Loop
    Close #MyFile

Подскажите, что нужно исправить?

[Хакер]

Голову.

Выражение Opt() попробуй объяснить самому себе.

[alibek]

Split

[Денис]

Либо

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

Dim Opt(7) As String
MyFile = FreeFile
Open (App.Path & "\Text.txt") For Input As #MyFile
        Do Until EOF(MyFile)
            Line Input #MyFile, Opt(i)
            i=i+1
        Loop
Close #MyFile

либо

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

Dim Opt() As String
Open (App.Path & "\Text.txt") For binary As #MyFile
        put #MyFile, , tmp
            opt = split(tmp)
Close #MyFile

насчет второго кода не уверен, так как написал прямо здесь. надо проверить в бейсике.

[Debugger]

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

Dim Opt() As String
Open (App.Path & "\Text.txt") For binary As #MyFile
        put #MyFile, , tmp
            opt = split(tmp)
Close #MyFile

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

Dim Opt() As String
Dim tmp As String
tmp=String(Filelen(App.Path & "\Text.txt"), " ")
Open (App.Path & "\Text.txt") For binary As #MyFile
Get #MyFile, , tmp
opt = split(tmp, vbNewLine)
Close #MyFile

[Alexandrius]

Что - то не работает и это. Может какой вариант есть, как за один проход цикла, каждую строку текстового файла считать в свою переменную? Если в массив не выходит...

[Debugger]

Может, ты плохо думаешь?

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

    Const sFile As String = "C:/log.txt"
    Dim Opt() As String
    Dim tmp As String
    Dim MyFile As Integer
    MyFile = FreeFile
    tmp = String(FileLen(sFile), " ")
    Open sFile For Binary As #MyFile
    Get #MyFile, , tmp
    Opt = Split(tmp, vbNewLine)
    Close #MyFile
    MsgBox Opt(0)

Вот, я добавил пару строчек в виде объявления переменных и мессажбокса в конце. Работает, удивительно?

[Alexandrius]

Заработало

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

    Dim s As String
    Dim Opt() As String
    MyFile = FreeFile
    Open (App.Path & "\Options.txt") For Input As #MyFile
        s = Input$(LOF(1), 1)
    Close #MyFile
    arrOpt = Split(s, vbCrLf)

Может не работало из-за режима Binary или из-за константы перевода строки? В любом случае, спасибо, что на правильную мысль натолкнул.