求助 修改一个RAR批处理的压缩级别 (0-存储...3-默认...5-最大) 不知道在哪里修改

oijrgsrp5blb

批处理源码如下

1. @echo off
   
2. REM ======================================================================
   
3. REM
   
4. REM Batch File -- Created with SAPIEN Technologies PrimalScript 4.0
   
5. REM
   
6. REM NAME: 批量加密打包单个文件，并生成对应密码表
   
7. REM
   
8. REM AUTHOR: hitme ,
   
9. REM DATE : 2006-12-16
   
10. REM
    
11. REM COMMENT: 密码由随机数字组成，长度与文件名长度相同
    
12. REM
    
13. REM ======================================================================
    
14. @echo off
    
15. 
    
16. :repare
    
17. del pass.txt tmp.txt 2>nul
    
18. md package 2>nul
    
19. 
    
20. setlocal ENABLEDELAYEDEXPANSION
    
21. :input
    
22. echo.
    
23. set /p input=加密打包文件还是文件夹^(F=文件，D=文件夹，A=全部^)
    
24. echo.
    
25. if /i "%input%"=="f" (set key=/aa) else (
    
26.       if /i "%input%"=="d" (set key=/ad) else (
    
27.                 if /i "%input%"=="a" (set key=) else goto :input))
    
28. 
    
29. :code
    
30. for /f "delims=" %%i in ('dir %key%/b^|findstr /v "%~nx0 package"') do (
    
31.        echo.%%i>tmp.txt
    
32.        echo. >>tmp.txt
    
33.        for /f "delims=:" %%a in ('findstr /o "." tmp.txt') do (
    
34.         set /a len=%%a - 2
    
35.        )
    
36.        set m=
    
37.        for /l %%l in (1,1,!len!) do (
    
38.         echo %random% >nul
    
39.         set m=!m!!random:~-1!
    
40.        )
    
41.        echo %%i:!m!>>pass.txt
    
42.        del tmp.txt>nul
    
43.       
    
44. )
    
45. endlocal
    
46. 
    
47. :package
    
48. setlocal
    
49. set path=%path%;c:\program files\winrar
    
50. if exist pass.txt (
    
51.      for /f "tokens=1* delims=:" %%i in (pass.txt) do rar a -p%%j "package\%%~ni.rar" "%%i"
    
52.      move pass.txt package
    
53.      start package
    
54. ) else echo...未能打包 & pause
    
55. endlocal

复制代码

Batcher

for /f "tokens=1* delims=:" %%i in (pass.txt) do rar a -m0 -p%%j "package\%%~ni.rar" "%%i"

oijrgsrp5blb

谢谢啦 老大 测试OK