Прочитать на английском

Поделиться через

Практическое руководство. Чтение из текстовых файлов с фиксированной шириной полей в Visual Basic

  • Статья

Объект TextFieldParser позволяет легко и эффективно анализировать структурированные текстовые файлы, например файлы журналов.

Свойство TextFieldType определяет, является ли анализируемый файл файлом с разделителями или с полями фиксированной ширины текста. В текстовом файле с полями фиксированного размера поле в конце может иметь переменную ширину. Чтобы указать, что поле в конце имеет переменную длину, определите для его ширины значение меньше или равное нулю.

Анализ текстового файла с полями фиксированной ширины

  1. Создайте TextFieldParser. Следующий код создает объект TextFieldParser с именем Reader и открывает файл test.log.

    VB 
    Using Reader As New Microsoft.VisualBasic.
    FileIO.TextFieldParser("C:\TestFolder\test.log")

  2. Определение свойство TextFieldType как FixedWidth, задав ширину и формат. Следующий код определяет столбцы текста; первый имеет ширину 5 символов, второй 10, третий 11, а четвертый столбец имеет переменную ширину.

    VB 
    Reader.TextFieldType =
Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
Reader.SetFieldWidths(5, 10, 11, -1)

  3. Просмотрите поля в файле. Если какие-либо строки повреждены, выведите сообщение об ошибке и продолжите анализ.

    VB 
    Dim currentRow As String()
While Not Reader.EndOfData
    Try
        currentRow = Reader.ReadFields()
        Dim currentField As String
        For Each currentField In currentRow
            MsgBox(currentField)
        Next
    Catch ex As Microsoft.VisualBasic.
                FileIO.MalformedLineException
        MsgBox("Line " & ex.Message &
        "is not valid and will be skipped.")
    End Try

  4. Закройте блоки While и Using операторами End While и End Using.

    VB 
        End While
End Using

Пример

В этом примере производится чтение данных из файла test.log.

VB 
Using Reader As New Microsoft.VisualBasic.FileIO.
   TextFieldParser("C:\TestFolder\test.log")

    Reader.TextFieldType =
       Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
    Reader.SetFieldWidths(5, 10, 11, -1)
    Dim currentRow As String()
    While Not Reader.EndOfData
        Try
            currentRow = Reader.ReadFields()
            Dim currentField As String
            For Each currentField In currentRow
                MsgBox(currentField)
            Next
        Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
            MsgBox("Line " & ex.Message &
            "is not valid and will be skipped.")
        End Try
    End While
End Using

Отказоустойчивость

При следующих условиях возможно возникновение исключения:

  • Строка не может быть проанализирована с использованием указанного формата (MalformedLineException). Сообщение исключения содержит строку, вызвавшую исключение, а свойство ErrorLine присвоено тексту, который содержится в этой строке.

  • Указанный файл не существует (FileNotFoundException).

  • Ситуация частичного доверия, в которой пользователь не имеет достаточных разрешений для доступа к файлу. (SecurityException).

  • Слишком длинный путь (PathTooLongException).

  • Пользователь не имеет необходимых разрешений для доступа к файлу (UnauthorizedAccessException).

См. также