Hi@ all
Hab da mal ne Frage:
Habe mir ein Skript gebastelt, welches mir den LETZTEN Wert in einer Zeile in einem Log-File ausgibt.
Spoiler anzeigen
#include <Array.au3>
$file = "log.log"
$file = FileOpen($file, 0)
Dim $avArray[1]
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$result =StringInStr($line,"EAN-Code:")
If $result = 1 Then
$ean = StringTrimLeft ( $line, 10 )
_ArrayAdd( $avArray,$ean)
EndIf
WEnd
FileClose($file)
;_ArrayDisplay( $avArray, "Updated Array" )
$last=UBound($avArray)
$last = $avArray[$last-1]
MsgBox(0,"letzter Eintrag","der letzte eintrag war "&$last)
log-FILE :
Spoiler anzeigen
----------------------------------------
[08-24-2009 - 11:02:03]:
Version: Ver. 2.04
EAN-Code: 4022709224101
Variante: 19
EEPROM Format: Ver. 09.00
Quarzabweichung: 7.65[s/d] abgeglichen auf +0.00[s/d]
Temperatur: 24.09[°C]
----------------------------------------
[08-24-2009 - 11:03:03]:
Version: Ver. 2.04
EAN-Code: 4025709224101
Variante: 20
EEPROM Format: Ver. 09.00
Quarzabweichung: 7.65[s/d] abgeglichen auf +0.00[s/d]
Temperatur: 24.09[°C]
----------------------------------------
####
so : Funktioniert super. . . ABER viel zu langsam !!
die Files haben in der regel 2 MB ( Monatsweise )
Die Ausgabe dauert rund 40 Sek.
Hat jemand ne Idee, wie des schneller gehen kann ?
Irgend wie File von hinten her lesen ?
oder kurz vor Ende anfangen ? irgend wie sowas ..
DANKE !