Текстовые Файлы - Построчное чтение

Пример эксплуотации:

Private Sub Test()

esImportTextLineByLyne "d:\Temp\test.txt"

End Sub

Процедура:

Private Sub esImportTextLineByLyne(sFilePath As String)

'es - 17.05.2013

'Построчное чтение текстового файла

'--------------------------------------------------------------------

Dim FF As Long

Dim i As Long 'Счетчик строк

Dim sLine As String

On Error GoTo esImportTextLineByLyne_Err

'Проверка наличия файла

If Dir(sFilePath, vbNormal) = "" Then

MsgBox "Не могу найти файл:" & vbCrLf & _

sFilePath, vbCritical

Exit Sub

End If

'

'Обработка файла с данными - Чтение построчно

FF = FreeFile

Open sFilePath For Input As #FF ' Открывает файл для чтения.

Do While Not EOF(1) ' Цикл до конца файла.

Line Input #FF, sLine 'Читаем одну строку в переменную

i = i + 1 'Счетчик принятых строк + 1

Debug.Print "Строка #" & Format(i, "000") & ": " & sLine

Loop

Close #FF 'Закрывает файл.

esImportTextLineByLyne_Bye:

Exit Sub

esImportTextLineByLyne_Err:

MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _

"in procedure esImportTextLineByLyne", vbCritical, "Error!"

Resume esImportTextLineByLyne_Bye

End Sub