[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
没有数字的咋办?
数字有重复的咋办?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

  1. @echo off
  2. ::RM格式电影重命名演示程序
  3. ::只保留文件名中的数字(不考虑数字重复的情况)和后缀名
  4. ::如何演示结果无误,把ren前面的echo去掉,即可实现真正重命名。
  5. setlocal enabledelayedexpansion
  6. set FilmFolder=C:\test
  7. for /f "delims=" %%a in ('dir /s /b %FilmFolder%\*.rm') do (
  8.   call :NumFilter %%~na
  9.   if "!num!" neq "" (
  10.     echo ren "%%a" !num!%%~xa
  11.   )
  12. )
  13. pause
  14. goto :eof
  15. :NumFilter
  16. set "str=%1"
  17. set num=
  18. :LoopFilter
  19. set char=%str:~0,1%
  20. if %char% geq 0 (
  21.   if %char% leq 9 (
  22.     set num=!num!%char%
  23.   )
  24. )
  25. set str=%str:~1%
  26. if "%str%" neq "" (
  27.   goto :LoopFilter
  28. ) else (
  29.   goto :eof
  30. )
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 13楼 的帖子

好好看看批处理基础教程吧,总想要现成的代码不利于自己的提高。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表