Текстовый файл

[Algol]

Я создал текстовый файл и записал туда несколько адресов

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

Open "C:\Read.txt" For Append As #1

Как мне брать оттуда эти строки по одной

[ALX_2002]

Вообще, я лично предпочитаю делать это через FSO. И записывать в файл и читать из него.

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

Const ForReading = 1
Const ForAppending = 8

Private Sub Form_Load()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TXT = FSO.OpenTextFile("D:\1.txt", ForReading, 1, -2)
MsgBox TXT.ReadLine
TXT.Close
Set FSO = Nothing
Set TXT = Nothing
End Sub


[Algol]

А можно все таки с Open а

[double]

Мне кажется просто открываешь его как input и далее
Line input #номер_или_freefile, переменная
если какую то определенную строку, то перебором в цикле

[Algol]

А по какой величине организовывать цикл?
И вот еще вопрос: какое условие надо писать при проверке текстового файла пустой он или нет.

[ASD]

А по какой величине организовывать цикл?
И вот еще вопрос: какое условие надо писать при проверке текстового файла пустой он или нет.

На первое:
While not EOF(1)
Line Input #1, strRec
Wend

На второе:
FileLen(filename)