vba:functions:multisort
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision | ||
|
vba:functions:multisort [18.10.2019 10:33:17] yaslaw |
vba:functions:multisort [18.10.2019 10:45:44] (current) yaslaw |
||
|---|---|---|---|
| Line 25: | Line 25: | ||
| </code> | </code> | ||
| ==== Parameter-Liste ==== | ==== Parameter-Liste ==== | ||
| - | ***ioSortArr** Dieser Array wird sortiert | + | ***ioSortArr** Dieser Array wird sortiert. Hier darf es sich nicht um Objekte oder Udt handeln! |
| ***ioSecArr** Dieser Array wird mitsortiert, paralell zum Ersten | ***ioSecArr** Dieser Array wird mitsortiert, paralell zum Ersten | ||
| ***iSortOder** Angabe der Sortierrichtung | ***iSortOder** Angabe der Sortierrichtung | ||
| Line 41: | Line 41: | ||
| > Für die Ausgabe der Resultate verwendete ich die Funktion [[vba:functions:print_r:index]] | > Für die Ausgabe der Resultate verwendete ich die Funktion [[vba:functions:print_r:index]] | ||
| - | ==== Einfaches Beispiel mit 2 Arrays ==== | + | ==== Beispiele mit 2 Arrays ==== |
| - | === 2 gleich grosse Arrays, Index beginnt bei 0 === | + | === 2 gleich grosse Arrays === |
| 2 Arrays. Der Erste wird sortiert und der Zweite entsprechend nachgeführt | 2 Arrays. Der Erste wird sortiert und der Zweite entsprechend nachgeführt | ||
| <code=vb>a = array("a", "d", "b", "c") | <code=vb>a = array("a", "d", "b", "c") | ||
| Line 92: | Line 92: | ||
| 10, 100, 99, 1</code> | 10, 100, 99, 1</code> | ||
| + | === Index beginnt nicht bei 0 === | ||
| + | <code vb>Public Sub testMs() | ||
| + | Dim a() As Variant: ReDim a(1 To 3) | ||
| + | a(1) = "abc" | ||
| + | a(2) = Null | ||
| + | a(3) = 1234 | ||
| + | | ||
| + | Dim b() As Variant: ReDim b(4 To 7) | ||
| + | b(4) = "NR. 4" | ||
| + | b(5) = "NR. 5" | ||
| + | b(6) = "NR. 6" | ||
| + | b(7) = "NR. 7" | ||
| + | | ||
| + | Debug.Print multiSort(a, b) | ||
| + | | ||
| + | Debug.Print "Array a:" | ||
| + | print_r a | ||
| + | | ||
| + | Debug.Print "Array b:" | ||
| + | print_r b | ||
| + | End Sub</code> | ||
| + | <code>True | ||
| + | Array a: | ||
| + | <Variant()> ( | ||
| + | [#1] => <Null> | ||
| + | [#2] => <Integer> 1234 | ||
| + | [#3] => <String> 'abc' | ||
| + | ) | ||
| + | Array b: | ||
| + | <Variant()> ( | ||
| + | [#4] => <String> 'NR. 5' | ||
| + | [#5] => <String> 'NR. 6' | ||
| + | [#6] => <String> 'NR. 4' | ||
| + | [#7] => <String> 'NR. 7' | ||
| + | )</code> | ||
| ==== Array mit Objekten nach einer Objekteigenschaft sortieren ==== | ==== Array mit Objekten nach einer Objekteigenschaft sortieren ==== | ||
| Wir haben ein Array mit Objekten. Dieses wollen wir nach einer Objekteigenschaft sortieren. | Wir haben ein Array mit Objekten. Dieses wollen wir nach einer Objekteigenschaft sortieren. | ||
| Line 191: | Line 226: | ||
| ===== Code ===== | ===== Code ===== | ||
| - | <source '%%fpath%%/%%fname%%' vb> | + | {{%%fname%%|Download %%fname%% (V-%%version%%)}} |
vba/functions/multisort.1571387597.txt.gz · Last modified: 18.10.2019 10:33:17 by yaslaw
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
