ASort() auf mehrere Spalten [Erledigt]

[Jan]

Ich habe ein mehrdimensionales Array, das ich gerne sortieren möchte. Problem: Nicht einfach nach einer Spalte, sondern nach 3. Alle drei Spalten haben numerische Inhalte. Irgendwie will der bei mir aber nicht.

Sinn der Sache ist:

• Ich sortiere nach Spalte 1.
• Bei gleichen Werten in Spalte 1 wird zusätzlich nach Spalte 2 sortiert.
• Bei gleichen Werten in Spalte 1 und 2 wird zusätzlich nach Spalte 3 sortiert.

Aussehen soll das im Prinzip hinterher so:
1
1.1
1.1.1
1.1.2
1.1.3
1.2
1.2.1
1.2.2
usw.

Wie bekomme ich das hin?

Jan

[Martin Altmann]

Moin,
ist doch einfach nur eine Folge verschachtelter iif()s:

Code: Alles auswählen

asort( aJuniorneu,,, {|aX,aY| iif( aX[ 1 ] <> aY[ 1 ], aX[1] < aY[1], iif( aX[ 2 ] <> aY[ 2 ], aX[2] < aY[2], iif( aX[ 3 ] <> aY[ 3 ], aX[ 3 ] < aY[ 3 ], aX[ 4 ] < aY[ 4 ] ) ) ) } )   // Array sortieren nach Tag, Altersklass, Name

Nur um den elseteil (allerletzter Vergleich) müsstest Du Dich dann noch kümmern - in dem Beispiel wird dann nach Spalte 4 sortiert, wenn die ersten drei Spalten jeweils identische Werte in den zu vergelichenden Zeilen enthalten.

Viele Grüße,
Martin

[Wolfgang Ciriack]

Ich würde es so versuchen (wobei die länge 5 bei strzero natürlich angepasst werden sollte):

Code: Alles auswählen

ASort(aJuniorneu,,,{|aX,aY| strzero(aX[1],5)+strzero(aX[2],5)+strzero(aX[3],5) >strzero(aY[1],5)+strzero(aY[2],5)+strzero(aY[3],5)})

[Jan]

Hallo Martin und Wolfgang,

vielen Dank für die schnellen Tipps.

Ich hatte gerade angefangen, Martins Variante einzutippen. Da kam Wolfgangs Vorschlag. Den hab ich dann genommen, weil der Code viel kürzer und übersichtlicher ist.

Vielen Dank für die Hilfe

Jan

[Martin Altmann]

Auch eine Möglichkeit.
Müsste man mal benchmarken, was schneller geht. Aber bei einem "handelsüblichen" Array dürfte das keine großen Unterschiede geben.

Viele Grüße,
Martin

[Tom]

StrZero() ist eigentlich unnötig; ein einfaches Str() genügte auch (Space ist auch kleiner als Eins). Und ich habe gebenchmarkt. Der Vergleich konkatinierter Strings (Wolfgangs Variante) ist genauso schnell (oder langsam) wie die Verwendung der If()-Funktion innerhalb des Codeblocks.

[Jan]

Hallo Tom,

Danke für den Hinweis. Der Benchmark ist natürlich eine interessante Sache. Auch die idee wäre ich nicht einmal gekommen, sowas durchzumessen.

Ich habe aber Wolfgangs Varinate nicht deswegen genommen, weil die vielleicht schneller wäre, sondern weil die einfach übersichtlicher zu lesen ist. Man muß ja auch immer daran denken, das man selber (oder noch schlimmer: Jemand anderes) den Code auch in ein paar Monaten noch lesen will, und sich dann nicht erst sich mühsam durch Klammerstrukturen durcharbeiten will um zu vestehen, was man da eigentlich irgendwann mal verzapft hat.

Jan