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


Практическое руководство. Чтение из текстовых файлов с разделителями-запятыми в 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).

См. также