Comment : lire des fichiers texte de largeur fixe dans Visual Basic

Article
03/04/2013

L'objet TextFieldParser permet d'analyser facilement et efficacement les fichiers texte structurés, tels que les journaux.

La propriété TextFieldType définit si le fichier analysé est un fichier délimité ou un fichier dont les champs de texte ont une largeur fixe.Dans un fichier texte à largeur fixe, le champ à la fin peut avoir une largeur variable.Pour spécifier que le champ à la fin a une largeur variable, définissez-le de sorte qu'il ait une largeur inférieure ou égale à zéro.

Pour lire un fichier texte à largeur fixe

Créez un TextFieldParser.Le code suivant crée le TextFieldParser nommé Reader et ouvre le fichier test.log.
```
Using Reader As New Microsoft.VisualBasic.
    FileIO.TextFieldParser("C:\TestFolder\test.log")
```
Affectez à la propriété TextFieldType la valeur FixedWidth en définissant la largeur et le format.Le code suivant définit les colonnes de texte. La première a une largeur de 5 caractères, la deuxième de 10, la troisième de 11, tandis que la quatrième a une largeur variable.
```
Reader.TextFieldType =
Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
Reader.SetFieldWidths(5, 10, 11, -1)
```

Parcourez les champs du fichier.Si des lignes sont endommagées, signalez une erreur poursuivez l'analyse.

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

Fermez les blocs While et Using avec End While et End Using.
```
   End While
End Using
```

Exemple

Cet exemple lit le fichier 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

Programmation fiable

Les conditions ci-dessous peuvent générer une exception.

Une ligne ne peut pas être analysée avec le format spécifié (MalformedLineException).Le message d'exception spécifie la ligne qui provoque l'exception, tandis que la propriété ErrorLine est assignée au texte contenu dans la ligne.
Le fichier spécifié n'existe pas (FileNotFoundException).
Une situation de niveau de confiance partiel dans laquelle l'utilisateur n'a pas les autorisations suffisantes pour accéder au fichier.(SecurityException).
Le chemin d'accès est trop long (PathTooLongException
L'utilisateur n'a pas les autorisations suffisantes pour accéder au fichier (UnauthorizedAccessException).

Voir aussi

Partager via

Comment : lire des fichiers texte de largeur fixe dans Visual Basic

Pour lire un fichier texte à largeur fixe

Exemple

Programmation fiable

Voir aussi

Tâches

Référence

Concepts

Ressources supplémentaires