Wir verwenden Cookies auf dieser Website.

Cookies sind kleine Textdateien, die von Websites auf Ihrem Computer gespeichert werden. Cookies sind weit verbreitet und helfen Seiten optimiert darzustellen und zu verbessern. Durch die Nutzung unserer Seiten erklären Sie sich damit einverstanden. mehr ...
OK

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?