Moin ich hab ja mal im forum angedeutet das ich ein programm schreiben will das in der lage ist dateien zu übertragen....
jetz habe ich folgendes problem.
ich wollte jetz rausfindn was die letzte zeile einer datei ist und welche zeile das ist.....
hier ein testprogramm
[autoit]#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
Global $Hour, $Mins, $Secs, $Days
Opt("TrayIconDebug",1)
$File = FileOpen ( "autoit-v3-setup.exe", 16 )
$line = 1
Global $timer = TimerInit()
While 1
$Gelesene_Zeile = FileReadLine ( $File,$line )
If @error = -1 then ExitLoop
$line = $line + 1
Sleep(50)
WEnd
$line = $line - 1
_TicksToTime_MOD(Int(TimerDiff($timer)), $Hour, $Mins, $Secs, $Days )
MsgBox(0,"",$Mins&":"&$Secs)
MsgBox(0,"",""&$line)
$letzte_Zeile = FileReadLine ( $File,$line )
MsgBox(0,"",""&$letzte_Zeile)
Func _TicksToTime_MOD($iTicks, ByRef $iHours, ByRef $iMins, ByRef $iSecs , ByRef $iDays)
If Number($iTicks) > 0 Then
$iTicks = Round($iTicks / 1000)
$iDays = Int($iTicks / 86400)
$iTicks = Mod($iTicks, 86400)
$iHours = Int($iTicks / 3600)
$iTicks = Mod($iTicks, 3600)
$iMins = Int($iTicks / 60)
$iSecs = Round(Mod($iTicks, 60))
; If $iHours = 0 then $iHours = 24
Return 1
ElseIf Number($iTicks) = 0 Then
$iDays = 0
$iHours = 0
$iTicks = 0
$iMins = 0
$iSecs = 0
Return 1
Else
SetError(1)
Return 0
EndIf
EndFunc
für die autoit setup exe benötigt mein programm rund 7 minuten das ist aber zuviel und ich vermute mit fileread wird das kaum schneller gehen