guten Morgen !
ich habe hier ein kleines Problem, kann da jemand mal drüber gucken ?
es geht um folgendes...
[autoit]func getpriceBuy()
dim $filename=_FileListToArray("C:\ordner\")
if @Error<>4 Then
;MsgBox(0, "File gefunden", $filename[1])
dim $file= FileOPEN("C:\ordner\"& $filename[1], 0)
dim $linefound=0
dim $bopreisint
if $file <> -1 Then
while $linefound=0
$line = FileReadLine($file)
;MsgBox(0, "testline", $line)
if StringInStr($line, "True")<>0 and StringinStr($line, "60003760")<>0 Then
$linefound=1
$bopreisint = _StringBetween($line,"",",")
$bopreis=round(number(stringreplace($bopreisint[0],",",".")),2)
;MsgBox(0, "BoPreis", $bopreisint[0])
;ClipPut($bopreis)
EndIf
Wend
EndIf
FileClose($file)
if @Error= -1 Then
MsgBox(0,"File korrupt", "ok")
FileDelete("C:\Ordner\"& $filename[1])
Else
FileDelete("C:\Ordner\"& $filename[1])
return $bopreis
EndIf
EndIf
EndFunc]
Im Prinzig geht es darum, daß es vorkommen kann, daß die Datei einen 0-Byte wert hat. Da die Datei 0 Byte hat, weiß ich jetzt nicht, ob nun FileOpen einen @error zurückwirft, oder ob erst der versuch, den String zu splitten einen möglichen Error zurückwirft.
Eigentlich sollte es abgefangen werden können, daß es eine 0-byte datei gab. Wenn es eine 0-Byte datei gab, soll das script einfach die funktion beenden.
Kann mir hier jemand helfen ?