/*
 * WRITE V3.1536 © 1991-1995 by Tim Teulings
 *
 * Dieses Script öffnet einen Filerequester, in dem man verschiedene Files
 * auswählen kann. Anschließen öffnet sich der GETFINDREPLACE-Requester,
 * im welchem man dann ein Suchwort auswählen kann.
 * Write sucht dann in den entsprechenden Files nach dem Suchwort und ersetzt
 * alle gefundenen durch das Ersetzenwort.
 *
 * $VER: 1.1
 *
 * 1.1 updated to version 3.1536 (Tim Teulings)
 * 1.0 initial version           (Tim Teulings)
 *
 */

IF ~show('P',"WRITE") THEN
DO
  say "Dieses Skrpit arbeitet nicht ohne dem Texteditor WRITE !"
  EXIT 0
END

ADDRESS "WRITE"

OPTIONS RESULTS
SIGNAL ON SYNTAX /* Abfangen von Syntaxfehlern */

'VERSIONCHECK 40000 "Replace.wrx"'
IF RC~=0 THEN DO
  exit 10
END

ID = -1

CLEARLIST 0
'GETFILES 0 "" ""'
IF RC~=0 THEN DO
  EXIT
END

LISTSIZE 0
Size = RESULT

IF Size=0 THEN DO
  EXIT
END

'NEWED "EMPTY.CONFIG"'
ID = RESULT
LOCKWINDOW ID

'GETFINDREPLACE _FindString _ReplaceString {@REPLACE}'
IF RC~=0 THEN DO
  QUITED
  EXIT
END

LastLine = -1

DO x=1 TO Size

  GETLISTENTRY 0 x
  IF RC=0 THEN DO
    File = RESULT
  END

  OPEN "(" || File || ")"
  IF RC=0 THEN DO

    'REPLACE @CURSOR @CURSOR @EOT @EOT {@SILENT @ALL @NOREQ}'

    found = Result

    IF found >0 THEN DO
      'MESSAGEOK "Es wurde &found& mal\n$_FindString$\ndurch\n$_ReplaceString$\nin File\n\"&File&\"\nersetzt."'
      'SAVE &File'
    END

  END

  ID = -1

END

QUITED

EXIT

/********/
/* Ende */
/********/


SYNTAX:

SAY "Leider trat ein Fehler auf... Zeile " SIGL ":" ERRORTEXT(RC)
LOCKWINDOW 0
EXIT