Postupy: Čtení z textových souborů ve více formátech v jazyce Visual Basic

Článek
06/10/2015

Objekt TextFieldParser umožňuje snadno a efektivně analyzovat strukturované textové soubory, jako jsou například protokoly.Můžete zpracovat soubor s více formáty pomocí metody PeekChars a tím při procházení souboru určit formát každého řádku.

Jak analyzovat textový soubor s více formáty

Přidejte textový soubor s názvem testfile.txt do projektu.Přidejte následující obsah do textového souboru.

Err  1001 Cannot access resource.
Err  2014 Resource not found.
Acc  10/03/2009User1      Administrator.
Err  0323 Warning: Invalid access attempt.
Acc  10/03/2009User2      Standard user.
Acc  10/04/2009User2      Standard user.

Definujte očekávaný formát a používaný formát při hlášení chyb.Poslední položky v každé pole je -1, tedy na poslední pole bude hodnota proměnné šířky.Vyvolá se při poslední položky pole je menší nebo rovna 0.
```
Dim stdFormat As Integer() = {5, 10, 11, -1}
Dim errorFormat As Integer() = {5, 5, -1}
```

Vytvořte nový objekt TextFieldParser, definováním šířky a formátu.

Using MyReader As New FileIO.TextFieldParser("..\..\testfile.txt")
    MyReader.TextFieldType = FileIO.FieldType.FixedWidth
    MyReader.FieldWidths = stdFormat

Iterujte přes řádky a testujte formát před čtením.

Dim currentRow As String()
While Not MyReader.EndOfData
    Try 
        Dim rowType = 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)
        Else 
            ' Otherwise parse the fields normally
            MyReader.SetFieldWidths(stdFormat)
        End If
        currentRow = MyReader.ReadFields
        For Each newString In currentRow
            Console.Write(newString & "|")
        Next
        Console.WriteLine()

Zapisujte chyby do konzoly.

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

Příklad

Kompletní příklad, který načte ze souboru je testfile.txt.

Dim stdFormat As Integer() = {5, 10, 11, -1}
Dim errorFormat As Integer() = {5, 5, -1}
Using MyReader As New FileIO.TextFieldParser("..\..\testfile.txt")
    MyReader.TextFieldType = FileIO.FieldType.FixedWidth
    MyReader.FieldWidths = stdFormat
    Dim currentRow As String()
    While Not MyReader.EndOfData
        Try 
            Dim rowType = 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)
            Else 
                ' Otherwise parse the fields normally
                MyReader.SetFieldWidths(stdFormat)
            End If
            currentRow = MyReader.ReadFields
            For Each newString In currentRow
                Console.Write(newString & "|")
            Next
            Console.WriteLine()
        Catch ex As FileIO.MalformedLineException
            MsgBox("Line " & ex.Message & " is invalid.  Skipping")
        End Try 
    End While 
End Using
Console.ReadLine()

Robustní programování

Následující případy mohou způsobit výjimku:

Řádek nelze analyzovat pomocí zadaného formátu (MalformedLineException).Zpráva výjimky určuje řádek, který způsobil vyjímku a vlastnost ErrorLine je přiřazena k textu obsaženém na řádku.
Zadaný soubor neexistuje (FileNotFoundException).
Situace částečné důvěryhodnosti, ve kterých uživatelský kód nemá dostatečná přístupová oprávnění k souboru.(SecurityException).
Cesta je příliš dlouhá (PathTooLongException).
Uživatel nemá dostatečná oprávnění pro přístup k souboru (UnauthorizedAccessException).

Viz také

Sdílet prostřednictvím

Postupy: Čtení z textových souborů ve více formátech v jazyce Visual Basic

Jak analyzovat textový soubor s více formáty

Příklad

Robustní programování

Viz také

Úkoly

Referenční dokumentace

Koncepty

Další materiály