Como ler de arquivos de texto de largura fixa no Visual Basic

  • Artigo

O objeto TextFieldParser fornece uma maneira fácil e eficiente de analisar arquivos de texto estruturados, como logs.

A propriedade TextFieldType define se o arquivo analisado é um arquivo delimitado ou um arquivo com campos de texto de largura fixa. Em um arquivo de texto de largura fixa, o campo no final pode ter largura variável. Para especificar que o campo no final tenha largura variável, defina sua largura como menor ou igual a zero.

Para analisar um arquivo de texto de largura fixa

  1. Crie um 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 tem largura variável.

    Reader.TextFieldType =
Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
Reader.SetFieldWidths(5, 10, 11, -1)

  3. Percorra em loop os campos no arquivo. Se alguma linha estiver corrompida, relate um erro e continue com a análise.

    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ê 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:

  • Não é possível analisar uma linha usando o formato especificado (MalformedLineException). A mensagem de exceção especifica a linha que está causando a exceção, enquanto a propriedade ErrorLine é atribuída ao texto contido na linha.

  • O arquivo especificado não existe (FileNotFoundException).

  • Uma situação de confiança parcial 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).

Confira também