Freigeben über

Vorgehensweise: Lesen von Textdateien mit fester Breite in Visual Basic

Das TextFieldParser Objekt bietet eine Möglichkeit, strukturierte Textdateien wie Protokolle einfach und effizient zu analysieren.

Die TextFieldType Eigenschaft definiert, ob es sich bei der analysierten Datei um eine durch Trennzeichen getrennte Datei oder eine Datei mit Text mit fester Breite handelt. In einer Textdatei mit fester Breite kann das Feld am Ende eine variable Breite aufweisen. Um anzugeben, dass das Feld am Ende eine variable Breite aufweist, definieren Sie es, um eine Breite kleiner oder gleich Null zu haben.

So analysieren Sie eine Textdatei mit fester Breite

  1. Erstellen Sie ein neues TextFieldParser-Element. Mit dem folgenden Code wird der TextFieldParser mit dem Namen Reader erstellt und die Datei test.log geöffnet.

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

  2. Definieren Sie die TextFieldType Eigenschaft als FixedWidth, definieren Sie die Breite und das Format. Der folgende Code definiert die Textspalten; Die erste ist 5 Zeichen breit, die zweite 10, der dritte 11 und der vierte ist von variabler Breite.

    Reader.TextFieldType =
Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
Reader.SetFieldWidths(5, 10, 11, -1)

  3. Durchlaufen Sie die Felder in der Datei. Wenn Zeilen beschädigt sind, melden Sie einen Fehler, und fahren Sie mit der Analyse fort.

    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. Schließen Sie die While Und Using Blöcke mit End While und End Using.

        End While
End Using

Beispiel

In diesem Beispiel wird aus der Datei test.log gelesen.

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

Stabile Programmierung

Die folgenden Bedingungen können zu einer Ausnahme führen:

  • Eine Zeile kann nicht mit dem angegebenen Format (MalformedLineException) analysiert werden. Die Ausnahmemeldung gibt die Zeile an, die die Ausnahme verursacht, während die ErrorLine Eigenschaft dem in der Zeile enthaltenen Text zugewiesen ist.

  • Die angegebene Datei ist nicht vorhanden (FileNotFoundException).

  • Eine teilweise vertrauenswürdige Situation, in der der Benutzer nicht über ausreichende Berechtigungen für den Zugriff auf die Datei verfügt. (SecurityException).

  • Der Pfad ist zu lang (PathTooLongException).

  • Der Benutzer verfügt nicht über ausreichende Berechtigungen für den Zugriff auf die Datei (UnauthorizedAccessException).

Siehe auch