home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / MT2ToolKit 1.0b1 / PasteData < prev    next >
Encoding:
Text File  |  1995-10-09  |  552 b   |  27 lines  |  [TEXT/MPS ]
  1. # --------------------------------------------------
  2. #    MT2ToolKit, version 1.0b1
  3. #    (C) Copyright by Michael Trofimov, 10/6/95.
  4. # --------------------------------------------------
  5. # PasteData
  6. # Replace %%-markers with values from data file in active window
  7.  
  8. Set Exit 0
  9. Set DataFile "`GetFileName -m 'Select data file' -b Open  -s`"
  10. Open {DataFile} -n
  11. Set separator "`Request "Set separator "`"
  12. Find • {DataFile}
  13. Loop
  14.     Copy /[¬{separator}¬∂n]+/ {DataFile}
  15.     if "{status}"≠0
  16.      Break
  17.     End
  18.     Paste /∂{%%∂}/ "{Target}"
  19.     if "{status}"≠0
  20.      Break
  21.     End
  22. End    
  23.     
  24.  
  25.  
  26.  
  27.