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


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

Обновлен: Ноябрь 2007

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

Свойство TextFieldType определяет, является ли файл файлом с разделителями или с полями фиксированной ширины текста. Чтобы задать поле переменной ширины в файле фиксированной ширины, установите ширину поля равной -1.

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

  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). Сообщение исключения указывает строку, вызвавшую исключение, а в Свойство TextFieldParser.ErrorLine находится текст, содержащийся в строке.

  • Заданный файл не существует (FileNotFoundException).

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

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

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

См. также

Задачи

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

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

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

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

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

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

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

Ссылки

Объект TextFieldParser