Gewusst wie: Lesen aus durch Kommas getrennten Textdateien in Visual Basic

Aktualisiert: November 2007

Mit dem TextFieldParser-Objekt können strukturierte Textdateien, z. B. Protokolle, leicht und effizient analysiert werden. Die TextFieldType-Eigenschaft definiert, ob es sich um eine Datei mit Trennzeichen oder um eine Datei mit Textfeldern fester Breite handelt.

So analysieren Sie eine durch Kommas getrennte Textdatei

1. Erstellen Sie einen neuen TextFieldParser. Im folgenden Code wird ein TextFieldParser mit dem Namen MyReader erstellt und die Datei test.txt geöffnet.

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

2. Definieren Sie den TextField-Typ und das Trennzeichen. Im folgenden Code wird die TextFieldType-Eigenschaft als Delimited festgelegt und das Trennzeichen "," definiert.

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

3. Die Felder in der Datei werden durchlaufen. Falls eine beschädigte Zeile gefunden wird, wird ein Fehler gemeldet und die Analyse fortgesetzt. Im folgenden Code wird die Datei durchlaufen, jedes Feld angezeigt und alle Felder ausgegeben, die nicht korrekt formatiert sind.

   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. Der While-Block und der Using-Block werden mit End While und End Using geschlossen.

      End While
   End Using
   

Beispiel

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

Using MyReader As New _
Microsoft.VisualBasic.FileIO.TextFieldParser("C:\testfile.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

Robuste Programmierung

Unter den folgenden Umständen können Ausnahmen auftreten:

• Eine Zeile kann nicht mit dem angegebenen Format analysiert werden (MalformedLineException). In der Ausnahmemeldung wird die Nummer der Zeile angegeben, die die Ausnahme verursacht hat. Der in der Zeile enthaltene Text kann über die TextFieldParser.ErrorLine-Eigenschaft abgerufen werden.

• Die angegebene Datei ist nicht vorhanden (FileNotFoundException).

• Es besteht 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

Aufgaben

Gewusst wie: Lesen aus einer Textdatei mit fester Breite in Visual Basic

Gewusst wie: Lesen aus Textdateien mit mehreren Formaten in Visual Basic

Exemplarische Vorgehensweise: Bearbeiten von Dateien und Verzeichnissen in Visual Basic

Problembehandlung: Lesen aus und Schreiben in Textdateien

Problembehandlung bei Ausnahmen: Microsoft.VisualBasic.FileIO.TextFieldParser.MalformedLineException

Konzepte

Analysieren von Textdateien mit dem TextFieldParser-Objekt

Referenz

TextFieldParser-Objekt