2D Array Fehler

10/20/2013 14:56 °Incinerate#1
Hallihallo epvp,

ich habe ein kleines Problem mit meiner 2D Array. Ich finde den Fehler nicht. Vermutlich steh ich komplett auf dem Schlauch. Entschuldigung dafür, >.< aber bevor ich viel erzähle hier der Script:


PHP Code:
Dim $Line[1], $Split[1]
$File = FileOpen("M:\ein\Pfad\von\der\Datei.txt")
$Line[0] = FileReadLine($File,1)
$Split[0] = StringSplit($Line[0],"|")
MsgBox(0, "", $Split[0][0]) 
Das Textdokument:
PHP Code:
1|2|3|4|5 



MfG
10/20/2013 15:06 alpines#2
Du kannst einem 1D-Eintrag keinen 1D-Array zuweisen:
Code:
$Split[0] = StringSplit()
ist falsch, StringSplit returned einen Array, was gehen würde wäre StringSplit in einen neuen Array zu speichern und die Einträge in einer For-Schleife zu übernehmen.

Hier mal ausm Kopf geschmissener Code der funktionieren könnte:
Code:
Local $aSplit = StringSplit("","",2), $a2DArray[1][UBound($aSplit)]

For $i = 0 To UBound($aSplit) - 1
	$a2DArray[0][$i] = $aSplit[$i]
Next
10/20/2013 15:14 KDeluxe#3
Du hast ein Array in einem Array, das macht es nicht zu einem 2D Array. Mir ist in AutoIt keine direkte Zugriffsmethode bekannt.

Aber warum möchtest du es überhaupt ein Array in einem Array speichern?
Ich weiß zwar nicht genau, was du machen möchtest, aber hier mal ein Beispiel:
Code:
$file = FileOpen("datei.txt")
While $file <> -1
    $line = FileReadLine($file)
    If @error Then Exit
    
    $split = StringSplit($line, "|")
    For $i = 1 To $split[0]
        MsgBox(0, "", $Split[$i])
    Next
WEnd
Du könntest es aber auch tatsächlich in ein 2D Array packen. Die Größe der Dimensionen müsstest du aber immer wieder mit UBound() überprüfen und mit ReDim anpassen. Das ist aber keine Lösung die du verwenden solltest.

Quote:
Originally Posted by alpines View Post
Du kannst einem 1D-Eintrag keinen 1D-Array zuweisen
Doch, das kann man:
Code:
Dim $array1[1]
$array1[0] = StringSplit("1|2|3", "|")
$var = $array1[0]
MsgBox(0, "", "Elemente: " & $var[0])
Dein Beispiel funktioniert übrigens nur Gesetz dem Falle, dass alle Zeilen gleich viele "Spalten" haben. Nicht die beste Lösung.
10/20/2013 15:18 alpines#4
Achso, ich hatte das anders probiert:
Code:
Local $myArray1[1][UBound(StringSplit("","",2)-1], $aSplit = StringSplit("","",2)

$myArray[0] = $aSplit
Würde man hier nicht einem Feld die Array-Einträge zuweisen?
10/20/2013 16:43 °Incinerate#5
Quote:
Originally Posted by KDeluxe View Post
Ich weiß zwar nicht genau, was du machen möchtest
Die Datei hat mehrere Reihen. 1. Zahl für die Reihe und 2. Zehl für die Spalte.
10/20/2013 17:42 KDeluxe#6
Wie und wann soll das ganze den "verarbeitet" werden? Wenn jede Zeile gleich viele "Spalten" verwendet kannst du ganz einfach ein 2D Array verwenden:

Eine andere Methode wäre die von dir bereits verwendete (Array in Array), nur eben richtig:

Beide Beispiele sind aber nicht das Gelbe vom Ei. Nenne uns doch deinen Anwendungsfall.
10/20/2013 18:23 °Incinerate#7
Ich spiele Lotto und will die getippten Zahlen die ich in der Textdatei gespeichert habe auslesen und mit den gezogenen Zahlen vergleichen.
Es gibt mit sicherheit schon so ein Programm und ich könnte es auch totan einfach machen. Möchte ich aber nicht. ^^

€: So würde das dann aussehen.

10/20/2013 20:47 BladeTiger12#8
Machs so:

Code:
#include <Array.au3>
Local $sRead, $aSplitFile, $iZeilen, $aSplit
$sRead = FileRead("zahlen.txt"); Datei auslesen
$aSplitFile = StringSplit($sRead, @CR, 2); Zeilen Splitten
$iZeilen = UBound($aSplitFile); Zeilen Länge rausfinden

Dim $aZahlen[$iZeilen][6]; 2D Array Deklarieren


For $i = 0 To $iZeilen -1; Alle Zeilen durchgehen
	$aSplit = StringSplit($aSplitFile[$i], "|", 2); In den Zeilen jedes | Splitten
	For $i2 = 0 To 5; Alle 6 Zahlen durchgehen
		$aZahlen[$i][$i2] = $aSplit[$i2]; In die 2D Array die Zahlen eintragen
	Next; For-Schleife Ende
Next; For-Schleife Ende


_ArrayDisplay($aZahlen); Array Anzeigen
Und mach dir eine txt Datei namens zahlen.txt, mit den inhalt:
Code:
01|02|03|04|05|06
11|12|13|14|15|16
21|22|23|24|25|26
31|32|33|34|35|36
41|42|43|44|45|46
51|52|53|54|55|56
61|62|63|64|65|66
71|72|73|74|75|76
81|82|83|84|85|86
91|92|93|94|95|96
10/20/2013 22:16 °Incinerate#9
Thx BladeTiger12

Ist zwar nicht fertig aber ich habs so gemacht:


Warum da bei den 1. Zahlen jetzt ein Absatz ist weiß ich grade nicht. Werde ich aber gleich schauen/editieren. ;)
10/20/2013 22:49 BladeTiger12#10
Probiers so:

Code:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Dim $sRead, $aSplitFile, $iZeilen, $aSplit

GUICreate("", 187, 274, 319, 134, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
GUICtrlCreateGroup("Getippte Zahlen", 8, 72, 169, 193)


$sRead = FileRead("zahlen.txt")
$aSplitFile = StringSplit($sRead, @CRLF, 2)
$iZeilen = UBound($aSplitFile)

Dim $aZahlen[$iZeilen][6], $aLabel[$iZeilen][6]

For $i = 0 To $iZeilen -1 Step 2; Alle Zeilen durchgehen
    $aSplit = StringSplit($aSplitFile[$i], "|", 2)
    For $i2 = 0 To 5; Alle 6 Zahlen durchgehen
        $aZahlen[$i][$i2] = $aSplit[$i2]
		$aLabel[$i][$i2] = GUICtrlCreateLabel($aZahlen[$i][$i2],($i2 + 1) * 24, (($i +2) * 8) + 80, 16, 17)
    Next
Next
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd