TextFieldParser.ReadLine (Método)

Artículo
08/23/2008

Actualización: noviembre 2007

Devuelve la línea actual como una cadena y avanza el cursor a la línea siguiente.

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

Valor devuelto

String

Excepciones

La condición siguiente puede hacer que se produzca una excepción:

El archivo de destino no existe (FileNotFoundException).

Comentarios

El método ReadLine no realiza ningún análisis; un carácter de fin de línea en un campo delimitado se interpreta como el fin real de la línea.

Se devuelve Nothing si se llega al fin del archivo.

Ejemplo

Este ejemplo lee el archivo ParserText.txt y lo escribe en 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 no existe, el métodoWriteAllText lo crea.

En este ejemplo se escriben los campos como una única cadena; para que cada línea se muestre en su propia línea en el archivo de destino, se debe anexar un carácter VbCrLf al final de cada línea.