Sample UEB08C

Sample

Input: Variablen mit Textzuweisung:                                 
txt="Guten Morgen, den 01/02/08. REXX Schulung heute Morgen."
eine Eingabe (Suchbegriff) am Bildschirm verlangen
eine Eingabe (Ersatzbegriff) am Bildschirm verlangen
Process: Eine Eingabe (nur eine!) verlangen (PARSE EXTERNAL,
nicht leer) - Suchtext
Eine Eingabe (nur eine!) verlangen (PARSE EXTERNAL,
nicht leer) - Ersatztext
Die Eingabe wird als Suchtext für den Text in der Variable
"txt" verwendet. Der Suchtext wird in der Variable "txt"
gesucht (Built-In POS) und aus dem Inhalt der Variable
gelöscht (Built-In DELSTR und LENGTH)
Der Ersatzbegriff an der Stelle einsetzen (Built-In INSERT).
Output: z.B. Suchtext="en"
z.B. Ersatztext="abc"
Gutabc Morgabc, dabc 01/02/08. REXX Schulung heute Morgabc.

/* REXX UEB08C Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
txt="Guten Morgen, den 01/02/08. REXX Schulung heute Morgen."
  /* */
DO UNTIL such<>""
  /* */
   SAY "Bitte Suchtext eingeben:"
   PARSE EXTERNAL such
  /* */
END
  /* */
DO UNTIL ersatz<>""
  /* */
   SAY "Bitte Ersatztext eingeben:"
   PARSE EXTERNAL ersatz
  /* */
END
  /* */
gefunden = POS(such,txt)
  /* */
DO WHILE gefunden>0
   txt=DELSTR(txt,gefunden,LENGTH(such))
   txt=INSERT(ersatz,txt,gefunden-1)
   gefunden = POS(such,txt,gefunden+LENGTH(ersatz))
END
  /* */
SAY txt