Udostępnij za pośrednictwem


Porady: odczytywanie z plików tekstowych z wieloma formatami w Visual Basic

Obiekt TextFieldParser umożliwia łatwe i wydajne analizowanie plików tekstowych ze strukturą, takich jak dzienniki. Plik można przetworzyć z wieloma formatami przy użyciu PeekChars metody , aby określić format każdego wiersza podczas analizowania pliku.

Aby przeanalizować plik tekstowy z wieloma formatami

  1. Dodaj plik tekstowy o nazwie testfile.txt do projektu. Dodaj następującą zawartość do pliku tekstowego:

    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.
    
  2. Zdefiniuj oczekiwany format i format używany podczas zgłaszania błędu. Ostatni wpis w każdej tablicy to -1, dlatego przyjmuje się, że ostatnie pole ma szerokość zmiennej. Dzieje się tak, gdy ostatni wpis w tablicy jest mniejszy lub równy 0.

    Dim stdFormat As Integer() = {5, 10, 11, -1}
    Dim errorFormat As Integer() = {5, 5, -1}
    
  3. Utwórz nowy TextFieldParser obiekt, definiując szerokość i format.

    Using MyReader As New FileIO.TextFieldParser("..\..\testfile.txt")
        MyReader.TextFieldType = FileIO.FieldType.FixedWidth
        MyReader.FieldWidths = stdFormat
    
  4. Przejmij pętlę przez wiersze, testowanie pod kątem formatu przed odczytaniem.

    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()
    
  5. Zapisywanie błędów w konsoli programu .

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

Przykład

Poniżej przedstawiono kompletny przykład odczytujący z pliku 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()

Niezawodne programowanie

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

Zobacz też