Como: ler a partir de arquivos de texto de largura fixa no Visual Basic

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

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

Para analisar um arquivo de texto de largura fixa

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

   Using Reader As New Microsoft.VisualBasic.
       FileIO.TextFieldParser("C:\TestFolder\test.log")
   

2. Defina a TextFieldType propriedade como FixedWidth, definindo a largura e o formato. O código a seguir define as colunas de texto; o primeiro tem 5 caracteres de largura, o segundo 10, o terceiro 11 e o quarto é de largura variável.

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

3. Percorra os campos no arquivo. Se alguma linha estiver corrompida, reporte 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 While blocos e Using com End While e End Using.

       End While
   End Using
   

Exemplo

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

• Uma linha não pode ser analisada usando o formato especificado (MalformedLineException). A mensagem de exceção especifica a linha que causa a exceção, enquanto a ErrorLine propriedade é 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).

Ver também

• Microsoft.VisualBasic.FileIO.TextFieldParser
• Como Ler Arquivos de Texto Comma-Delimited
• Como: Ler a partir de arquivos de texto com vários formatos
• Analisando arquivos de texto com o objeto TextFieldParser
• Passo a passo: Manipulando arquivos e diretórios no Visual Basic
• Resolução de problemas: Ler e escrever em ficheiros de texto