Kann mir jemand helfen Fehler besser abzufangen? - Array variable has incorrect number of...

#include <File.au3>
#include <InetConstants.au3>
#include <String.au3>


;#AutoIt3Wrapper_Run_Debug_Mode=Y


Global $pEPGDaten = "m:\EPGDaten.txt"
Global $aEPGdaten[0][5]
Global $iSenderID = 0, $iStartzeit = 1, $iDauer = 2, $iSendungsID = 3, $iSendung = 4
Global $IP = "192.168.78.20", $Port = 80
Global $URL = "http://" & $IP & ":" & $Port & "/control/epg?ext"


$Spacer = _StringRepeat("-", 72)


Bsp()
ConsoleWrite($Spacer & @CR)
;_ArrayDisplay($aEPGdaten, "$aEPGdaten")


_FindSendung("Da kommt Kalle", 2, 1)    ; $Anzahl, $Direction
ConsoleWrite($Spacer & @CR)


Func Bsp()
    ConsoleWrite($Spacer & @CR)
    If Not FileExists($pEPGDaten) Then
        ; Download the file in the background with the selected option of 'force a reload from the remote site.'
        Local $hDownload = InetGet($URL, $pEPGDaten, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)
        ConsoleWrite("Download the file in the background" & @CR)
        Do
            Sleep(250)
        Until InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE)


        ; Retrieve the number of total bytes received and the filesize.
        Local $iBytesSize = InetGetInfo($hDownload, $INET_DOWNLOADREAD)
        Local $iFileSize = FileGetSize($pEPGDaten)


        ; Close the handle returned by InetGet.
        InetClose($hDownload)


        ; Display details about the total number of bytes read and the filesize.
        ConsoleWrite("The total download size: " & $iBytesSize & @CR)
        ConsoleWrite("The total filesize     : " & $iFileSize & @CR)
        ConsoleWrite($Spacer & @CR)
    EndIf
    Local $aTemp
    If Not _FileReadToArray($pEPGDaten, $aTemp, $FRTA_NOCOUNT)    Then ; array is 0-based use UBound() to get size
        _Error("_FileReadToArray()", @error, @extended)
    Else


        Local $ubTemp = UBound($aTemp), $sSendung, $progress = $ubTemp / 10
        For $i = 0 To $ubTemp - 1
            If $i == 1 Or $i == 250 Or $i == 500 Or $i == 750 Or $i == 1000 Or $i == 1250 Or $i == 1500 Or $i == 1750 Or $i == 2000 _
            Then ConsoleWrite("Lese Daten in Array ein... bitte warten... " & $i & "/" & $ubTemp & @CR)
            If $aTemp[$i] = "" Then ContinueLoop
            $aSplit = StringSplit($aTemp[$i] , " ")
            $Error = @error
            Local $ubSplit = UBound($aSplit) - 1
            If $ubSplit >= 5 Then ; < 5 = Fehler!
                $sSendung  = ""
                For $j = 5 To $ubSplit
                    If $sSendung  = "" Then
                        $sSendung = $aSplit[$j]
                    Else
                        $sSendung &= " " & $aSplit[$j]
                    EndIf
                Next
                Local $aLine[1][5] = [[$aSplit[1], $aSplit[2], $aSplit[3], $aSplit[4], $sSendung]]
                _ArrayAdd($aEPGdaten, $aLine, 0)
            Else
                _Error("$StringSplit()", $Error, "", "Split = " & $ubSplit & " in Line " & $i +1)
            EndIf
        Next
        ConsoleWrite("OK - Daten wurden in Array eingelesen..." & @CR)
    EndIf
EndFunc


Func _FindSendung($sSendung, $Anzahl = 1, $Direction = 0) ; $Anzahl: -1 = Alle, $Direction: 0 = ascending, 1 = descended
    If $sSendung == "" Then
        ConsoleWrite("Keine Sendung als Suchparameter angegeben!" & @LF)
        Exit
    Else
        ConsoleWrite("Suche Sendung: " & $sSendung & @LF)
    EndIf
    If $Anzahl == -1 Then $Anzahl = UBound($aEPGdaten) - 1
    If $Direction == 0 Then
        $j = 0
        $k = UBound($aEPGdaten) - 1
        $Step = "1"
    Else
        $j = UBound($aEPGdaten) - 1
        $k = 0
        $Step = "-1"
    EndIf
    For $i = $j To $k Step $Step
        If $aEPGdaten[$i][$iSendung] == $sSendung Then
            ConsoleWrite("Sendung Nr. " & $i + 1 & " --> " & $aEPGdaten[$i][$iSendung] & @LF)
            $Anzahl -= 1
            If $Anzahl == 0 Then ExitLoop
        Else
            ContinueLoop
        EndIf
    Next
EndFunc


Func _Error($ErrorText, $Error, $Extended = "", $Kommentar = "")
    If $Extended == "" Then
        $Extended = ""
    Else
        $Extended = ', @extended = ' & $Extended
    EndIf
    If $Error == "" Then
        $Error = ""
    Else
        $Error = ', @error = ' & $Error
    EndIf
    Switch $ErrorText
        Case $ErrorText = "_FileReadToArray()"
            If $Error = 1 Then $Error = $Error & " [Error opening specified file]"
            If $Error = 2 Then $Error = $Error & " [Unable to split the file]"
            If $Error = 3 Then $Error = $Error & " [File lines have different numbers of fields (only if $FRTA_INTARRAYS flag not set)]"
            If $Error = 4 Then $Error = $Error & " [(No delimiters found (only if $FRTA_INTARRAYS flag not set)]"
        Case $ErrorText = "$StringSplit()"
    EndSwitch
    ConsoleWrite("!Fehler bei: " & $ErrorText & $Error & $Extended & " [" & $Kommentar & "]" & @CR)
    Exit
EndFunc