Sample UEB08A

Sample UEB08A
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 die gefundene Position im Text
angezeigt
Output: z.B. Suchtext="en"
Gefunden Position: 4
Gefunden Position: 11
Gefunden Position: 16
Gefunden Position: 53

/* REXX UEB08A 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
   SAY "Gefunden Position:" gefunden
   gefunden = POS(such,txt,gefunden+LENGTH(such))
END