TextFieldParser.EndOfData, propriété

Article
08/21/2008

Mise à jour : novembre 2007

Retourne True s'il n'existe aucune ligne non vide et sans commentaire entre la position actuelle du curseur et la fin du fichier.

' Usage
Dim value As Boolean = TextFieldParserObject.EndOfData
' Declaration
Public ReadOnly Property EndOfData As Boolean

Valeur de retour

Boolean.

Notes

Cette propriété peut être utilisée lors de la lecture de fichiers pour déterminer la fin des données lues.

Tâches

Le tableau suivant répertorie des exemples de tâches impliquant la propriété EndOfData.

Pour	Consultez
Lire un fichier délimité	Comment : lire des fichiers texte délimités par des virgules dans Visual Basic
Lire un fichier à largeur fixe	Comment : lire des fichiers texte de largeur fixe dans Visual Basic

Exemple

Cet exemple utilise la propriété EndofData pour parcourir tous les champs du fichier à l'aide de TextFieldReader, FileReader.

Dim StdFormat As Integer() = {5, 10, 11, -1}
Dim ErrorFormat As Integer() = {5, 5, -1}
Using FileReader As New _
Microsoft.VisualBasic.FileIO.TextFieldParser("C:\testfile.txt")
    FileReader.TextFieldType = FileIO.FieldType.FixedWidth
    FileReader.FieldWidths = StdFormat
    Dim CurrentRow As String()
    While Not FileReader.EndOfData
        Try
            Dim RowType As String = FileReader.PeekChars(3)
            If String.Compare(RowType, "Err") = 0 Then
                ' If this line describes an error, the format of the row will be different.
                FileReader.SetFieldWidths(ErrorFormat)
                CurrentRow = FileReader.ReadFields
                FileReader.SetFieldWidths(StdFormat)
            Else
                ' Otherwise parse the fields normally
                CurrentRow = FileReader.ReadFields
                For Each newString As String In CurrentRow
                    My.Computer.FileSystem.WriteAllText("newFile.txt", newString, True)
                Next
            End If
        Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
            MsgBox("Line " & ex.Message & " is invalid.  Skipping")
        End Try
    End While
End Using

Configuration requise

Espace de noms :Microsoft.VisualBasic.FileIO

Classe :TextFieldParser

Assembly : bibliothèque runtime Visual Basic (dans Microsoft.VisualBasic.dll)

Autorisations

Les autorisations suivantes sont requises :

Autorisation	Description
FileIOPermission	Contrôle la possibilité d'accéder à des fichiers et à des dossiers. Énumération associée : Unrestricted.
SecurityPermission	Décrit un jeu d'autorisations de sécurité appliquées au code. Énumération associée : ControlEvidence.

Pour plus d'informations, consultez Sécurité d'accès du code et Demande d'autorisations.

Voir aussi

Référence

TextFieldParser, objet

TextFieldParser.EndOfData

Partager via