Método TextFieldParser.ReadLine

Artigo
08/25/2010

Retorna a linha corrente sistema autônomo uma seqüência de caracteres e avança o cursor para a próxima linha.

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

Valor de retorno

String

Exceções

A seguinte condição pode fazer com que uma exceção seja lançada:

Arquivo de destino não existe (FileNotFoundException).

Comentários

O método ReadLinenão executa análises; um caractere de fim-de-linha dentro de um campo delimitado é interpretado como o próprio fim da linha.

Nothing será retornado se o participante do arquivo é alcançado.

Exemplo

Este exemplo lê ao arquivo ParserText.txt e grava nele para 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

Se Testfile.txt não existir, ele é criado pelo método WriteAllText.

Este exemplo grava sistema autônomo campos sistema autônomo uma única cadeia de caracteres; para que cada linha exiba em sua própria linha no arquivo de destino, um VbCrLf caractere deve ser acrescentado no participante de cada linha.