Nächste Zeile einlesen

[Mjolnir]

Guude,

ich wiedermal

ich lese anhand vom FileSystemObject über readline sätze aus einer datei aus.

meine frage is nu:

wie kann ich der funktion mitgeben, das sie die nächste zeile auslesen soll?

bin für alle vorschläge offen...

    Dim fso As Scripting.FileSystemObject Dim ts


    Set fso = CreateObject("Scripting.FileSystemObject")

    Set ts = fso.OpenTextFile(PATH, ForReading)

    Do While Not ts.AtEndOfStream

        If ts.ReadLine = UID Then

            ????

            If ts.ReadLine = frmPwd.txtPwd.Text Then ReadAndCompare = True

        End If

    Loop

    ts.Close

danke und greetz

Mjolnir

[ByteRix]

Hier mal ein Beispiel:

Dim FSO as Scripting.FileSystemObject

Dim TS as Scripting.TextStream

Dim ReadLine as String

Set FSO = new FileSystemObject

Set TS = FSO.OpenTextFile("Datei.txt", ForReading, False)


Do Until TS.AtEndOfStream

      ReadLine = TS.ReadLine

      'Hier wird in einer Schleife Zeile für Zeile gelesen...

      MsgBox ReadLine

Loop

TS.close

mfg byte

[Mjolnir]

yo, danke erstmal für die antwort.

warn bischen verpeilt (wird zeit, das es WE gibt )

jetzt hab ichs so, wie ichs haben will.

Greetz

Mjolnir