| |
| In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.
Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden! | Fragen zu Tipps & Tricks und Workshops im vb@rchivRe: 2-dimensionales Array nach beliebiger Spalte sortieren | | | Autor: stobi_de | Datum: 10.03.09 09:18 |
| Hallo,
na, das ist doch mal richtig nützlich.
Aber wie könnte es anders sein, wenn man sich in einem Forum anmeldet: eine Frage hätte ich zu der Sache noch.
Wenn ich nun in meinem Array mehrere Personen mit gleichem Namen habe, soll, ähnlich wie bei Datenbanken, ein weiteres Sortierkriterium greifen, z.B. das Alter oder die SatzID.
Da stehe ich nun ein wenig auf dem Schlauch, wobei ich zugeben muß, das ich rekursiven Funktionen bisher möglichst aus dem Weg gegangen bin
Gruß
Frank
Immer noch auf der Suche nach der Programmiersprache, die macht, was ich will.
Nicht nach der, die macht, was ich ihr sage! | |
Ergänzung? | | | Autor: erich1961 | Datum: 07.03.10 09:03 |
| Hallo,
ich stand vor dem Problem, daß ich nicht wusste, wie groß mein Array werden wird. Bei mir waren die die Zeilen in der 2. Dimension und die Spalten in der Ersten.
Folgendes funktioniert soweit, bis auf den Index (der muß 1 höher sein als die zu sortierende Spalte:
Public Sub QuickSortMultiDim(vSort As Variant, Optional ByVal index As Integer = 1, Optional ByVal lngStart As Variant, Optional ByVal lngEnd As Variant)
' Wird die Bereichsgrenze nicht angegeben,
' so wird das gesamte Array sortiert
If IsMissing(lngStart) Then lngStart = LBound(vSort, 2)
If IsMissing(lngEnd) Then lngEnd = UBound(vSort, 2)
Dim i As Long
Dim j As Long
Dim h As Variant
Dim x As Variant
Dim u As Long
Dim lb_dim As Integer
Dim ub_dim As Integer
' Anzahl Elemente pro Datenzeile
lb_dim = LBound(vSort)
ub_dim = UBound(vSort)
i = lngStart: j = lngEnd
x = vSort(index - 1, (lngStart + lngEnd) / 2)
' Array aufteilen
Do
While (vSort(index - 1, i) < x): i = i + 1: Wend
While (vSort(index - 1, j) > x): j = j - 1: Wend
If (i <= j) Then
' Wertepaare miteinander tauschen
For u = lb_dim To ub_dim
h = vSort(u, i)
vSort(u, i) = vSort(u, j)
vSort(u, j) = h
Next u
i = i + 1: j = j - 1
End If
Loop Until (i > j)
' Rekursion (Funktion ruft sich selbst auf)
If (lngStart < j) Then QuickSortMultiDim vSort, index, lngStart, j
If (i < lngEnd) Then QuickSortMultiDim vSort, index, i, lngEnd
End Sub | |
Re: 2-dimensionales Array nach beliebiger Spalte sortieren | | | Autor: OranjeHH | Datum: 18.01.21 17:14 |
| Ich bin nicht sicher ob ich die richtige Zeile im Blick habe.
Muss ich
For u = lb_dim To ub_dim
gegen
For u = ub_dim to lb_dim step - 1
tauschen?
mir schien das nicht richtig zu sein. Da ich damit, glaube ich, nur die Spaltenrichtung ändere. | |
Re: 2-dimensionales Array nach beliebiger Spalte sortieren | | | Autor: OranjeHH | Datum: 20.01.21 08:57 |
| ich habe den Code bei Wertepaare tauschen probiert. Wie ich mir gedacht habe ohne Veränderung.
Und ein drehen von Loop until (i < J) zu Loop until (i > j) hat zu einem Absturz geführt.
ich möchte also noch mal fragen wie ich den Array rückwärts auslesen kann. | |
| Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevWizard für VB5/6
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere Infos
|