Letzte Zeile einer sich ändernden .txt auslesen und eine textausgabe erstellen

Mennimax

Hey liebe Community,
ich würde gerne wissen wie es möglich ist aus einer .txt Datei jede Sekunde die letzte Zeile auszulesen.

nehme ich mal an die Datei ist auf dem Pfad C:\ und heißt Test.txt

"$file = FileOpen("C:\test.txt", -1)"

und ein externes Programm listet in (zeitlich) unregelmäßigen abständen eine zahl in diese Test.txt datei

z.b.

18
25
66
93

so möchte ich, dass autoit erkennt, wenn die zahl 66 geschrieben wurde, und soll dann in meinem aktiven Fenster eine Textausgabe in Form von

If "Befehl, wenn die zahl 66 erkannt wird"
My.Computer.Keyboard.SendKeys("Text der geschrieben werden soll")
End If

Tut mir leid wenn es etwas unverständlich geschrieben ist, bin noch ein Anfänger in Sachen AutoIt.
Danke schonmal im vorraus.

MfG Mennimax

**alpines**

[autoit]

FileReadLine()
#include <File.au3>
_FileCountLines()

[/autoit]

Mennimax

Danke für die Antwort alpines

Demnach wäre ich bei

Code

#include <File.au3>


$file = FileOpen("C:\test.txt", -1) 
FileReadLine


If "Befehl, wenn die zahl 66 erkannt wird"
My.Computer.Keyboard.SendKeys("Text der geschrieben werden soll")
End If

dann wird jedoch die letzte zeile nur einmal und nicht wiederholt ausgelesen oder sehe ich das falsch?

**alpines**

Ich hätte das so gemacht

[autoit]

#include <File.au3>

[/autoit][autoit][/autoit][autoit]

While Sleep(100)
If FileReadLine("C:\test.txt", _FileCountLines("C:\test.txt")) = "66" Then;oder wie du das willst
;...
EndIf
WEnd

[/autoit]

Mennimax

Code

#include <File.au3>


While Sleep(100)
If FileReadLine("C:\test.txt", _FileCountLines("C:\test.txt")) = "66" Then;


                        SendChat("test")


EndIf
WEnd

Alles anzeigen

also wenn ich das jetzt richtig verstehe wird

1. "While Sleep(100)" der Befehl bis "WEnd" alle 100ms ausgeführt
2. "If FileReadLine" in der zuvor geöffneten Datei nur die letzte Zeile ausgelesen
3. sobald "66" in der letzten Zeile ausgelesen wird "then" aktiviert
4. und "then" wird automatisch durch "SendChat("test")" das wort "test" das momentan aktive fenster z.b. browser url schreiben

5.wird der "then"-Befehl durch "EndIf" abgeschlossen?
6. oder ist der Befehl "SendChat("test")" eher durch "My.Computer.Keyboard.SendKeys("test")" zu ersetzen?

Danke für die hilfreichen Antworten

**Kanashius**

[autoit]

#include <File.au3> ;Include für Datei-Funktionen (Hier: _FlieCountLines)
While Sleep(100);While schleife, bevor sie erneut ausgeführt wird, wird 100ms gewartet
If FileReadLine("C:\test.txt", _FileCountLines("C:\test.txt")) = "66" Then ;if-Bedingung: Alles was zwischen If und Then steht, ist die Bedingung. Wenn der "Boolsche-Ausdruck" wahr ist, wird alles bis zum
;endif ausgeführt.
Send("test") ;Drückt die Tasten "t","e","s","t" Nacheinander
EndIf;Ende der Bedingung (kann mit "elseif ... then ..." erweitert werden, oder mit "else ... endif" der Fall, dass alles davor nicht wahr war.
WEnd;ende der while-schleife

[/autoit]

Du solltest dir die Grundlagen von AutoIt genauer ansehen. Es gibt einige nette Tutorials in dem Forum dazu.

Mfg Kanashius

**AspirinJunkie**

_FileCountLines() liest jedesmal die komplette Datei von Anfang bis Ende ein, splittet die Zeilen per RegEx in ein Array und gibt die Zeilennummer anhand der Arraydimension zurück.
Das anschließende FileReadLine nimmt sich dann die selbe Datei vor und geht sie von Anfang an durch, zählt dabei die auftretenden Zeilenumbrüche bis zur letzten Zeile.
Ein wahnsinniger Aufwand nur um die letzte Zeile zu ermitteln.
Bei kleinen Dateien mag das vielleicht noch vertretbar sein, aber bei großen Dateien und vor allem wenn sie wiederholt ausgelesen werden sollen, wäre eine Alternative sehr ratsam.
Sinnvoll ist es daher, wenn man sich schon nur für das Dateiende interessiert, auch rückwärts von diesem aus anzufangen mit dem Auslesen.
Alles was davor kommt interessiert uns nicht.

Dieser Ansatz hier mal als Funktion verpackt:

Funktion _FileGetLastRow() zum Auslesen der letzten Zeile einer Datei

[autoit]

Global $s_File = "C:\Test.txt"