Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_ReSort
Dreht einen übergebene String um, d.h. das erste Zeichen wird das letzte Zeichen, das zweite Zeichen wird das vorletzte Zeichen usw.
Wird der Funktion ein Array übergeben, wird das Array in seiner Reihenfolge umgedreht
Dim a As Variant
Dim txt As String
txt = "Wer reitet so spät durch Nacht und Wind?"
a = Split(txt, " ")
Print CNCL_ReSort(txt)
a = CNCL_ReSort(a)
ForAll werte In a
Print werte
End ForAll
Ausgabe:
?dniW dnu thcaN hcrud täps os tetier reW
Wind?
und
Nacht
durch
spät
so
reitet
Wer