Como: ler arquivos de texto delimitado por vírgula em Visual Basic

Artigo
02/25/2013

O objeto TextFieldParser fornece uma maneira para facilmente e com eficiência analisar arquivos 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 separado por vírgulas

Crie um novo 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")

Defina o tipo e delimitador do TextField .O código a seguir define a propriedade TextFieldType como Delimited e o delimitador como ",".
```
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(",")
```

Faça um loop através dos campos no arquivo.Se alguma linha estiver corrompida, relate um erro e continue a análise.O código a seguir faz um loop no arquivo, exibindo cada campo por 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

Feche os blocos While e Using com End While e End Using.
```
   End While
End Using
```

Exemplo

Este exemplo lê a partir 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:

Uma linha não pode ser analisado usando o formato especificado (MalformedLineException).A mensagem de exceção Especifica a linha causando a exceção, enquanto o ErrorLine property é atribuída o texto contido na linha.
O arquivo especificado não existe (FileNotFoundException).
Uma situação de confiança parcial (partial-trust) na qual o usuário não tem permissões suficientes para acessar o arquivo.(SecurityException).
O caminho é muito longo (PathTooLongException).
O usuário não tem permissões suficientes para acessar o arquivo (UnauthorizedAccessException).

Consulte também

Compartilhar via

Como: ler arquivos de texto delimitado por vírgula em Visual Basic

Para analisar um arquivo de texto separado por vírgulas

Exemplo

Programação robusta

Consulte também

Tarefas

Referência

Conceitos

Recursos adicionais