ein kleines, aber mehrdimensionales Array erweist sich als hartnäckig gegen meine Versuche einer Sortierung:
Sortiert werden soll nach der ersten Dimension, ich habe versucht, ein Beispiel für einen Bubblesort umzuschreiben:
x = 1
Do Until x = 0
x = 0
For J = 100 To 2 Step -1
Test1 = ArTest(J, 0, 0, 0, 0, 0, 0): Test2 = ArTest(J - 1, 0, 0, 0, 0, 0, 0)
If ArTest(J, 0, 0, 0, 0, 0, 0) < ArTest(J - 1, 0, 0, 0, 0, 0, 0) Then
zwi = ArTest(J, 0, 0, 0, 0, 0, 0)
ArTest(J, 0, 0, 0, 0, 0, 0) = ArTest(J - 1, 0, 0, 0, 0, 0, 0)
ArTest(J - 1, 0, 0, 0, 0, 0, 0) = zwi
x = x + 1
End If
Zurück = J + 100:
Next J
Aktuell = ArTest(J, 0, 0, 0, 0, 0, 0): Symbol = ArTest(J, 1, 1, 1, 1, 1, 1):
Loop
Jetzt wird zwar tatsächlich sortiert, aber eben wirklich nur das erste Kriterium. Letztlich kommen dabei falsche Datensätze heraus, da die folgenden Dimensionen nicht als Variablen angesprochen werden.
Ich möchte aber den gesamten Datensatz über das erste Kriterium sortieren, vielleicht als Beispiel:
Wenn zuvor die erste Zeile 5,A,B,C,D,E,F und die zweite 4,G,H,I,J,K,L lautet,
soll es hinterher
4,G,H,I,J,K,L
5,A,B,C,D,E,F lauten.
Vielen Dank für Eure Hilfe.
Grüße
Ralf