:twisted: ...nicht getestet... :twisted:
Nicht vergessen: Arrays und Listen haben die Basis Null.
Code
' (Teil-)Sortieren von Arrays
' ---------------------------
' QuickSort_Long Long_Array&[], min&, max&
' QuickSort_Str String_Array&[], min&, max&, CaseSense%
' Wenn CaseSense ungleich Null ist, dann werden
' die Strings als Lower$()-Werte verglichen.
' Teil-Sortieren von Listen
' -------------------------
' QuickSort_List ListHandle&, min&, max&, CaseSense%, IsNum%
' Wenn ListHandle& = 0, dann Listbox-Liste.
' Wenn IsNum ungleich Null ist, dann werden
' die Werte mittels Val() verglichen -- sonst... --
' Wenn CaseSense ungleich Null ist, dann werden
' die Strings als Lower$()-Werte verglichen.
'=================================================
' (Teil-)Sortieren von Arrays
' ---------------------------
' QuickSort_Long Long_Array&[], min&, max&
Proc QuickSort_Long
Parameters Arr&[], Low&, High&
Declare i&, j&, hilf&, mitte&
i& = Low&
j& = High&
mitte& = Arr&[@Int((Low& + High&) / 2)]
While i& <= j&
While Arr&[i&] < mitte&
Inc i&
EndWhile
While Arr&[j&] > mitte&
Dec j&
EndWhile
If i& <= j&
hilf& = Arr&[i&]
Arr&[i&] = Arr&[j&]
Arr&[j&] = hilf&
Inc i&
Dec j&
EndIf
EndWhile
If Low& < j&
QuickSort_Long Arr&[], Low&, j&
EndIf
If i& < High&
QuickSort_Long Arr&[], i&, High&
EndIf
EndProc
' (Teil-)Sortieren von Arrays
' ---------------------------
' QuickSort_Str String_Array&[], min&, max&, CaseSense%
' Wenn CaseSense ungleich Null ist, dann werden
' die Strings als Lower$()-Werte verglichen.
Proc QuickSort_Str
Parameters Arr$[], Low&, High&, CaseSense%
Declare i&, j&, hilf$, mitte$
Proc QS_GetStr$
Parameters Wert$
Return If( CaseSense% <> 0, Lower$(Wert$), Wert$ )
EndProc
i& = Low&
j& = High&
mitte$ = QS_GetStr$(Arr$[@Int((Low& + High&) / 2)])
While i& <= j&
While QS_GetStr$(Arr$[i&]) < mitte$
Inc i&
EndWhile
While QS_GetStr$(Arr$[j&]) > mitte$
Dec j&
EndWhile
If i& <= j&
hilf$ = Arr$[i&]
Arr$[i&] = Arr$[j&]
Arr$[j&] = hilf$
Inc i&
Dec j&
EndIf
EndWhile
If Low& < j&
QuickSort_Str Arr$[], Low&, j&, CaseSense%
EndIf
If i& < High&
QuickSort_Str Arr$[], i&, High&, CaseSense%
EndIf
EndProc
' Teil-Sortieren von Listen
' -------------------------
' QuickSort_List ListHandle&, min&, max&, CaseSense%, IsNum%
' Wenn ListHandle& = 0, dann Listbox-Liste.
' Wenn IsNum ungleich Null ist, dann werden
' die Werte mittels Val() verglichen -- sonst... --
' Wenn CaseSense ungleich Null ist, dann werden
' die Strings als Lower$()-Werte verglichen.
Proc QuickSort_List
Parameters ListHandle&, Low&, High&, CaseSense%, IsNum%
Declare i&, j&, hilfS$, mitteS$, hilfL&, mitteL&
Proc QS_Get
Parameters Idx&, Ori%
If Ori%
Return GetString$(ListHandle&, Idx&)
Else
If IsNum%
Return Val(GetString$(ListHandle&, Idx&))
Else
Return If( CaseSense% <> 0, Lower$(Wert$), Wert$ )
EndIf
EndIf
EndProc
Proc QS_Put
Parameters Idx&, Wert$
ReplaceString(ListHandle&, Idx&, Wert$)
EndProc
i& = Low&
j& = High&
If IsNum%
mitteL& = QS_Get(@Int((Low& + High&) / 2), 0)
Else
mitteS$ = QS_Get(@Int((Low& + High&) / 2), 0)
EndIf
While i& <= j&
If IsNum%
While QS_Get(i&,0) < mitteL&
Inc i&
EndWhile
While QS_Get(j&,0) > mitteL&
Dec j&
EndWhile
Else
While QS_Get(i&,0) < mitteS$
Inc i&
EndWhile
While QS_Get(j&,0) > mitteS$
Dec j&
EndWhile
EndIf
If i& <= j&
hilfS$ = QS_Get(i&,1)
QS_Put(i&, QS_Get(j&,1))
QS_Put(j&, hilfS$)
Inc i&
Dec j&
EndIf
EndWhile
If Low& < j&
QuickSort_List ListHandle&, Low&, j&, CaseSense%, IsNum%
EndIf
If i& < High&
QuickSort_List ListHandle&, i&, High&, CaseSense%, IsNum%
EndIf
EndProc
Alles anzeigen
Ach ja: ... und bei sortierten Listen macht QuickSort_List besonders viel Spaß
und jetzt
Gute Nacht
Michael Wodrich