VB 5/6-Tipp 0547: Sortieren mehrdimensionaler Arrays mit Quicksort
von Norbert Pfeiffer
Beschreibung
Dies ist die Erweiterung des bestehenden Quicksort Tipps. Er wurde so erweitert, dass es nun auch möglich ist, zweidimensionale Arrays zu sortieren.
Dabei wird an "D" zusätzlich die Dimension übergeben, nach der Sortiert werden soll.
Schwierigkeitsgrad: | Verwendete API-Aufrufe: keine | Download: |
'Dieser Quellcode stammt von http://www.activevb.de 'und kann frei verwendet werden. Für eventuelle Schäden 'wird nicht gehaftet. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum. 'Ansonsten viel Spaß und Erfolg mit diesem Source! '------------ Anfang Projektdatei quicksort.vbp ------------ '------- Anfang Formular "sorter" alias quicksort.frm ------- ' Steuerelement: Schaltfläche "cmd_end" ' Steuerelement: Schaltfläche "cmd_date" ' Steuerelement: Schaltfläche "cmd_shff" ' Steuerelement: Listen-Steuerelement "List2" ' Steuerelement: Schaltfläche "cmd_char" ' Steuerelement: Listen-Steuerelement "List1" Option Explicit Dim Feld(0 To 555, 0 To 1) Private Sub quicksort(ByVal LB As Long, ByVal UB As Long, D As Integer) Dim A As Integer Dim X As Long Dim P1 As Long Dim P2 As Long Dim Ref(0 To 1) As Variant Dim TMP(0 To 1) As Variant A = 0 If D = 0 Then: A = 1 P1 = LB P2 = UB X = (P1 + P2) / 2 Ref(D) = Feld(X, D) Ref(A) = Feld(X, A) Do Do While (Feld(P1, D) < Ref(D)) P1 = P1 + 1 Loop Do While (Feld(P2, D) > Ref(D)) P2 = P2 - 1 Loop If P1 <= P2 Then TMP(D) = Feld(P1, D) TMP(A) = Feld(P1, A) Feld(P1, D) = Feld(P2, D) Feld(P1, A) = Feld(P2, A) Feld(P2, D) = TMP(D) Feld(P2, A) = TMP(A) P1 = P1 + 1 P2 = P2 - 1 End If Loop Until (P1 > P2) If LB < P2 Then Call quicksort(LB, P2, D) If P1 < UB Then Call quicksort(P1, UB, D) End Sub Private Sub Form_Load() Call Shuffle End Sub Private Sub cmd_shff_Click() Call Shuffle End Sub Private Sub cmd_char_Click() Dim X As Integer List2.Clear Call quicksort(LBound(Feld), UBound(Feld), 0) For X = 0 To UBound(Feld) List2.AddItem Feld(X, 0) & ", " & Feld(X, 1) Next X End Sub Private Sub cmd_date_Click() Dim X As Integer List2.Clear Call quicksort(LBound(Feld), UBound(Feld), 1) For X = 0 To UBound(Feld) List2.AddItem Feld(X, 1) & ", " & Feld(X, 0) Next X End Sub Private Sub cmd_end_Click() End End Sub Private Sub Shuffle() Dim X As Integer Dim Y As Integer Dim aa As String Dim bb As Date Call Randomize(Timer) List1.Clear List2.Clear For X = 0 To UBound(Feld) aa = "" For Y = 0 To 7 aa = aa & Chr$(Rnd * 25 + 97) Next Y bb = CDate(Int(Rnd * 27 + 1) & "." & _ Int(Rnd * 11 + 1) & "." & _ Int(Rnd * 33 + 1969) & " " & _ Int(Rnd * 24) & ":" & _ Int(Rnd * 58 + 1) & ":" & _ Int(Rnd * 58 + 1)) List1.AddItem aa & ", " & bb Feld(X, 0) = aa Feld(X, 1) = bb Next X End Sub '-------- Ende Formular "sorter" alias quicksort.frm -------- '------------- Ende Projektdatei quicksort.vbp -------------
Tipp-Kompatibilität:
Windows/VB-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
Ihre Meinung
Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.
Archivierte Nutzerkommentare
Klicken Sie diesen Text an, wenn Sie die 6 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.
Kommentar von am 12.08.2010 um 13:06
Ich habe eine Weile gesucht wie man abwärts sortieren lassen kann.
für die, die es interessiert:
in sub quicksort bei dem Ausdruck die < > umkehren:
[code...]
Do While (Feld(P1, spalte) > Ref(spalte))
P1 = P1 + 1
Loop
Do While (Feld(P2, spalte) < Ref(spalte))
[...code]
Kommentar von Wally am 26.02.2009 um 13:34
@Philip
OK, ist schon ein paar tage her, aber
Option Compare Text
bringt die Umlaute in die richtige Reihenfolge (nicht ausprobiert)
Kommentar von Tobias Soltermann am 18.09.2006 um 12:15
Hi Markus
Die Funktion Quicksort, die im Tipp steht, kannst du ja trotzdem benutzen. Insofern werden Listboxen nur zur Anzeige und nicht im Sortier-Algo verwendet.
Gruess, Tobias S.
Kommentar von Markus am 22.04.2004 um 09:07
Hallo.
Ich möchte gerne mittels Quicksort ein zweidimensionales Array sortieren, inclusive Umlaute/Sonderzeichen.
Das Problem ist nur, daß ich das mit VB Script machen muß.
Was muß ich ändern, damit es funktioniert?
Listboxen habe ich ja nicht. :(
Danke schonmal für Eure Hilfe.
Gruß,
Markus
Kommentar von shamyr am 20.09.2003 um 05:09
hi,
your program is good. can you translate it in english.
Can you make me a program (eight queens) write in
in (.vbp, .frm, .scc)
thanks
Kommentar von Philip am 30.06.2003 um 14:47
Das Problem an dieser Funktion sind diese Vergleiche:
P1 > P2
Dadurch wird nur der Wert des Buchstaben verglichen, dabei werden umLaute an der falschen Stelle einsortiert :-(