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

[文本处理] 批处理把图片png全都换成jpg格式的代码效率太慢了

代码如下,作用是:
桌面的图片png全都换成jpg格式的
图片的名字中如果包含:_p0   _p1  _p2 _p3 _p4 _p5 _p6 …… _p10等字样就删掉。

这代码太卡了,得好一会儿~同样的作用,有没有更好的答案,大神出现吧。
  1. ren C:\Users\Administrator\Desktop\*.png  *.jpg
  2. ::去除_p0
  3. @echo off
  4. set  str1=_p0
  5. echo.
  6. for /f "delims=" %%a in ('dir /a-d /b C:\Users\Administrator\Desktop\*.jpg') do (
  7. if "%%~nxa" neq "%~nx0" (
  8. set "file=%%a"
  9. set "name=%%~na"
  10. set "extension=%%~xa"
  11. call set "name=%%name:%str1%=%str2%%%"
  12. setlocal enabledelayedexpansion
  13. ren "!file!" "!name!!extension!" 2>nul
  14. endlocal
  15. )
  16. )
  17. ::去除_p1
  18. @echo off
  19. set  str1=_p1
  20. echo.
  21. for /f "delims=" %%a in ('dir /a-d /b C:\Users\Administrator\Desktop\*.jpg') do (
  22. if "%%~nxa" neq "%~nx0" (
  23. set "file=%%a"
  24. set "name=%%~na"
  25. set "extension=%%~xa"
  26. call set "name=%%name:%str1%=%str2%%%"
  27. setlocal enabledelayedexpansion
  28. ren "!file!" "!name!!extension!" 2>nul
  29. endlocal
  30. )
  31. )
  32. ::去除_p2
  33. @echo off
  34. set  str1=_p2
  35. echo.
  36. for /f "delims=" %%a in ('dir /a-d /b C:\Users\Administrator\Desktop\*.jpg') do (
  37. if "%%~nxa" neq "%~nx0" (
  38. set "file=%%a"
  39. set "name=%%~na"
  40. set "extension=%%~xa"
  41. call set "name=%%name:%str1%=%str2%%%"
  42. setlocal enabledelayedexpansion
  43. ren "!file!" "!name!!extension!" 2>nul
  44. endlocal
  45. )
  46. )
  47. ::去除_p3
  48. @echo off
  49. set  str1=_p3
  50. echo.
  51. for /f "delims=" %%a in ('dir /a-d /b C:\Users\Administrator\Desktop\*.jpg') do (
  52. if "%%~nxa" neq "%~nx0" (
  53. set "file=%%a"
  54. set "name=%%~na"
  55. set "extension=%%~xa"
  56. call set "name=%%name:%str1%=%str2%%%"
  57. setlocal enabledelayedexpansion
  58. ren "!file!" "!name!!extension!" 2>nul
  59. endlocal
  60. )
  61. )
复制代码

回复 1# 灯塔彭于晏
图片扩展名最好不要直接改,可使用图片转换软件,png——>jpg可瘦身不少。

TOP

  1. ren C:\Users\Administrator\Desktop\*.png  *.jpg
  2. powershell -Command "Convert-Path -Path C:\Users\Administrator\Desktop\*.jpg |Rename-Item -NewName {(Split-Path -Path $_ -Leaf) -replace '_p\d+',''} -Verbose"
复制代码
1

评分人数

微信:flashercs
QQ:49908356

TOP

有规律的这几个P0-P10应该可以融合进for循环吧?

TOP

返回列表