TopPicLogo TopPicText

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

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

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


Назад ToTop
L.E. 17.05.2013
Рейтинг@Mail.ru