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

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

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

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

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

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

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

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

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

   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.

      End While 
   End Using
   

Пример

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

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).

См. также

Задачи

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

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

Пошаговое руководство. Операции с файлами и каталогами в Visual Basic

Исправление неполадок, связанных с чтением из текстовых файлов и записью в такие файлы (Visual Basic)

Разрешение вопросов, связанных с исключениями: Microsoft.VisualBasic.FileIO.TextFieldParser.MalformedLineException

Ссылки

TextFieldParser

Основные понятия

Анализ текстовых файлов с помощью объекта TextFieldParser (Visual Basic)