Partilhar via


Como: Leitura de arquivos de texto de largura fixa no Visual Basic

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 especificar um campo de largura variável em um arquivo de largura fixa, defina a largura do campo como -1.

Para analisar um arquivo de texto de largura fixa

  1. Crie um novo TextFieldParser.O código a seguir cria o TextFieldParser chamado Reader e abre o arquivo test.log.

    Using Reader As New _
    Microsoft.VisualBasic.FileIO.TextFieldParser _
    ("C:\TestFolder\test.log")
    
  2. Defina a propriedade TextFieldType como FixedWidth, definindo a largura e o formato.O código a seguir define as colunas de texto; a primeira tem 5 caracteres de largura, a segunda tem 10 , a terceira tem 11, e a quarta é de largura variável..

    Reader.TextFieldType = _
    Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
    Reader.SetFieldWidths(5, 10, 11, -1)
    
  3. Faça um loop através dos campos no arquivo.Se alguma das linhas estiver corrompida, relate um erro e continue analisando.

    Dim currentRow As String()
       While Not Reader.EndOfData
          Try
             currentRow = Reader.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ê a partir do arquivo test.log.

Using Reader As New _
Microsoft.VisualBasic.FileIO.TextFieldParser("C:\TestFolder\test.log")
   Reader.TextFieldType = _
   Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
   Reader.SetFieldWidths(5, 10, 11, -1)
   Dim currentRow As String()
   While Not Reader.EndOfData
      Try
         currentRow = Reader.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:

Consulte também

Tarefas

Como: Leitura de arquivos de texto delimitado por vírgula no Visual Basic

Como: Ler From Texto Files with Multiple formatos no Visual Basic

Demonstra Passo a passo: Manipulação de arquivos e pastas no Visual Basic

Solução de problemas: Leitura e gravação em arquivos de texto

Solucionando problemas de exceções: Microsoft.VisualBasic.FileIO.TextFieldParser.MalformedLineException

Conceitos

Analisar Arquivos de Texto com o Objeto TextFieldParser

Referência

TextFieldParser Objeto