home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / c_rexx / wdiz < prev   
AmigaDOS Script File  |  1996-11-13  |  1KB  |  43 lines
  1. .key SourceDir,DestText
  2. .bra {
  3. .ket }
  4. ; $VER: Wdiz V1.1 By Warp oh' GiGA Prod...
  5. ; Just start without arg's to read instructions...
  6.  
  7. failat 21
  8.  
  9. if "{SourceDir}" EQ ""
  10.  
  11. echo "*N*e[1m  Wdiz by Warp oh' GiGA Prod...© Nov'95"
  12. echo " ---------------------------------------*e[0;3m"
  13. echo " Enables one to autoscan through a dir,"
  14. echo " for Archives containing a *e[1mfile_id.diz,*e[0;3m"
  15. echo " and store it's text in a textfile...*N"
  16. echo " *e[1mRequires Dizzer,DMSextractor etc.*N*e[0m"
  17. echo " Usage: *e[1m"
  18. echo " ¯¯¯¯¯¯ Wdiz <SourceDir> <DestText>*N"
  19.  
  20. skip Xend
  21. endif
  22.  
  23.  
  24.  
  25. if exists "{SourceDir}"
  26.    echo "" >RAM:Wdiz.tmp
  27.    Echo "Scanning for files..." noline
  28.    C:list >NIL: "{SourceDir}~(#?.info)" TO RAM:Wdiz.tmp LFORMAT "C:Dizzer >NIL: {DestText} {SourceDir}%s"
  29.    Echo "Done..."
  30.    Echo "Running Script...Please wait..." noline
  31.    echo "*N*N*e[1mThis list was assembled with:*N                                Wdiz by Warp oh' GiGA Prod...© Nov'95" >"{Desttext}"
  32.    
  33.    C:Execute RAM:Wdiz.tmp
  34.    Echo "Done..."
  35.    Delete RAM:Wdiz.tmp Force quiet
  36.    run >NIL: dh0:utils/Multiview "{DestText}"
  37.  
  38.    echo "The Textfile is located at: {Desttext}"
  39.  
  40. endif
  41.  
  42. lab Xend
  43.