Fehler beim Eintragen in ein 2D Array

Func _Source_auslesen()
$file = FileOpen(@Scriptdir&"\Temp\source.txt",0)
$line_login = Filereadline($file,110)
$login = StringTrimRight(StringTrimLeft($line_login,69),20)
$get_username = IniRead(@Scriptdir&"\userdata.ini","Login","Username","")
If StringCompare($login,$get_username) Then
MsgBox(48,"Fehler","Quelltext wurde verändert."&@CRLF&"Bitte Problem beheben!")
Exit
Else
$line_dateien = Filereadline($file,120)
$array_dateien = _StringBetween($line_dateien,"<b>","</b>")
$line_points = Filereadline($file,123)
$array_points = _StringBetween($line_points,"<b>","</b>")
$line_speicher = Filereadline($file,125)
$array_speicher = _StringBetween($line_speicher,"<b>","</b>")
$line_speicher = Filereadline($file,125)
$array_speicher = _StringBetween($line_speicher,"<b>","</b>")
$line_points_pu = Filereadline($file,128)
$array_points_pu = _StringBetween($line_points_pu,"<b>","</b>")
FileClose($file)
$lastline = $array_dateien[0]*9
Local $array_files[$array_dateien[0]+1][6]
MsgBox(0,"",$array_dateien[0])
For $d = 1 to $array_dateien[0]
$start = 205+($d*9)
$end = $start+9
For $i = $start To $end
$read_line = FileReadLine($file,$i)
$array_line = Stringsplit(Stringtrimright(Stringtrimleft($read_line,9),2),'"',1)
If UBound($array_line) = 3 Then
EndIf
If UBound($array_line) = 6 Then
If StringCompare($array_line[3],"fileid") = 0 Then
$fileid = $array_line[5]
EndIf
If StringCompare($array_line[3],"filename") = 0 Then
$filename = $array_line[5]
EndIf
If StringCompare($array_line[3],"downloads") = 0 Then
$downloads = $array_line[5]
EndIf
If StringCompare($array_line[3],"sizekb") = 0 Then
$sizekb = $array_line[5]
EndIf
EndIf
If UBound($array_line) = 5 Then
If StringCompare($array_line[3],"lastdownload") = 0 Then
$lastdownload = StringTrimleft($array_line[4],5)
EndIf
If StringCompare($array_line[3],"killcode") = 0 Then
$killcode = StringTrimleft($array_line[4],5)
EndIf
EndIf
Next
$array_files[$d][0] = $fileid
$array_files[$d][1] = $filename
$array_files[$d][2] = $downloads
$array_files[$d][3] = $sizekb
$array_files[$d][4] = $lastdownload
$array_files[$d][5] = $killcode
Next
EndIf
Return $array_files
Endfunc; ==> _Source_auslesen