0 Byte Dateien ausfiltern

1. offizieller Beitrag

    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]

    [/autoit]

    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 ?