Porady: odczytywanie z plików tekstowych rozdzielanych przecinkami w Visual Basic

  • Artykuł

Obiekt TextFieldParser umożliwia łatwe i wydajne analizowanie plików tekstowych ze strukturą, takich jak dzienniki. Właściwość TextFieldType określa, czy jest to plik rozdzielany, czy jeden z polami tekstu o stałej szerokości.

Aby przeanalizować rozdzielany przecinkami plik tekstowy

  1. Utwórz nowy element TextFieldParser. Poniższy kod tworzy TextFieldParser nazwę MyReader i otwiera plik test.txt.

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

  2. Zdefiniuj TextField typ i ogranicznik. Poniższy kod definiuje TextFieldType właściwość jako Delimited i ogranicznik jako ",".

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

  3. Pętla przez pola w pliku. Jeśli jakiekolwiek wiersze są uszkodzone, zgłoś błąd i kontynuuj analizowanie. Poniższy kod wykonuje pętle w pliku, wyświetlając każde pole z kolei i zgłaszając wszystkie pola, które są niepoprawnie sformatowane.

    
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. Zamknij bloki While i Using za pomocą elementów End While i i End Using.

        End While
End Using

Przykład

Ten przykład odczytuje z pliku 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

Niezawodne programowanie

Następujące warunki mogą spowodować wyjątek:

Zobacz też