home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / DINET / H2T150B.ZIP / LONGFILE.BTM < prev    next >
Text File  |  1998-01-16  |  735b  |  42 lines
  1. setlocal
  2. unalias *
  3.  
  4. if "%temp"=="" set temp=c:\
  5.  
  6. set lfnames=%@unique[%temp%]
  7. set sfnames=%@unique[%temp%]
  8. set cnt=0
  9. do i=1 to %#
  10.  set fn1=%%%i
  11.  iff "%@left[1,%fn1]"=="-" then 
  12.     set switches=%switches% %fn1
  13.     echo switch
  14.  else
  15.     for %%j in (%fn1) do (set fn=%j% %+ gosub addfiles)   
  16.  endiff
  17.  
  18. enddo
  19.  
  20. html2txt %switches% @%sfnames -s-oA-f-c
  21. gosub copyfiles
  22.  
  23.  
  24. del/q %lfnames %sfnames
  25. quit
  26.  
  27. :addfiles
  28. if NOT EXIST %fn% return
  29. set cnt=%@inc[%cnt]
  30. echo %@lfn[%fn%] >> %lfnames
  31. echo %@sfn[%fn%] >> %sfnames
  32. return
  33.  
  34.  
  35. :copyfiles
  36. do x=0 to %@dec[%cnt]
  37.   set lfn=%@line[%lfnames%,%x]%.txt
  38.   set sfn=%@line[%sfnames%,%x]
  39.   set sfn=%@path[%sfn%]%%@name[%sfn%]%.txt
  40.   ren/q "%sfn" "%lfn"
  41. enddo
  42. return