EVA Text ersetzen

{###################################################################}
{### Datei eva_text_ersetzen.mac                                 ###}
{### Ersetzt in "eva_ursprungstext" den Teilstring               ###}
{### "eva_text_zuersetzen" durch "eva_ersatztext".               ###}
{### Ergebnis wird in globaler Variable                          ###}
{### "eva_text" zurueckgeliefert.                                ###}
{### Erstelldatum:     22.12.2003                                ###}
{### (c) 2003 2008 by E.V.A. Robert Hoffmann                     ###}
{###                                                             ###}
{### Änderungsdatum:                                             ###}
{### Art der Änderung:                                           ###}
{###                                                             ###}
{### Änderungsdatum:                                             ###}
{### Art der Änderung:                                           ###}
{###                                                             ###}
{### Änderungsdatum:                                             ###}
{### Art der Änderung:                                           ###}
{###                                                             ###}
{### Änderungsdatum:                                             ###}
{### Art der Änderung:                                           ###}
{###                                                             ###}
{###                                                             ###}
{### Zeit:                                                       ###}
{### Erforderliche Makros:                                       ###}
{###################################################################}

DEFINE eva_text_ersetzen
 PARAMETER eva_ursprungstext
 PARAMETER eva_text_zuersetzen
 PARAMETER eva_ersatztext
 LOCAL Tmp_text
 LOCAL Rest_text
 LOCAL Rest_laenge
 LOCAL Position

  {### GLOBALE VARIABLE ###}
  LET eva_text ''
  {### GLOBALE VARIABLE ###}

  LET Rest_text  eva_ursprungstext
  LET Rest_laenge (LEN eva_ursprungstext)
  LET eva_text eva_ursprungstext
  LET Position (POS Rest_text eva_text_zuersetzen)
  LET Tmp_text ''
  WHILE (Position > 0)
    LET Tmp_text
    (Tmp_text + SUBSTR Rest_text 1 (Position - 1) + eva_ersatztext)
    LET Rest_laenge (Rest_laenge -Position -LEN eva_text_zuersetzen +1)
    LET Rest_text
    (SUBSTR Rest_text (Position + LEN eva_text_zuersetzen) Rest_laenge)
    LET Position (POS Rest_text eva_text_zuersetzen)
  END_WHILE
  LET eva_text (Tmp_text + Rest_text)
END_DEFINE

Wenn die Makros nützlich sind, ist eine Spende natürlich gern gesehen :-)