Procedura: leggere file di testo con più formati in Visual Basic

Articolo
09/12/2008

Aggiornamento: novembre 2007

L'oggetto TextFieldParser consente di analizzare in modo facile ed efficace i file di testo strutturati, ad esempio i log. È possibile elaborare un file con più formati utilizzando il metodo PeekChars per determinare il formato di ciascuna riga mentre si analizza il file.

Per analizzare un file di testo con più formati

Definire il formato previsto e il formato utilizzato quando viene restituito un errore.
```
Dim StdFormat As Integer()= {5,10,11,-1}
Dim ErrorFormat As Integer() = {5,5,-1}
```

Creare un nuovo oggetto TextFieldParser, definendone l'ampiezza e il formato.

Using MyReader As New _
Microsoft.VisualBasic.FileIO.TextFieldParser("C:\testfile.txt")
MyReader.TextFieldType = FileIO.FieldType.FixedWidth

Far scorrere le righe, verificando il formato prima di eseguire la lettura.

Dim CurrentRow As String()
While Not MyReader.EndOfData
   Try
      Dim RowType As String = MyReader.PeekChars(3)
      If String.Compare(RowType, "Err") = 0 Then
         ' If this line describes an error, the format of 
         ' the row will be different.
         MyReader.SetFieldWidths(ErrorFormat)
         CurrentRow = MyReader.ReadFields
         MyReader.SetFieldWidths(StdFormat)
                    Else
         'Otherwise parse the fields normally
         CurrentRow = MyReader.ReadFields
         For Each newString As String In CurrentRow
            My.Computer.FileSystem.WriteAllText _
            ("newFile.txt", newString, True)
          Next
   End If

Scrivere gli errori nella console.

      Catch ex As _
      Microsoft.VisualBasic.FileIO.MalformedLineException
         MsgBox("Line " & ex.Message & " is invalid.")
      End Try
   End While
End Using

Esempio

Nell'esempio riportato di seguito la lettura viene eseguita dal file testfile.txt.

Dim StdFormat As Integer() = {5, 10, 11, -1}
Dim ErrorFormat As Integer() = {5, 5, -1}
Using MyReader As New _
Microsoft.VisualBasic.FileIO.TextFieldParser("C:\testfile.txt")
   MyReader.TextFieldType = FileIO.FieldType.FixedWidth
   MyReader.FieldWidths = StdFormat
   Dim CurrentRow As String()
      While Not MyReader.EndOfData
         Try
            Dim RowType As String = MyReader.PeekChars(3)
            If String.Compare(RowType, "Err") = 0 Then
               ' If this line describes an error, the format of the row will be different.
               MyReader.SetFieldWidths(ErrorFormat)
               CurrentRow = MyReader.ReadFields
               MyReader.SetFieldWidths(StdFormat)
            Else
               ' Otherwise parse the fields normally
               CurrentRow = MyReader.ReadFields
               For Each newString As String In CurrentRow
                  My.Computer.FileSystem.WriteAllText("newFile.txt", newString, True)
               Next
            End If
         Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
            MsgBox("Line " & ex.Message & " is invalid.  Skipping")
         End Try
      End While
End Using

Programmazione efficiente

Le seguenti condizioni possono generare un'eccezione:

Non è possibile analizzare una riga utilizzando il formato specificato (MalformedLineException). Nel messaggio di eccezione viene specifica la riga che ha generato l'eccezione, mentre Proprietà TextFieldParser.ErrorLine viene assegnata al testo contenuto nella riga.
Il file specificato non esiste (FileNotFoundException).
Un contesto di attendibilità parziale in cui gli utenti non dispongono di autorizzazioni sufficienti per accedere al file (SecurityException).
Il percorso è troppo lungo (PathTooLongException).
L'utente non dispone delle autorizzazioni sufficienti per accedere al file (UnauthorizedAccessException).

Vedere anche

Condividi tramite

Procedura: leggere file di testo con più formati in Visual Basic

Per analizzare un file di testo con più formati

Esempio

Programmazione efficiente

Vedere anche

Attività

Concetti

Riferimenti

Risorse aggiuntive