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

[文件操作] [已解决]BAT脚本批量修改文件问题

请教大神,我写了个批量修改文件在用的时候发现遇到转换后有重名就会转换不成功,怎么实现自动重命名?这是我现在的代码
  1. @echo off
  2. for /f "delims=" %%i in ('dir /b /a-d /s "*.docx"') do ren "%%i" "%%~ni.doc"
  3. pause
复制代码

  1. @echo off
  2. setlocal enableDelayedExpansion
  3. for /f "delims=" %%i in ('dir /b /a-d /s "*.docx"') do (
  4.     call :f1 %%i
  5. )
  6. goto :END
  7. :f1
  8. set filename=%~n1
  9. :loop
  10. if exist "!filename!.doc" (
  11.     set /a filename+=1
  12.     goto :loop
  13. )
  14. ren "%1" "!filename!.doc"
  15. goto :eof
  16. :END
复制代码

TOP

回复 2# newswan

运行了没有反应大神,也没有转换成功!

TOP

  1. for /f "delims=" %%i in ('dir /b/a-d/s *.docx')do if exist "%%~dpni.doc" (ren "%%i" "%%~ni1.doc")else ren "%%i" "%%~ni.doc"
复制代码
1

评分人数

    • xjhbbs: 直接明了,可以用技术 + 1
如无特别说明,代码测试环境均为 XP SP3

TOP

  1. @echo off
  2. setlocal enableDelayedExpansion
  3. for /f "delims=" %%i in ('dir /b /s "*.docx"') do (
  4.     call :f1 "%%i"
  5. )
  6. goto :END
  7. :f1
  8. set filename=%~n1
  9. :loop
  10. if exist "%~dp1!filename!.doc" (
  11.     set /a filename+=1
  12.     goto :loop
  13. )
  14. ren %1 %filename%.doc
  15. goto :eof
  16. :END
复制代码
子目录,没注意你那里有 /s 参数
1

评分人数

TOP

回复 4# cutebe

谢谢谢谢!

TOP

回复 5# newswan


好的,可以了,谢谢

TOP

我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表