4
Letzte zeile einlesen und ausgeben
VBS Script um die letzte Zeile einer Textdatei asugeben
Ich möchte eine Textdatei die von einem anderen Programm alle paar Sekunden neu geschrieben wird
in einer Box ausgeben und zwar immer die letzte aktuelle Zeile.
und wenn ein bestimmter Text in der letzten Zeile steht soll das VBS Script beendet werden
Geht das und wie ?
in einer Box ausgeben und zwar immer die letzte aktuelle Zeile.
und wenn ein bestimmter Text in der letzten Zeile steht soll das VBS Script beendet werden
Geht das und wie ?
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 74321
Url: https://administrator.de/contentid/74321
Printed on: April 23, 2024 at 07:04 o'clock
4 Comments
Latest comment
Moin freysup,
Und ob jede Zeile sofort "in die Datei geschrieben" wird, oder erst ein Buffer für 2000 Zeilen volllaufen muss, bevor eine flush()/commit()-Aktion des schreibenden Programms erfolgt.
Hast Du denn darüber gesicherte Erkenntnisse?
Grüße
Biber
Geht das und wie ?
Das kommt darauf an, ob dieses schreibende Programm zwischendurch den lesenden Zugriff erlaubt.Und ob jede Zeile sofort "in die Datei geschrieben" wird, oder erst ein Buffer für 2000 Zeilen volllaufen muss, bevor eine flush()/commit()-Aktion des schreibenden Programms erfolgt.
Hast Du denn darüber gesicherte Erkenntnisse?
Grüße
Biber
ich kann die Datei jederzeit öffnen
Hallo freysup!
Die Grundstruktur müsste etwa so aussehen:
Falls die letzte Zeile mit einer Zeilenschaltung endet (und daher eigentlich am Ende eine zusätzliche völlig leere Zeile steht) , wäre ersatzweise
zu verwenden.
Grüße
bastla
Die Grundstruktur müsste etwa so aussehen:
Const Datei = "D:\Log.txt"
Const Suchstring = "Dein Text"
Set fso=CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Do
Text = Split(fso.OpenTextFile(Datei, 1).ReadAll, vbCrLF)
Letzte = Text(UBound(Text))
WshShell.Popup Letzte, 5, "Letzte Zeile" 'Anzeigedauer 5 Sekunden
WScript.Sleep 5000 '5 Sekunden Pause
Loop Until InStr(Letzte, Suchstring) > 0 Letzte = Text(UBound(Text) - 1)Grüße
bastla
@freysup
Moin freysup,
Sach ma', fehlt da oben nicht noch so grüner Haken?
Oder sind noch Fragen offen? Gib uns bitte Feedback.
nein, Feedback heißt nicht "Füße zurücknehmen oder hochlegen"...
Grüße
Biber
Moin freysup,
Sach ma', fehlt da oben nicht noch so grüner Haken?
Oder sind noch Fragen offen? Gib uns bitte Feedback.
nein, Feedback heißt nicht "Füße zurücknehmen oder hochlegen"...
Grüße
Biber
