home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / TextEditors&Viewers / Ced / CYGNUSED3,5.DMS / in.adf / CEDScripts / Delete-Until.ced < prev    next >
Encoding:
Text File  |  1993-07-07  |  492 b   |  30 lines
  1. /*
  2. ** Delete-Until.ced
  3. **
  4. ** $VER: Delete-Until.ced 1.0.1 (27.04.93)
  5. **
  6. ** This script deletes all text from the current cursor position
  7. ** to the specified string, placing it in the Clipboard.
  8. **
  9. ** This script requires CygnusEd Professional v3.5 (or later) to run.
  10. **
  11. ** Copyright © 1990-1993 ASDG, Incorporated  All Rights Reserved
  12. */
  13.  
  14.  
  15. OPTIONS RESULTS
  16.  
  17.  
  18. GETSTRING
  19. String = RESULT
  20. IF (String = "") | (String = "RESULT") THEN
  21.     EXIT 0
  22.  
  23. MARK
  24.  
  25. SEARCH FOR '"'||String||'"' 1 0 1 0
  26.  
  27. CUT
  28.  
  29. EXIT 0
  30.