Как считать из обычного текстового файла определенную строку

[Forgott]

Парни! Тема такая: пишу прогу, которая сохраняет обычный текстовый файл и потом считывает из него. Проблема в том, что данные в файл сохраняются каждый раз по разному, это может быть и пять строк, а может и десять. Так вот, нужно, чтобы считывались скажем пять определенных строк, но если двух нет, то не вылезала ошибка, что достигнут конец файла. Вот пример:

1-й вариант.
----------------

- Записываем файл (в нем пятнадцать строк, максимум подразумевается двадцать пять);
- Открываем и считываем каждую пятую строку пять раз,
но чтобы не было ошибки.

2-й вариант
---------------

- Записываем файл (в нем пять строк, максимум подразумевается двадцать пять);
- Открываем и считываем каждую пятую строку пять раз,
но чтобы не было ошибки.

Естественно, что где пустые строки, там значение равно нулю.
Заранее благодарен!

[BV]

Это надо?

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

Private Sub Foo()
    Dim strIn As String
    Dim file As Long, lLnCnt As Long, i As Long
    lLnCnt = 0
    file = FreeFile()
    Open "C:\Folder\File.txt" For Input As #file
        Do Until EOF(file)
            Line Input #file, strIn
            lLnCnt = lLnCnt + 1
            If lLnCnt Mod 5 = 0 Then
                'Длеаем что-то со строкой... хоть 5 раз
            End If
        Loop
    Close #file
End Sub

[8Ball's]

А не проще сначала считать весь файл, а потом вытащить от туда нужные строки?

Воабще расскажи поподробнее, что конкретно ты хочешь сделать, может все будет гораздо проще =)