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

Artigo
02/25/2013

O objeto TextFieldParser fornece uma maneira para facilmente e com eficiência analisar arquivos texto estruturados, como logs.

O TextFieldType propriedade define se o arquivo analisado é um arquivo delimitado ou que possui 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 o campo no final tem uma largura variável, defina-o para ter uma largura menor que ou igual a zero.

Para analisar um arquivo de texto de largura fixa

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")
```
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)
```

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

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:

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 ao 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 de largura fixa no Visual Basic

Para analisar um arquivo de texto de largura fixa

Exemplo

Programação robusta

Consulte também

Tarefas

Referência

Conceitos

Recursos adicionais