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