home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / xes131.lha / XES / REXX / RepReq.xdme < prev    next >
Encoding:
Text File  |  1994-12-23  |  551 b   |  21 lines
  1. /* RepReq.xdme */
  2.  
  3. if ~show("L","rexxreqtools.library") then
  4.     if ~addlib("rexxreqtools.library", 0, -30) then exit
  5.  
  6. options results
  7. address 'XDME.1'
  8. 'rxresult ($findstr )'
  9. F = strip(result,"T")
  10. 'rxresult ($repstr )'
  11. R = strip(result,"T")
  12.  
  13. R = rtgetstring(R,"Find String =" F '0A'x || "Enter Replace String","XDMD Replace Requester","_Once|_All|_Block|_Cancel")
  14. if rtresult = 0 then exit
  15. R = '(' || R || ')'
  16. xcom = 'settvar R' R 'repstr' R 'findstr' F
  17. xcom
  18. if rtresult = 1 then "replace"
  19. else if rtresult = 2 then "replace-all"
  20. else "replace-block"
  21.