home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMPRESS / CVT.ZIP / CVT.BAT next >
Encoding:
DOS Batch File  |  1989-02-27  |  2.4 KB  |  69 lines
  1. ECHO OFF
  2. ECHO CVT 2.0 Public Domain by Unique Software
  3. IF "%1==" GOTO Help
  4. IF "%2==" GOTO Help
  5. IF "%3==" GOTO Help
  6.  
  7. md _!_
  8. cd _!_
  9.  
  10. :extract_files
  11. FOR %%d IN (ZOO zoo) DO IF "%2=="%%d ZOO -EXTRACT ..\%1.ZOO
  12. FOR %%d IN (DWC dwc) DO IF "%2=="%%d DWC E ..\%1.DWC
  13. FOR %%d IN (PAK pak) DO IF "%2=="%%d PAK E ..\%1.PAK
  14. FOR %%d IN (PKARC pkarc PKXARC pkxarc) DO IF "%2=="%%d PKXARC ..\%1.ARC
  15. FOR %%d IN (PKPAK pkpak PKUNPAK pkunpak) DO IF "%2=="%%d PKUNPAK ..\%1.ARC
  16. FOR %%d IN (ARC arc) DO IF "%2=="%%d ARC -E ..\%1.ARC
  17. FOR %%d IN (ARCE arce ARCA arca) DO IF "%2=="%%d ARCE ..\%1.ARC
  18. FOR %%d IN (PKZIP PKUNZIP ZIP pkzip pkunzip zip) DO IF "%2=="%%d PKUNZIP ..\%1.ZIP
  19.  
  20. IF ERRORLEVEL==1 cd ..
  21. IF ERRORLEVEL==1 rd _!_
  22. IF ERRORLEVEL==1 GOTO Help
  23.  
  24. IF NOT "%4==" GOTO Nodel
  25. :delete file section
  26. FOR %%d IN (ZOO zoo) DO IF "%2=="%%d DEL ..\%1.ZOO
  27. FOR %%d IN (DWC dwc) DO IF "%2=="%%d DEL ..\%1.DWC
  28. FOR %%d IN (PAK pak) DO IF "%2=="%%d DEL ..\%1.PAK
  29. FOR %%d IN (PKZIP PKUNZIP ZIP pkzip pkunzip zip) DO IF "%2=="%%d DEL ..\%1.ZIP
  30. FOR %%d IN (PKARC pkarc PKXARC pkxarc ARC arce) DO IF "%2=="%%d DEL ..\%1.ARC
  31. FOR %%d IN (PKPAK pkpak PKUNPAK pkunpak ARCE arc) DO IF "%2=="%%d DEL ..\%1.ARC
  32. FOR %%d IN (ARCA arca) DO IF "%2=="%%d DEL ..\%1.ARC
  33.  
  34. :Nodel
  35. :rearchive file section
  36. FOR %%d IN (ZOO zoo) DO IF "%3=="%%d ZOO -MOVE %1.ZOO *.*
  37. FOR %%d IN (DWC dwc) DO IF "%3=="%%d DWC MZ %1.DWC *.*
  38. FOR %%d IN (PAK pak) DO IF "%3=="%%d PAK M %1.PAK *.*
  39. FOR %%d IN (PKARC pkarc PKXARC pkxarc) DO IF "%3=="%%d PKARC -M %1.ARC *.*
  40. FOR %%d IN (PKPAK pkpak PKUNPAK pkunpak) DO IF "%3=="%%d PKPAK -M %1.ARC *.*
  41. FOR %%d IN (ARC arc) DO IF "%3=="%%d ARC -M %1.ARC *.*
  42. FOR %%d IN (ARCE arce ARCA arca) DO IF "%3=="%%d ARCA -M %1.ARC *.*
  43. FOR %%d IN (PKZIP PKUNZIP ZIP pkzip pkunzip zip) DO IF "%3=="%%d PKZIP -M %1.ZIP *.*
  44.  
  45. :wrap_up
  46. copy %1.* ..
  47. del %1.*
  48. cd ..
  49. rd _!_
  50. ECHO Conversion complete...
  51. if not "%4==" ECHO     (old file retained)
  52. GOTO Quit
  53.  
  54. :Help
  55. ECHO USAGE 
  56. ECHO CVT  filespec(no extension)  from_format  to_format  ?(any char=keep old)
  57. ECHO from / to_formats :
  58. ECHO    ARC(E/A), PK(X)ARC, DWC, PK(UN)PAK, PK(UN)ZIP, ZOO, PAK
  59. ECHO examples:
  60. ECHO CVT FILEDATA ARC PAK 
  61. ECHO    (convert FILEDATA.ARC to FILEDATA.PAK)
  62. ECHO CVT NEWDATA ZIP ZOO X
  63. ECHO    (convert NEWDATA.ZIP to NEWDATA.ZOO - don't delete NEWDATA.ZIP)
  64. ECHO CVT LIB03 DWC ARC X
  65. ECHO    (convert LIB03.DWC to LIB03.ARC - don't delete LIB03.DWC)
  66.  
  67. :Quit
  68. 
  69.