TextFieldParser.ReadLine, méthode

Article
08/21/2008

Mise à jour : novembre 2007

Retourne la ligne actuelle sous forme de chaîne et avance le curseur sur la ligne suivante.

' Usage
Dim value As String = TextFieldParserObject.ReadLine()
' Declaration
Public Function ReadLine() As String

Valeur de retour

String

Exceptions

La condition ci-dessous peut lever une exception :

Le fichier cible n'existe pas (FileNotFoundException).

Notes

La méthode ReadLine n'effectue aucune analyse ; un caractère de fin de ligne d'un champ délimité est interprété comme la fin de ligne réelle.

Nothing est retourné si la fin du fichier est atteinte.

Exemple

Cet exemple lit le fichier ParserText.txt et l'écrit dans Testfile.txt.

Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\ParserText.txt")
    MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
    MyReader.Delimiters = New String() {","}
    Dim currentRow As String
    While Not MyReader.EndOfData
        Try
            currentRow = MyReader.ReadLine()
            My.Computer.FileSystem.WriteAllText _
           ("C://testfile.txt", currentRow, True)
        Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
            MsgBox("Line " & ex.Message & " is invalid.  Skipping")
        End Try
    End While
End Using

Si Testfile.txt n'existe pas, il est créé par la méthode WriteAllText.

Cet exemple écrit les champs sous forme de chaîne unique. Pour que chaque ligne s'affiche dans son propre emplacement dans le fichier de destination, un caractère VbCrLf doit être ajouté à la fin de chaque ligne.