home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / BK-WW6E3.DMS / in.adf / Archive / WwRexx.lha / Many_To_RTF.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-06-25  |  760 b   |  49 lines
  1. /*    Many_To_RTF
  2.  
  3.         Converts a drawer full of documents to RTF format.
  4.  
  5.         Digita ARexx Script for Wordworth 5
  6.         Copyright ©1996, Digita International Ltd.
  7.         
  8.         Created: 31 May 1996
  9.         Author:  MJ
  10. */
  11.  
  12.  
  13. OPTIONS RESULTS
  14.  
  15.  
  16. RequestFile TITLE "Select drawer..." DRAWERSONLY
  17. Drawer = Result
  18.  
  19. If (RC > 0) THEN
  20.     Exit
  21.  
  22. OldPort = Address()
  23.  
  24. Address Command 'List >RAM:WwTemp 'Drawer' NOHEAD PAT=~(#?.info) LFORMAT="%s%s" FILES'
  25. IF Open('listfile', 'RAM:WwTemp', R) THEN DO
  26.     DO Until EOF('listfile')
  27.         File = ReadLn('listfile')
  28.  
  29.         If File = '' THEN
  30.             Break
  31.  
  32.         New
  33.         Address Value Result
  34.  
  35.         Open FILENAME File
  36.  
  37.         File = File || ".RTF"
  38.  
  39.         SaveAs RTF NAME File
  40.         Close FORCE
  41.  
  42.         Address Value OldPort
  43.     END
  44.     Call Close('listfile')
  45.  
  46. END
  47.  
  48. Address Command 'Delete >NIL: RAM:WwTemp'
  49.