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

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

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

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

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

2. Определите тип и разделитель TextField.В следующем коде определяются свойство TextFieldType как Delimited, а в качестве разделителя задается символ ",".

   MyReader.TextFieldType = FileIO.FieldType.Delimited
   MyReader.SetDelimiters(",")
   

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

   
   Dim currentRow As String()
      While Not MyReader.EndOfData
         Try
            currentRow = MyReader.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.txt.

  Using MyReader As New Microsoft.VisualBasic.
                        FileIO.TextFieldParser(
                          "C:\TestFolder\test.txt")
   MyReader.TextFieldType = FileIO.FieldType.Delimited
   MyReader.SetDelimiters(",")
   Dim currentRow As String()
   While Not MyReader.EndOfData
      Try
         currentRow = MyReader.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

Ссылки

Microsoft.VisualBasic.FileIO.TextFieldParser

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

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