Работа со строками в текстовом файле >>

[el-niko]

У меня есть файл tekst.txt В нём содержится следующий текст:

Николай
Каверин
el-niko@mail.ru

Подскажите пожалуйста, как сме считать содержимое 1-й строчки, записать в переменную; затем содержимое 2-й строчки и тоде записать в переменную и т.д....

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

[Eduard]

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

dim sLine1 As String, sLine2 As String, sLine3 As String

Open "tekst.txt" For Input As #1
    Input #1, sLine1
    Input #1, sLine2
    Input #1, sLine3
Close #1

MsgBox sLine1 & vbCrLf & sLine2 & vbCrLf & sLine3, vbInformation


[el-niko]

а если у меня в файле будет 100 строк ил больше?.. есть ещё какой-нибудь способ? например как-нить таймером это всё окучить или т.п...

[GSerg]

Во-первых, Line input
Во-вторых, do until eof(1).

[Eduard]

Ну ладно GSerg, каюсь!
Вот один из таких способов...

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

Dim arrLines() As String
Dim lngItem As Long

Open "tekst.txt" For Input As #1

    Do Until EOF(#1).
        ReDim Preserve arrLines(lngItem)
        Line Input #1, arrLines(lngItem)
        lngItem = lngItem + 1
    Loop

Close #1

MsgBox "17 строка: " & arrLines(16)    'т.к. 1 строка начинается с 0


[tyomitch]

Ну ладно GSerg, каюсь!
Вот один из таких способов...

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

Dim arrLines() As String
Dim lngItem As Long

Open "tekst.txt" For Input As #1

    Do Until EOF(#1).
        ReDim Preserve arrLines(lngItem)
        Line Input #1, arrLines(lngItem)
        lngItem = lngItem + 1
    Loop

Close #1

MsgBox "17 строка: " & arrLines(16)    'т.к. 1 строка начинается с 0


Рулез. А вот то же самое вдвое короче:

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

Dim arrLines As Variant

Open "tekst.txt" For Input As #1

   arrLines = Split(Input(LOF(1), 1), vbCrLf)

Close #1

MsgBox "17 строка: " & arrLines(16)    'т.к. 1 строка начинается с 0


[GSerg]

А ежели в файле токмо vbCr (бывают такие оптимизации)?

[tyomitch]

А ежели в файле токмо vbCr (бывают такие оптимизации)?

Тогда

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

Dim arrLines As Variant

Open "tekst.txt" For Input As #1

   arrLines = Split(Replace(Input(LOF(1), 1), vbCrLf, vbCr), vbCr)

Close #1

MsgBox "17 строка: " & arrLines(16)    'т.к. 1 строка начинается с 0

[Igor_123]

В очереной раз спасибо за науку

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

Open "tekst.txt" For Input As #1

   arrLines = Split(Input(LOF(1), 1), vbCrLf)

Close #1


Вы не желаете издать, что-то вроде советов по оптимизации?

[el-niko]

Народ, а как узнить, сколько вообще строк в файле ? =) (простите за ламерский вопрос)

[GSerg]

Тыришь все строки, считая при этом...
Или ubound(split)+1.

[Eduard]

А вообще для текстовухи лучше юзать FSO - вот что рулит сегодня!

[tyomitch]

А вообще для текстовухи лучше юзать FSO - вот что рулит сегодня!

А завтра модным будет какой-нибудь OFS (ObjectFileSystem), и что, всем переучиваться?
Погоня за модой - смешно.

[Andrey Fedorov]

А вообще для текстовухи лучше юзать FSO - вот что рулит сегодня!

Глючит оно зачастую

Несколько раз пытался заюзать в разных программах но натыкался на глюки - в основном при обработке большого числа файлов. Одиночные файлы обрабатывает как правило нормально, а вот когда файлов много (обработка в цыкле) то возникают проблемы (код на 100% был верен). Какие уж именно не помню за давностью, но приходилось просто отказываться от FSO и обрабатывать файлы обычным способом...