Dim s As String
Dim breite As Integer
s = "Wer reitet so spät durch Nacht und Wind?"
breite = 25
Print CNCL_Truncate(s, " … ", breite, CNCL_Truncate_left, True)
Print CNCL_Truncate(s, " … ", breite, CNCL_Truncate_center, True)
Print CNCL_Truncate(s, " … ", breite, CNCL_Truncate_right, True)
Print CNCL_Truncate(s, " … ", breite, CNCL_Truncate_left, False)
Print CNCL_Truncate(s, " … ", breite, CNCL_Truncate_center, False)
Print CNCL_Truncate(s, " … ", breite, CNCL_Truncate_right, False)
Ausgabe:
… durch Nacht und Wind?
Wer reitet … und Wind?
Wer reitet so spät …
… durch Nacht und Wind?
Wer reitet … t und Wind?
Wer reitet so spät dur …