Compartilhar via


Como ler em arquivos de texto separados por vírgulas no Visual Basic

O objeto TextFieldParser fornece uma maneira fácil e eficiente de analisar arquivos de texto estruturados, como logs. A propriedade TextFieldType define se ele é um arquivo delimitado ou um arquivo com campos de texto de largura fixa.

Para analisar um arquivo de texto delimitado por vírgulas

  1. Crie um TextFieldParser. O código a seguir cria o TextFieldParser chamado MyReader e abre o arquivo test.txt.

    Using MyReader As New Microsoft.VisualBasic.
                          FileIO.TextFieldParser(
                            "C:\TestFolder\test.txt")
    
  2. Defina o delimitador e o tipo TextField. O código a seguir define a propriedade TextFieldType como Delimited e o delimitador como “,”.

    MyReader.TextFieldType = FileIO.FieldType.Delimited
    MyReader.SetDelimiters(",")
    
  3. Percorra em loop os campos no arquivo. Se alguma linha estiver corrompida, relate um erro e continue a análise. O código a seguir faz um loop pelo arquivo, exibindo cada campo por sua vez e relatando quaisquer campos que estejam formatados incorretamente.

    
    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. Feche os blocos While e Using com End While e End Using.

        End While
    End Using
    

Exemplo

Este exemplo lê do arquivo test.txt.

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

Programação robusta

As seguintes condições podem causar uma exceção:

Confira também