Sample UEB08B

Sample

Input: Variablen mit Textzuweisung:                                 
txt="Guten Morgen, den 01/02/08. REXX Schulung heute Morgen."
eine Eingabe (Suchbegriff) am Bildschirm verlangen
Process: Eine Eingabe (nur eine!) verlangen (PARSE EXTERNAL,
nicht leer).
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).
Output: z.B. Suchtext="en"
Gut Morg, d 01/02/08. REXX Schulung heute Morg.

/* REXX UEB08B 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
  /* */
gefunden = POS(such,txt)
  /* */
DO WHILE gefunden>0
   txt=DELSTR(txt,gefunden,LENGTH(such))
   gefunden = POS(such,txt,gefunden)
END
  /* */
SAY txt