home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 7 / FreshFishVol7.bin / new / disk / moni / filex / arexx / spezialsuchen.filex
Text File  |  1994-06-08  |  781b  |  47 lines
  1. /*
  2.  * SpezialSuchen.filex
  3.  *
  4.  * Sucht in einer Datei nach einem Text und ersetzt diesen an allen Stellen
  5.  * durch einen Text mit einer anderen Länge.
  6.  */
  7.  
  8. options results
  9.  
  10. POSITION SOF
  11.  
  12.    /* Falls gerade ein Block markiert ist, */
  13.    /* die Markierung aufheben */
  14.  
  15. GETATTR VIEW MARK
  16. IF result=TRUE THEN SETBLOCKMARK
  17.  
  18.     /* Texte ermitteln */
  19.  
  20. REQUESTSTRING PROMPT '"Nach welchem Text suchen?"'
  21. suchtext = result
  22. suchtextlen = length( suchtext ) - 1
  23.  
  24. REQUESTSTRING PROMPT '"Ersetzen durch?"'
  25. ersatztext = c2x( result )
  26.  
  27.     /* Suche starten */
  28.  
  29. FIND QUIET TEXT suchtext
  30. sucherfolg = rc
  31.  
  32.     /* Solange der Suchtext gefunden wird, ersetzen. */
  33.  
  34. DO WHILE sucherfolg ~= 5
  35.     SETBLOCKMARK
  36.     COLUMN suchtextlen
  37.     CUT
  38.  
  39.     SETBLOCK ersatztext
  40.     INSERT
  41.  
  42.     FIND QUIET TEXT suchtext
  43.     sucherfolg = rc
  44.  
  45.     END
  46.  
  47.