Метод TextFieldParser.ReadLine

Статья
11/05/2008

Обновлен: Ноябрь 2007

Возвращает текущую строку в виде текста и перемещает курсор к следующей строке.

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

Возвращаемое значение

String

Исключения

Следующее условие может вызвать исключение:

Целевой файл не существует(FileNotFoundException).

Заметки

Метод ReadLine не выполняет синтаксический анализ; символ конца строки в выбранной области интерпретируется как фактический конец строки.

Nothing возвращается, если достигнут конец файла.

Пример

В этом примере выполняется считывание из файла ParserText.txt и запись в файл 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

Если файл Testfile.txt не существует, он будет создан с помощью метода WriteAllText.

В этом примере поля записываются в виде одной строки; чтобы отображение каждой строки было в отдельной строке файла назначения, в конец каждой строки должен быть добавлен знак VbCrLf.