Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ReadLine und AtEndOfStream

ReadLine und AtEndOfStream
m3tm4n
Hallo zusammen,
Mein Problem ist, ich was programmiert in dem ich TXT Dateien einlese.
Diese Dateien sind so aufgebaut
:xyz
:xyz
:xyz
Und nutze die Funktion AtEndofStream um bis zum Ende der TXT zu lesen. Programm funktioniert tadellos.
Nun bekomme ich TXT Dateien die so aufgebaut sind
:xyz
:xyz
:xyz
irgendwas
irgendwas
irgendwas
Mich interessiert jetzt nur die Information mit ":" (Doppelpunkt) am Anfang.
Meine Idee war, das AtEndofStream zu verschieben auf den Letzten Wert mit ":".
Irgendwie funktioniert meine Idee nicht.
Jemand eine Idee?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: ReadLine und AtEndOfStream
27.03.2012 15:21:29
Rudi
Hallo,
der Code wäre interessant.
Verlasse einfach die Schleife, wenn : nicht vorkommt.
Dim fs, a, retstring
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfStream  True
retstring = a.ReadLine
if Left(retstring)":" Then
Exit Do
else
'Code
End If
Loop
a.Close
Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige