Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Vielen Dank! Jetzt gehts sogar mit Quicksort
Autor: RiverRaid
Datum: 07.11.02 17:42
Erstens, HERZLICHEN DANK!!!!! Funktioniert super!! Allerdings war es leider etweas zu langsam Nach mehreren Stunden herumprobieren etc hab ichs geschafft, das in den QuickSorft umzumodeln. Also hier der Code Private Sub QuickSortDep(ByVal lngStart As Variant, ByVal lngEnd As Variant) On Error Resume Next Dim i As Long Dim j As Long Dim h As StripData Dim x As Variant i = lngStart: j = lngEnd x = StripData1((lngStart + lngEnd) / 2).Dep ' Array aufteilen Do While (StripData1(i).Dep < x): i = i + 1: Wend While (StripData1(j).Dep > x): j = j - 1: Wend If (i <= j) Then ' Wertepaare miteinander tauschen h = StripData1(i) StripData1(i) = StripData1(j) StripData1(j) = h i = i + 1: j = j - 1 End If Loop Until (i > j) ' Rekursion (Funktion ruft sich selbst auf) If (lngStart < j) Then QuickSortDep lngStart, j If (i < lngEnd) Then QuickSortDep i, lngEnd End Sub und Die Prozedur, in der das aufgerufen wird, schaut so aus: Public Function SortByDeparture() As Variant On Error Resume Next SortByDeparture = 0 SortByArrival = 0 QuickSortDep 1, MaxStrip UpdateFP 0, True SortByDeparture = 1 End Function Also, DANKE für die Hile, dank Deinem Code hab ich das ganze kapiert und dann auch anwenden können. Danke! LG, Andi

Schwere Sortier-Aufgabe... ;(	568	RiverRaid	07.11.02 01:02
Nachtrag	328	RiverRaid	07.11.02 01:20
Re: Schwere Sortier-Aufgabe... ;(	372	michi-bib	07.11.02 09:05
Vielen Dank! Jetzt gehts sogar mit Quicksort	335	RiverRaid	07.11.02 17:42
Re: Vielen Dank! Jetzt gehts sogar mit Quicksort	342	michi-bib	07.11.02 17:55

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen