home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Textra116 / Scripts / InsertF.textra < prev    next >
Encoding:
Text File  |  1996-09-27  |  998 b   |  40 lines
  1.      /******************************************************************
  2.      *   TEXTRA AREXX script -- Mike Haas, 1991, All Rights Reserved.  *
  3.      * Freely distributable ONLY as a component of the TEXTRA package. *
  4.      * This banner may not be removed or altered (improvements to the  *
  5.      *    actual program welcome).  Please document and send to me.    *
  6.      *        !!! PLACE THIS FILE IN YOUR REXX: DIRECTORY !!!          *
  7.      ******************************************************************/
  8.  
  9. /*
  10. **
  11. ** InsertF.textra
  12. **
  13. ** Insert the specified file
  14. **
  15. ** this is a great file to save as CTRLi.textra
  16. **
  17. ** Then just enter the filename in the destination
  18. ** text file, select the filename, then CRTL-i!
  19. **
  20. ** Usage:
  21. **    1. select filename in window to be inserted into
  22. **  2. execute this script
  23. **
  24. ** Mike Haas
  25. */
  26.  
  27. options results
  28.  
  29. get select text
  30.  
  31. parse var result numlines' 'theFile
  32.  
  33. if (result == "NO SELECT") then
  34.     exit
  35.  
  36. if (numlines > 0) then
  37.     exit
  38.  
  39. insertfile '"'theFile'"'
  40.