home *** CD-ROM | disk | FTP | other *** search
/ War Command Explosion / WARCOMEX.BIN / WARCOMEX / PACK / ARJ / ARJ241CZ.EXE / ARJSORT.BAT < prev    next >
Encoding:
DOS Batch File  |  1994-09-12  |  3.6 KB  |  151 lines
  1. @echo off
  2.  
  3. echo ARJSORT 2.21, utilita na razeni souboru v ARJ archivech
  4. echo Copyright (c) 1990,91 Robert K. Jung
  5. echo .
  6.  
  7. if "%1"=="" goto param_error
  8.  
  9. if "%2"=="" goto sort_start
  10. if %2==/A goto sort_start
  11. if %2==/a goto sort_start
  12. if %2==/C goto sort_start
  13. if %2==/c goto sort_start
  14. if %2==/D goto sort_start
  15. if %2==/d goto sort_start
  16. if %2==/E goto sort_start
  17. if %2==/e goto sort_start
  18. if %2==/F goto sort_start
  19. if %2==/f goto sort_start
  20. if %2==/O goto sort_start
  21. if %2==/o goto sort_start
  22. if %2==/P goto sort_start
  23. if %2==/p goto sort_start
  24. if %2==/R goto sort_start
  25. if %2==/r goto sort_start
  26. if %2==/S goto sort_start
  27. if %2==/s goto sort_start
  28. if %2==/T goto sort_start
  29. if %2==/t goto sort_start
  30. goto param_error
  31.  
  32. :sort_start
  33. echo Zjistuji soucasne poradi souboru v archivu: %1
  34. arj v %1 -jv1 -jp- > arjsort.$$1
  35. if errorlevel 1 goto arj_error
  36.  
  37. if "%2"=="" goto sort_path
  38. if %2==/A goto sort_attr
  39. if %2==/a goto sort_attr
  40. if %2==/C goto sort_crc
  41. if %2==/c goto sort_crc
  42. if %2==/D goto sort_date
  43. if %2==/d goto sort_date
  44. if %2==/E goto sort_ext
  45. if %2==/e goto sort_ext
  46. if %2==/F goto sort_file
  47. if %2==/f goto sort_file
  48. if %2==/O goto sort_ratio
  49. if %2==/o goto sort_ratio
  50. if %2==/P goto sort_path
  51. if %2==/p goto sort_path
  52. if %2==/R goto r_sort_path
  53. if %2==/r goto r_sort_path
  54. if %2==/S goto sort_size
  55. if %2==/s goto sort_size
  56. if %2==/T goto sort_time
  57. if %2==/t goto sort_time
  58. goto param_error
  59.  
  60. :sort_path
  61. echo Radim soubory podle celeho jmena (vcetne cesty)
  62. echo .
  63. SORT /+122 %3 < arjsort.$$1 > arjsort.$$$
  64. goto sort_finish
  65.  
  66. :r_sort_path
  67. echo Radim soubory podle celeho jmena (vcetne cesty)
  68. echo .
  69. SORT /+122 %2 < arjsort.$$1 > arjsort.$$$
  70. goto sort_finish
  71.  
  72. :sort_attr
  73. echo Radim soubory podle atributu
  74. echo .
  75. SORT /+69  %3 < arjsort.$$1 > arjsort.$$$
  76. goto sort_finish
  77.  
  78. :sort_crc
  79. echo Radim soubory podle hodnoty kontrolniho souctu (CRC)
  80. echo .
  81. SORT /+60  %3 < arjsort.$$1 > arjsort.$$$
  82. goto sort_finish
  83.  
  84. :sort_date
  85. echo Radim soubory podle data/casu naposledy provedene zmeny
  86. echo .
  87. SORT /+41  %3 < arjsort.$$1 > arjsort.$$$
  88. goto sort_finish
  89.  
  90. :sort_ext
  91. echo Radim soubory podle pripony
  92. echo .
  93. SORT /+81  %3 < arjsort.$$1 > arjsort.$$$
  94. goto sort_finish
  95.  
  96. :sort_file
  97. echo Radim soubory podle nazvu
  98. echo .
  99. SORT /+89  %3 < arjsort.$$1 > arjsort.$$$
  100. goto sort_finish
  101.  
  102. :sort_ratio
  103. echo Radim soubory podle dosazeneho kompresniho pomeru
  104. echo .
  105. SORT /+36  %3 < arjsort.$$1 > arjsort.$$$
  106. goto sort_finish
  107.  
  108. :sort_size
  109. echo Radim soubory podle puvodni delky
  110. echo .
  111. SORT /+14  %3 < arjsort.$$1 > arjsort.$$$
  112. goto sort_finish
  113.  
  114. :sort_time
  115. echo Radim soubory podle casoveho udaje
  116. echo .
  117. SORT /+51  %3 < arjsort.$$1 > arjsort.$$$
  118. goto sort_finish
  119.  
  120. :sort_finish
  121. if errorlevel 1 goto sort_error
  122.  
  123. arj o %1 -!! -jp- !arjsort.$$$
  124. if errorlevel 1 goto arj_error
  125. goto stop
  126.  
  127. :arj_error
  128. echo Chyba pri praci s archivem %1
  129. goto stop
  130.  
  131. :sort_error
  132. echo Chyba pri razeni archivu %1
  133. goto stop
  134.  
  135. :param_error
  136. echo .   Spousteni:  ARJSORT archiv [/poradi] [/r]
  137. echo .               kde parametr /poradi je jeden z nasledujicich:
  138. echo .
  139. echo .               /a = podle atributu    /o = podle miry komprese
  140. echo .               /c = podle CRC         /p = podle celeho nazvu
  141. echo .               /d = podle data/casu   /s = podle puvodni delky
  142. echo .               /e = podle pripony     /t = podle casoveho udaje
  143. echo .               /f = podle nazvu
  144. echo .
  145. echo .   Parametr [/r] (radit sestupne), je-li uveden, musi byt az na konci.
  146.  
  147. :stop
  148. if exist arjsort.$$1 del arjsort.$$1 > NUL
  149. if exist arjsort.$$$ del arjsort.$$$ > NUL
  150. if exist arjsort.bak del arjsort.bak > NUL
  151.