Was gibt dir denn
AutoItConsoleWrite(UBound($FileReadArray) - 1 & @CRLF) For $h = 0 To 4 Step 1;normal To 3 aber wegen der 5. Zeile $hAdd = $h + 1 $FileReadArray[$h]= FileReadLine($FileOpenArray[$x], $hAdd) $BotInfoLines[$x][$h] = $FileReadArray[$h] ;~ MsgBox(0, $count, $BotInfoLines[$x][$h] & "[" & $x & "]" & "[" & $h & "]" & @CR & $FilePathArray[$x]);only for debugging Next
aus?Btw, die Begriffe "Bot*" sind nicht besonderns geschickt gewählt.
Nun gibt er mir in der Konsole eine "4" aus. Wobei es in der Datei Struktur ein wenig komisch aussieht.
[Blockierte Grafik: http://i.imgur.com/aXW65Mc.png]
Jetzt heißen Datei 0.edx, 1.edx, 2.edx, 3.edx und 4.edx nicht mehr 0.edx, 1.edx, 2.edx, 3.edx und 4.edx sondern 0.edx, 2.edx, 4.edx, 6.edx und 7.edx..
Das ist echt alles komisch, zu mal ich mir das nicht erklären kann warum es ab 6 Dateien aufeinmal klappt..
AutoIt
Global $BotSelected
Global $FileOpenArray[$dir[0]]
Global $FilePathArray[$dir[0]]
Global $FileReadArray[$dir[0]]
Global $BotInfoLines[$dir[0]][5]
Func _CountFiles()
$folder = @AppDataDir & "\ClashSA Loader\Download\files\"
Global $dir = _FileListToArray($folder, "*.edx", 1)
MsgBox(0, "", $dir[0])
If @error = 1 Then
MsgBox(16, "Error", "Folder not found or invalid" & @CR & @CR & "Please contact an admin of ClashSA", 10);Botfiles Ordner fehlt
Exit
EndIf
If @error = 4 Then
MsgBox(16, "Error", "No File(s) Found" & @CR & @CR & "Please contact an admin of ClashSA", 10);Botfiles Dateien fehlen
Exit
EndIf
EndFunc
Func _ReadFiles()
Global $BotSelected
Global $FileOpenArray[$dir[0]]
Global $FilePathArray[$dir[0]]
Global $FileReadArray[$dir[0]]
Global $BotInfoLines[$dir[0]][5]
For $x = 0 To $dir[0]-1 Step 1; zählt bis anzahl der files in ordner X
$FilePathArray[$x] = @AppDataDir & "\ClashSA Loader\Download\files\" & $x & ".edx"; erstellt $X Pfad Dateien mit [$X].edx Namen
$FileOpenArray[$x] = FileOpen($FilePathArray[$x], $FO_READ); Öffnet Datei $X und speichert sie als Open session
If $FileOpenArray[$x] = -1 Then
MsgBox($MB_SYSTEMMODAL, "File not found", "An error occurred when reading the file " & $FilePathArray[$x] & "." & @CR & @CR & "Please contact an admin of ClashSA", 10)
Return False
EndIf
ConsoleWrite(UBound($FileReadArray) - 1 & @CRLF)
For $h = 0 To 4 Step 1;normal To 3 aber wegen der 5. Zeile
$hAdd = $h + 1
$FileReadArray[$h]= FileReadLine($FileOpenArray[$x], $hAdd)
$BotInfoLines[$x][$h] = $FileReadArray[$h]
;~ MsgBox(0, $count, $BotInfoLines[$x][$h] & "[" & $x & "]" & "[" & $h & "]" & @CR & $FilePathArray[$x]);only for debugging
Next
FileClose($FileOpenArray[$x])
$h = 0
Next
_ArrayDisplay($BotInfoLines, "bot")
EndFunc
Alles anzeigen