home *** CD-ROM | disk | FTP | other *** search
/ RISCWORLD 7 / RISCWORLD_VOL7.iso / Software / Issue4 / WebCHNG2 / !WebChange / Scripts / FindRep < prev    next >
Encoding:
Text File  |  2001-02-03  |  672 b   |  18 lines
  1. WebChange.Script
  2.  
  3. ; This is the find & replace script
  4.  
  5. ; Presently seperated from the main script due mistake in script code wrt
  6. ; conditions. (To be rectified in due course)
  7.  
  8. Set Prompt.Response To "Yes"
  9. ; First ensure this variable is 'set' (="yes")
  10.  
  11. If Null(Replace.ChangeTo_1) Then Prompt "This will delete all occurences of your source text"
  12. ; If the replacement text is empty, the user is warned - replacing
  13. ; something with nothing is deletion!
  14. ; The prompt command sets Prompt.Response to "Yes" or "No"
  15.  
  16. If Set(Prompt.Response) Then RunProcess Content.Replace
  17. ; So, if the user clicked "ok" (or if there was a valid replacement
  18. ; text) the replacer program is run.