[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
holley

Rank: 5Rank: 5

帖子
119 
积分
756 
技术
9  
捐助
0  
注册时间
2010-11-4 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2022-8-16 13:05 | 只看该作者

[文件操作] 求助批处理批量将7z压缩包转换为zip压缩包

  1. @echo on

  2. setlocal enabledelayedexpansion

  3. :pw

  4. echo. 读取文本密码

  5. for /f "delims=" %%x in ('TYPE pw.txt')do (

  6. 	set pw=%%x

  7. )

  8. :chpw

  9. echo. 7z转换zip

  10. path "%ProgramFiles%\7-Zip";%path%

  11. for /f "delims=" %%i in ('dir /b /s /a-d *.7z') do (

  12.     7z x "%%i" -o"%~dp0~Tmp" -r -y -aos -p!pw!

  13.     7z a "%%~dpni.zip" "%~dp0~Tmp\*" -y -sdel

  14. )

  15. rd ~Tmp /s /q
复制代码
如果压缩包无密码 转换正常，有密码则转换失败？？求解...
收藏 分享

fzp070

Rank: 3Rank: 3

帖子
107 
积分
237 
技术
9  
捐助
0  
注册时间
2009-10-24 
2楼
发表于 2022-8-16 22:28 | 只看该作者
刚刚试了下，有密码也没问题啊！
建议你看下转换失败的，到底有没有解压成功？"%~dp0~Tmp"这个目录有没有解压的文件

TOP

holley

Rank: 5Rank: 5

帖子
119 
积分
756 
技术
9  
捐助
0  
注册时间
2010-11-4 
3楼
发表于 2022-8-17 09:04 | 只看该作者
回复 2# fzp070


    我测试 单个密码只传递一次没问题 多个密码貌似就没法正常转换了

TOP

flashercs

Rank: 6Rank: 6

帖子
1250 
积分
2216 
技术
279  
捐助
0  
注册时间
2017-3-20 
4楼
发表于 2022-8-17 13:24 | 只看该作者 
  1. @echo on

  2. setlocal enabledelayedexpansion

  3. :pw

  4. echo. 读取文本密码

  5. for /f "delims=" %%x in ('TYPE pw.txt')do (

  6. 	set pw=%%x

  7. )

  8. :chpw

  9. echo. 7z转换zip

  10. path "%ProgramFiles%\7-Zip";%path%

  11. (

  12. for /f "delims=" %%i in ('dir /b /s /a-d *.7z') do (

  13.     7z x "%%i" -o"%~dp0~Tmp" -r -y -aos

  14.     7z a "%%~dpni.zip" "%~dp0~Tmp\*" -y -sdel

  15. )

  16. )<pw.txt

  17. rd ~Tmp /s /q
复制代码
微信:flashercs
QQ:49908356

TOP

fzp070

Rank: 3Rank: 3

帖子
107 
积分
237 
技术
9  
捐助
0  
注册时间
2009-10-24 
5楼
发表于 2022-8-17 14:57 | 只看该作者
本帖最后由 fzp070 于 2022-8-17 15:59 编辑

看了下，你的读取密码变量!pw!，只获取到了文本中的最后一个密码，所以会不正确，导致解密并打包zip失败。
我试了下这样子是可以的，但是有个弊端，就是已解压转zip成功，也会将文本所有密码跑完，建议增加一个检查转换成功就切换。
  1. @echo off

  2. echo. 读取文本密码

  3. for /f "delims=" %%x in ('TYPE pw.txt')do (set pw=%%x &call :chpw)

  4. 

  5. echo 转换zip完成

  6. pause

  7. exit

  8. 

  9. :chpw

  10. setlocal enabledelayedexpansion

  11. echo. 7z转换zip

  12. path "%ProgramFiles%\7-Zip";%path%

  13. for /f "delims=" %%i in ('dir /b /s /a-d *.7z') do (

  14.     7z x "%%i" -o"%~dp0~Tmp" -r -y -aos -p!pw! &&7z a "%%~dpni.zip" "%~dp0~Tmp\*" -y -sdel

  15. rd ~Tmp /s /q

  16. )

  17. goto :eof
复制代码

TOP

fzp070

Rank: 3Rank: 3

帖子
107 
积分
237 
技术
9  
捐助
0  
注册时间
2009-10-24 
6楼
发表于 2022-8-17 18:04 | 只看该作者
改进一版，解决了7z处理完仍继续跑完密码。
转换过的7z将其移动了"已转换的7z"文件夹内，你可以自行修改下 移动到其它位置或删除或改后缀名 都行。
  1. @echo off

  2. mkdir "%~dp0已转换的7z"

  3. 

  4. echo. 读取文本密码

  5. for /f "delims=" %%x in ('TYPE pw.txt')do (set pw=%%x &call :chpw)

  6. 

  7. echo 运行结束

  8. rd ~Tmp /s /q >nul 2>nul

  9. pause

  10. exit

  11. 

  12. 

  13. :chpw

  14. echo. 7z转换zip

  15. path "%ProgramFiles%\7-Zip";%path%

  16. setlocal enabledelayedexpansion

  17. for /f "delims=" %%i in ('dir /b /a-d *.7z') do (set zf=%%i

  18. 7z x "!zf!" -p!pw! -o"%~dp0~Tmp" -aoa &&7z a "%%~dpni.zip" "%~dp0~Tmp\*" -y -sdel &&goto pass

  19. )

  20. goto :eof

  21. 

  22. 

  23. :pass

  24. move "!zf!" "%cd%\已转换的7z\"

  25. rd ~Tmp /s /q >nul 2>nul

  26. 

  27. (for /f "delims=" %%a in ('dir /b /a-d *.7z') do set zf2=%%a)>nul 2>nul

  28. if "%zf2%"=="" goto ok

  29. goto :eof

  30. 

  31. 

  32. :ok

  33. echo 【7z转换zip已完成】

  34. pause

  35. exit
复制代码
1

评分人数

    • holley: 乐于助人!不好意思，权限有限。技术 + 1

TOP

holley

Rank: 5Rank: 5

帖子
119 
积分
756 
技术
9  
捐助
0  
注册时间
2010-11-4 
7楼
发表于 2022-8-18 08:24 | 只看该作者
回复 6# fzp070
晚上测试发现一个问题，，当我需转换的压缩包一多的时候，会出现zip包里 好几个其它包的文件都有的现象

TOP

holley

Rank: 5Rank: 5

帖子
119 
积分
756 
技术
9  
捐助
0  
注册时间
2010-11-4 
8楼
发表于 2022-8-18 08:51 | 只看该作者
回复 4# flashercs
转换zip包还是会出现大部分空文件zip包，没找到原因

TOP

holley

Rank: 5Rank: 5

帖子
119 
积分
756 
技术
9  
捐助
0  
注册时间
2010-11-4 
9楼
发表于 2022-8-18 09:58 | 只看该作者
本帖最后由 holley 于 2022-8-18 10:29 编辑

回复 6# fzp070
现在改成这样，基本效果已经有了
  1. @echo off

  2. mkdir "%~dp0已转换的包"

  3. echo. 读取文本密码

  4. for /f "delims=" %%x in ('TYPE pw.txt')do (set pw=%%x &call :chpw)

  5. 

  6. exit

  7. 

  8. :chpw

  9. setlocal enabledelayedexpansion

  10. echo. 7z转换zip

  11. path "%ProgramFiles%\7-Zip";%path%

  12. for /f "delims=" %%i in ('dir /b /a-d *.7z *.rar') do (

  13.     7z x "%%i" -o"%~dp0~Tmp" -r -y -aos -p!pw! &&7z a "%%~dpni.zip" "%~dp0~Tmp\*" -y -sdel

  14. 	set zf=%%i

  15. rd ~Tmp /s /q

  16. )

  17. REM ping 127.1 -w 1000 -n 6 >nul

  18. move "!zf!" "%cd%\已转换的包\"

  19. goto :pass

  20. 

  21. 

  22. :pass

  23. rd ~Tmp /s /q >nul 2>nul

  24. 

  25. (for /f "delims=" %%a in ('dir /b /a-d *.7z *.rar') do set zf2=%%a)>nul 2>nul

  26. if "%zf2%"=="" goto ok

  27. goto :eof

  28. 

  29. 

  30. :ok

  31. echo 【7z转换zip已完成】

  32. rd ~Tmp /s /q

  33. REM pause

  34. exit
复制代码
现在的问题：1、本来没密码的7z、rar压缩包没自动转换；2、数字密码的压缩包也没自动转换；求解？？
改成set zf="%%i"后 所有压缩包都转换成功了，但转移路径又没生效- -

TOP

fzp070

Rank: 3Rank: 3

帖子
107 
积分
237 
技术
9  
捐助
0  
注册时间
2009-10-24 
10楼
发表于 2022-8-18 21:51 | 只看该作者
回复 9# holley
还在线不？我刚试了下，没有问题啊，之前你只设了7z，我刚加上rar也可以啊，没有发现串文件，上传个验证动图你看看
https://wwp.lanzouv.com/iOP2809sbrwd
  1. @echo off

  2. mkdir "%~dp0已转换的7z"

  3. 

  4. echo. 读取文本密码

  5. for /f "delims=" %%x in ('TYPE pw.txt')do (set pw=%%x &call :chpw)

  6. 

  7. cls

  8. color c7

  9. echo.&echo.&echo 运行结束，如有剩余【未解压转换zip】的7z文件，请检查密码的正确性，以及密码是否含""引号 &echo.&echo.

  10. rd ~Tmp /s /q >nul 2>nul

  11. pause

  12. exit

  13. 

  14. 

  15. :chpw

  16. echo. 7z转换zip

  17. path "%ProgramFiles%\7-Zip";%path%

  18. setlocal enabledelayedexpansion

  19. for /f "delims=" %%i in ('dir /b /a-d *.7z *.rar') do (set zf=%%i

  20. 7z x "!zf!" -p!pw! -o"%~dp0~Tmp" -aoa &&7z a "%%~dpni.zip" "%~dp0~Tmp\*" -y -sdel &&goto pass

  21. )

  22. goto :eof

  23. 

  24. 

  25. :pass

  26. move "!zf!" "%cd%\已转换的7z\"

  27. rd ~Tmp /s /q >nul 2>nul

  28. 

  29. (for /f "delims=" %%a in ('dir /b /a-d *.7z') do set zf2=%%a)>nul 2>nul

  30. if "%zf2%"=="" goto ok

  31. goto :eof

  32. 

  33. 

  34. :ok

  35. cls

  36. color b1

  37. echo.&echo.&echo 【7z转换zip已全部完成】&echo.&echo.

  38. pause

  39. exit
复制代码

TOP

fzp070

Rank: 3Rank: 3

帖子
107 
积分
237 
技术
9  
捐助
0  
注册时间
2009-10-24 
11楼
发表于 2022-8-18 22:06 | 只看该作者
本帖最后由 fzp070 于 2022-8-18 23:05 编辑

回复 9# holley

建议你用我10楼的代码，什么都别改，复制到txt中保存为bat文件(ANSI编码)，然后放在需转换zip的压缩包文件夹内，双击试下会不会出问题。
刚我又加试了加个没密码的7z压缩包，也是可以的。

补充下：在10楼代码的运行最后，第7行cls后，以及第34行ok后，加一个setlocal disabledelayedexpansion，关闭变量延迟。如果后面还会加代码的话，不加代码那不加也没事。

如果说多压缩文件会串文件，那只可能是 有些没解压成功时 就释放了些无效0字节文件在~temp文件夹，那建议你在22行 goto :eof之前与20行之后加上如下代码。
rd ~Tmp /s /q >nul 2>nul

还是重新发份，你就用如下这份代码，什么都不用改，保存为bat试下
  1. @echo off

  2. mkdir "%~dp0已转换的7z"

  3. 

  4. echo. 读取文本密码

  5. for /f "delims=" %%x in ('TYPE pw.txt')do (set pw=%%x &call :chpw)

  6. 

  7. cls

  8. setlocal disabledelayedexpansion

  9. color c7

  10. echo.&echo.&echo 运行结束，如有剩余【未解压转换zip】的7z文件，请检查密码的正确性，以及密码是否含""引号 &echo.&echo.

  11. rd ~Tmp /s /q >nul 2>nul

  12. TIMEOUT /T 3 /NOBREAK

  13. exit

  14. 

  15. 

  16. :chpw

  17. echo. 7z转换zip

  18. path "%ProgramFiles%\7-Zip";%path%

  19. setlocal enabledelayedexpansion

  20. for /f "delims=" %%i in ('dir /b /a-d *.7z *.rar') do (set zf=%%i

  21. 7z x "!zf!" -p!pw! -o"%~dp0~Tmp" -aoa &&7z a "%%~dpni.zip" "%~dp0~Tmp\*" -y -sdel &&goto pass

  22. rd ~Tmp /s /q >nul 2>nul

  23. )

  24. goto :eof

  25. 

  26. 

  27. :pass

  28. move "!zf!" "%cd%\已转换的7z\"

  29. rd ~Tmp /s /q >nul 2>nul

  30. 

  31. (for /f "delims=" %%a in ('dir /b /a-d *.7z') do set zf2=%%a)>nul 2>nul

  32. if "%zf2%"=="" goto ok

  33. goto :eof

  34. 

  35. 

  36. :ok

  37. cls

  38. setlocal disabledelayedexpansion

  39. color b1

  40. echo.&echo.&echo 【7z转换zip已全部完成】&echo.&echo.

  41. TIMEOUT /T 3 /NOBREAK

  42. exit
复制代码

TOP

holley

Rank: 5Rank: 5

帖子
119 
积分
756 
技术
9  
捐助
0  
注册时间
2010-11-4 
12楼
发表于 2022-8-19 11:04 | 只看该作者
回复 11# fzp070

附上我的最新测试情况及所用pw.txt，昨天试了半天
临时演示 https://jam.lanzouy.com/b0413ygti 密码:8888

TOP

holley

Rank: 5Rank: 5

帖子
119 
积分
756 
技术
9  
捐助
0  
注册时间
2010-11-4 
13楼
发表于 2022-8-19 13:41 | 只看该作者
回复 11# fzp070 
  1. @echo off

  2. mkdir "%~dp0已转换的7z"

  3. 

  4. echo. 读取文本密码

  5. for /f "delims=" %%x in ('TYPE pw.txt')do (set pw=%%x &call :chpw)

  6. 

  7. cls

  8. setlocal disabledelayedexpansion

  9. color c7

  10. echo.&echo.&echo 运行结束，如有剩余【未解压转换zip】的7z文件，请检查密码的正确性，以及密码是否含""引号 &echo.&echo.

  11. rd ~Tmp /s /q >nul 2>nul

  12. TIMEOUT /T 3 /NOBREAK

  13. exit

  14. 

  15. 

  16. :chpw

  17. echo. 7z转换zip

  18. path "%ProgramFiles%\7-Zip";%path%

  19. setlocal enabledelayedexpansion

  20. for /f "delims=" %%i in ('dir /b /a-d *.7z *.rar') do (set zf=%%i

  21. 7z x "!zf!" -p!pw! -o"%~dp0~Tmp" -aoa &&7z a "%%~dpni.zip" "%~dp0~Tmp\*" -y -sdel

  22. rd ~Tmp /s /q >nul 2>nul

  23. )

  24. if not "!zf!"=="" goto pass

  25. goto :eof

  26. 

  27. 

  28. :pass

  29. move "!zf!" "%cd%\已转换的7z\"

  30. rd ~Tmp /s /q >nul 2>nul

  31. 

  32. (for /f "delims=" %%a in ('dir /b /a-d *.7z *.rar') do set zf2=%%a)>nul 2>nul

  33. if "%zf2%"=="" goto ok

  34. goto :eof

  35. 

  36. 

  37. :ok

  38. cls

  39. setlocal disabledelayedexpansion

  40. color b1

  41. echo.&echo.&echo 【7z转换zip已全部完成】&echo.&echo.

  42. TIMEOUT /T 3 /NOBREAK

  43. exit
复制代码
将你11#21行的goto pass换到循环外if not "!zf!"=="" goto pass ，目前压缩包转移全部生效了，但压缩包转换格式 10个测试包还是有2个未生效- -，pw.txt无特殊字符，相关测试文件都在12楼。

TOP

fzp070

Rank: 3Rank: 3

帖子
107 
积分
237 
技术
9  
捐助
0  
注册时间
2009-10-24 
14楼
发表于 2022-8-19 14:52 | 只看该作者
回复 13# holley

你好，我刚拿你的压缩包和密码试了，确实存在问题，不好意思了，考虑不周全
原因就是相同密码的压缩包，解压成功一次后密码就过掉了，导致另一个相同密码的压缩包未解压成功，已改代码，我这拿你的压缩包试了可以，你再试试
  1. @echo off

  2. mkdir "%~dp0已转换的7z"

  3. 

  4. echo. 读取文本密码

  5. for /f "delims=" %%x in ('TYPE pw.txt')do (set pw=%%x &call :chpw)

  6. 

  7. cls

  8. ::setlocal disabledelayedexpansion

  9. color c7

  10. echo.&echo.&echo 运行结束，如有剩余【未解压转换zip】的7z与rar文件，请检查密码的正确性，以及密码是否含""引号 &echo.&echo.

  11. rd ~Tmp /s /q >nul 2>nul

  12. TIMEOUT /T 3 /NOBREAK

  13. exit

  14. 

  15. 

  16. :chpw

  17. echo. 7z转换zip

  18. path "%ProgramFiles%\7-Zip";%path%

  19. setlocal enabledelayedexpansion

  20. for /f "delims=" %%i in ('dir /b /a-d *.7z *.rar') do (set zf=%%i

  21. 7z x "!zf!" -p!pw! -o"%~dp0~Tmp" -aoa &&7z a "%%~dpni.zip" "%~dp0~Tmp\*" -y -sdel &&move "!zf!" "%cd%\已转换的7z\"

  22. rd ~Tmp /s /q >nul 2>nul

  23. )

  24. (for /f "delims=" %%a in ('dir /b /a-d *.7z *.rar') do set zf2=%%a)>nul 2>nul

  25. if "%zf2%"=="" goto ok

  26. goto :eof

  27. 

  28. 

  29. :ok

  30. cls

  31. ::setlocal disabledelayedexpansion

  32. color b1

  33. echo.&echo.&echo 【7z转换zip已全部完成】&echo.&echo.

  34. TIMEOUT /T 3 /NOBREAK

  35. exit
复制代码
1

评分人数

    • holley: 十分感谢！技术 + 1

TOP

holley

Rank: 5Rank: 5

帖子
119 
积分
756 
技术
9  
捐助
0  
注册时间
2010-11-4 
15楼
发表于 2022-8-19 15:13 | 只看该作者
回复 14# fzp070


    多谢帮助！测试这几个包正常了。我扩大范围试试效果，，，这两天头昏眼花，水平有限，分析不清楚问题原因。

TOP

12
返回列表