Find/Replace eines Text-Strings mit RPG

[B.Hauser]

Was ist Dein Problem das Suchen und Ersetzen?

Dies kann relativ einfach mit der Built-in-Funktion %Replace() bewerkstelligt werden.

%Replace(NeuerString: StartPosition: LängeAlterString)

Es wird jeweils nur das erste Vorkommen ersetzt. Wenn also alle Vorkommen ersetzt werden müssen, muss eine Schleife programmiert werden.

Im folgenden Beispiel wird 'ABC' durch 'ZXYDE' ersetzt.

D Text50          S             50A   inz(*Blanks)    
D MyString        S             10A   varying         
D NewString       S             10A   varying         
D Position        S              5U 0                 
 *---------------------------------------------------------
 /free                                                                        
    Text50      = 'ABCxyABCvwABC123ABC50';                                    
    Dsply Text50;                                                             
    MyString    = 'ABC';                                                      
    NewString   = 'ZXYDE';                                                    
    Position    = 1;                                                          
                                                                              
    DoW  %Scan(MyString: Text50: Position) <> *Zeros;                         
         Text50   = %Replace(NewString: Text50:                               
                       %Scan(MyString: Text50: Position): %Len(MyString));    
         Dsply Text50;      
    Enddo;                                                                    
                                                                              
    Dsply Text50;     
    *INLR = *ON;                                                       
 /End-Free 

Falls Du bereits auf Release V5R3M0 bist, kannst Du auch die SQL-Funktion REPLACE verwenden, die alle Vorkommen ersetzt.

c/EXEC SQL   Set :Text50 = Replace(:Text50, :MyString, :NewString)
C/END-EXEC 

Birgitta

[R.Plaugraud]

Hallo Birgitta,
das ging ja schnell mit Deiner Antwort. Dies ist ganau das was ich brauche.
Jetzt muss ich nur noch ein einfaches I/O-Programm schreiben, satzweise eine Source-Datei durchlesen und bestimmte Strings austauschen. Dann noch ein CLP darüber und fertig. Das krieg ich gerade noch hin.

Besten Dank.
Rudolf.