Array variable has incorrect number of subscripts...

HYRULE

Hallo erstmal, ich programmiere gerade ein Script der aus einem Ordner die Anzahl der ".edx" Dateien zählen soll, die klappt auch soweit. Dann soll ein Array erstellt werden welches die Pfade zu den Dateien speichert, dann sollen die Dateien mit Fileopen und noch einem neuen Array gespeichert werden. Da die ".edx" Dateien immer 5 Zeilen haben folgt nun eine For Schleife mit 5 Durchgängen und dann werden mir Fileread die Zeilen abgearbeitet und dann kommt der Fehler:

"C:\Users\user\Desktop\Projekt\Programmieren\LogIn\ReadFiles.au3" (44) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$FileRead[$x][$h] = FileReadLine($FileOpen[$x], $count)
^ ERROR

Hier mein Script:

Die Dateien im Ordner fangen mit dem Index 0 an also -> 0.edx, 1.edx, 2.edx!

AutoIt

#include <WinAPI.au3>
#include <WinHttp.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#Include <WinAPIEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <Constants.au3>
;~ #include <_UskinLibrary.au3>


;Loader Includes
#include <ComboConstants.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <GuiListView.au3>
#include <GuiComboBox.au3>
#include <File.au3>
#include <Array.au3>
#Include <WinAPIEx.au3>
#include <Zip.au3>








$folder = @AppDataDir & "\ClashSA Loader\Download\files\"
$dir = _FileListToArray($folder, "*.edx", 1)
MsgBox(0, $dir[0], "")


Global $FilePath[$dir[0]]
Global $FileOpen[$dir[0]]
Global $FileRead[$dir[0]][5]
Global $count = 0


For $x = 0 To $dir[0]-1 Step 1
	$FilePath[$x] = @AppDataDir & "\ClashSA Loader\Download\files\" & $x & ".edx"
	$FileOpen[$x] = FileOpen($FilePath[$x], 0)
	For $h = 0 To 5 Step 1
		$count = $count +1
		$FileRead[$x][$h] = FileReadLine($FileOpen[$x], $count)
	Next
	FileClose($FileOpen[$x])
	$count = 0




Next
_ArrayDisplay($FileRead, "read")
MsgBox(0, "", "Ende")

Alles anzeigen

Über eine Lösung des Problems wäre ich sehr Dankbar!

P.S: Nicht über die vielen Includes wundern das ist so gewollt!

**alpines**

Bei der For-Schleife wo du das $h iterierst gehst du bis 5 obwohl der größte Index vom Array eine 4 ist.

**AspirinJunkie**

Und in der äußeren Schleife machst du es genau anders herum: Das letzte Element von $dir wird nicht mit in die Schleife genommen.
Hingegen wird das erste Element (in dem Fall die Anzahl der Elemente) im ersten Schleifendurchlauf als Datei behandelt.

**Kanashius**

Generell würde ich empfehlen immer mit UBound($array) zu arbeiten. Ich finde, das mit der Anzahl im ersten Eintrag ist eher unnötig... Wenn ich eine so große Schleife habe, dass der UBound() aufruf ne Rolle speilt speicher ich das eben extra in ne variable... aber immer nen Wert in ein Datenarray zu packen, der da eigentlich nichts verloren hat, weil er keinen Datensatz darstellt finde ich einfach nur nervig. Insbesondere, wo das nur bei manchen Funktionen der Fall ist. Ich finde, dass sollte man komplett rausnehmen.

**alpines**

@Kanashius du hast da auch Recht. Es ist besser mit UBound zu arbeiten um alles zu standardtisieren aber sag das mal den UDF-Entwicklern.
_FileListToArray bietet keine andere Möglichkeit, man muss die Funktion selber umschreiben um eine vernünftige Ausgabe zu erzielen.

4ern

Warum nimmt man nicht einfach die for in schleife? Dann spart man sich das ubound gedöns?

**Oscar**

Weil das nicht immer funktioniert (0-Index = Anzahl der Arrayelemente) oder weil man manchmal auch noch den Index benötigt.
Wobei: Das erste Problem könnte man mit _ArrayDelete($array, 0) lösen.

4ern

Ok weiteres Problem wäre, dass das Array während dem Durchlauf schreibgeschützt ist

HYRULE

Jetzt habe ich das Problem, dass das Programm erst funktioniert wenn ich datei 0.edx, 1.edx, 2.edx, 3.edx und 4.edx in dem Ordner drinne habe. Wenn es weniger als diese 5 Dateien sind gibt er mir nach wie vor den gleichen Fehler aus:

"C:\Users\user\Desktop\ClashSA\Programmieren\LogIn\ClashSA loader.au3" (427) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$FileReadArray[$h]= FileReadLine($FileOpenArray[$x], $hAdd)
^ ERROR

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
	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

$dir[0] gibt die Anzahl der in dem Ordner befindlichen Dateien an.
Ich muss irgendwo in den For schleifen einen Fehler gemacht haben, eventuell ist es auch weil meine Dateien mit dem Index 0 beginnen..

Die Arrays habe ich 2 mal Global erstellt weil die Funktion durch ein Refresh immer wieder ausgeführt werden muss..

Freue mich über jede Unterstützung..

**UEZ**

Was gibt dir denn

AutoIt

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

aus?

Btw, die Begriffe "Bot*" sind nicht besonderns geschickt gewählt.

HYRULE

Zitat von UEZ

Was gibt dir denn

AutoIt

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

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

**UEZ**

Man sollte i.d.R. nie Global in Funktionen verwenden!

AutoIt

#include <File.au3>
#include <FileConstants.au3>
Global $BotSelected, $dir, $folder = "c:\temp" ;$folder = @AppDataDir & "\ClashSA Loader\Download\files\"
_CountFiles()
Global $FileOpenArray[$dir[0]]
Global $FilePathArray[$dir[0]]
Global $FileReadArray[$dir[0]]
Global $BotInfoLines[$dir[0]][5]
Global $BotSelected
Global $FileOpenArray[$dir[0]]
Global $FilePathArray[$dir[0]]
Global $FileReadArray[$dir[0]]
Global $BotInfoLines[$dir[0]][5]


_ReadFiles()


Func _CountFiles()
	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   ;==>_CountFiles


Func _ReadFiles()
	For $x = 0 To $dir[0] - 1 Step 1; zählt bis anzahl der files in ordner X
		$FilePathArray[$x] = $folder & "\" & $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   ;==>_ReadFiles

Alles anzeigen

Ich sehe ein Array mit dem Inhalt der *.edx Dateien. Ich habe nur den Pfad auf C:\Temp umgelegt.