Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_QuickSort
Sortiert das Übergebene Text-Array nach dem QuickSort-Algorithmus und gibt das Ergebnis als Text-Array zurück.
Dim txt As String
Dim Liste As Variant
txt = |Wer reitet so spät durch Nacht und Wind?|
Liste = Split(txt, " ")
Print "Liste unsortiet"
ForAll zeile In Liste
Print zeile
End ForAll
Print
Print "Liste sortiert"
Liste = CNCL_QuickSort(Liste)
ForAll zeile In Liste
Print zeile
End ForAll
Ausgabe:
Liste unsortiet
Wer
reitet
so
spät
durch
Nacht
und
Wind?
Liste sortiert
durch
Nacht
reitet
so
spät
und
Wer
Wind?