Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_CenterText
Gibt einen Text-String vorgegebener Länge zurück, in dem der übergebene Text zentriert wurde
Sollte der übergebene Text-String länger sein als die vorgegebene Länge wird dieser Text-String unverändert zurück gegeben.
Dim s As String
Dim breite As Integer
s = "Beispiel"
breite = 20
print UString$("*", breite+2)
print "*" + CNCL_CenterText(s, breite) + "*"
print UString$("*", breite+2)
Ausgabe:
**********************
* Beispiel *
**********************