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

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

См. также