Variable "zentriert" füllen

[peter.kinne]

Hallo,

ich habe eine Variable (75 Zeichen) die mit Texten versorgt werden soll. Die Texte haben natürlich unterschiedliche Längen (von 10 - 70 Byte). Und der Text soll in der Variablen "ZENTRIERT" erscheinen.

Gibt es dafür ein einfache built-in-function oder muss ich mir alle berechnen und über eine Feldgruppe versorgen ?

Gruß und Danke im voraus,


Peter

[B.Hauser]

Hallo Peter,

es gibt keine "einfache" Built-in-Funktion in RPG.
Allerdings über Feldgruppen braucht man auch nicht mehr zu gehen.

Hier ein Beispiel, wie Texte zentriert werden können:


D Text S 75A
D NewText S 75A
D Start S 3U 0
/Free
// Text zentrieren
Start = (%Size(Text) - %Len(%Trim(Text)))/2 + 1;

%Subst(NewText: Start: %Len(%Trim(Text))) = %Trim(Text);
/End-Free


Birgitta

[peter.kinne]

Hallo Birgitta,

dein Beispiel sieht doch ziemlich schlank aus. Ich probiere es nachher mal aus.

Vielen Dank und noch einen schönen Tag,

Peter

[peter.kinne]

Hallo Birgitta,

hat super geklappt. Die Texte kommen schön zentriert.

Vielen Dank nochmals,

Peter