ReadLine-Methode

Liest eine gesamte Zeile (bis zum, aber ohne das Zeilenvorschubzeichen) aus einer TextStream-Datei und gibt die resultierende Zeichenfolge zurück.

Syntax

object.ReadLine( )

Argumente

Object: Erforderlich. Immer der Name eines TextStream-Objekts.

Anmerkungen

Das folgende Beispiel veranschaulicht die Verwendung der ReadLine-Methode:

Beispiel 1:

Function ReadFirstLine(filepath)
    Const ForReading = 1
    Dim fso, theFile, firstLine
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set theFile = fso.OpenTextFile(filepath, ForReading)
    firstLine = theFile.ReadLine
    theFile.Close
    ReadFirstLine = firstLine
End Function

' Usage
Dim firstLineContent
firstLineContent = ReadFirstLine("C:\Path\To\Your\File.txt")

Beispiel 2:

Function ReadFileLineByLine(filepath)
    Const ForReading = 1
    Dim fso, theFile, line
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set theFile = fso.OpenTextFile(filepath, ForReading)
    Do While Not theFile.AtEndOfStream
        line = theFile.ReadLine
     Loop
    theFile.Close
End Function

' Usage
ReadFileLineByLine "C:\Path\To\Your\File.txt"