String replace-Methode in RPG IV

Die korrekte syntax für %xlate ist:

%XLATE(aus:to:string, {: startpos})

Ersetzt alle Bindestriche mit ein kaufmännisches:

new_string = %xlate('-':'&':string);

Um alle Bindestriche zu entfernen:

Nicht entfernen, ein Zeichen mit &xlate. 7.1 gibt uns %scanrpl, aber davor, so etwas wie dieses:

for i = 1 to %len(string);
    char = %subst(string:i:1);
    if char <> '-';
        new_string += char;
    endif;
endfor;

ich hatte das gleiche problem. also schrieb ich mein eigenes RPG-Prozedur, die tut es für mich:

     **
     **
     D************************************************************************
     D*                                                                      *
     D*  Procedure 'skReplace' -- Replaces text in 'text' string,            *
     D*                           searching for 'find' string,               *
     D*                           replacing with 'new' string.               *
     D*                           All occurances are replaced, not just one. *
     D*  Parameters: @txt = 'text' string                                    *
     D*              @fnd = 'find' string                                    *
     D*              @new = 'new' string (that replaces 'find' in 'source')  *
     D*                                                                      *
     D*  Update history:                                                     *
     D*  2013-04    Created by Shawn Kovac.                                  *
     D*                                                                      *
     D************************************************************************
     D*
     P skReplace       B
     D skReplace       PI           999A   Varying
     D    @txt                      999A   VALUE Varying
     D    @fnd                      999A   VALUE Varying
     D    @new                      999A   VALUE Varying
     D    @pos         S              3  0
     D*
      /free
       if (%Len(@fnd) = 0); //text to find cannot be empty.
          return @txt;
       endif;
       @pos = 1;
       dou (@pos = 0);
           @pos = %scan(@fnd: @txt: @pos);
           if (@pos > 0);
               @txt = %replace( @new : @txt : @pos : %Len(@fnd) );
               @pos = @pos + %Len(@new);
               if (@pos > %Len(@txt));
                   @pos = 0;
               endif;
           endif;
       enddo;

       return @txt;

      /end-free
     P skReplace       E
     **
     **

Da RPG ist sehr wählerisch in Bezug auf die Spalte, um die Dinge in, wenn Sie kopieren und Weiterverwendung dieser code, müssen Sie möglicherweise passen Sie Ihre eingefügten text, also es gibt 5 Leerzeichen vor 'D*', '**', und 'P skReplace ...'. Sechs Leerzeichen vor dem '/frei". Und der gesamte code zwischen den " /free lines haben 7 oder mehr Räume.

Ich begrüße alle Vorschläge zur Verbesserung dieses Codes.
Ich habe auch Verfahren für Links, Rechts und in der Mitte, wenn jemand Sie haben will. Nur msg mich, wenn Sie tun. Ich bin glücklich, Sie zu teilen. Ich kenne RPG hat ein '%subst " - Funktion, aber viele Programmiersprachen sind wählerisch, wie Sie Fehler, wenn Parameter ungültig sind. Mine stattdessen geben Sie mehr Flexibilität, zum Beispiel, Links('aoeu', -1) gibt 'aoe' (1 Zeichen kurz vor der vollständigen Zeichenfolge) und Rechten('aoeu', -1) gibt 'oeu' (der Rechte Teil der Zeichenkette nach dem 1 Zeichen entfernt). Mein Mid-Verfahren ermöglicht auch eine negative Startposition, Indizierung vom Ende der Zeichenfolge zu, die ich gefunden habe, um nützlich zu sein für mich. Aber Sie sind frei, für jedermann, das will, um die Zeit zu verbringen, mich zu Fragen, für Sie.

Happy Coding!