[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 powerbat 于 2012-3-6 23:08 编辑
  1. @echo off
  2. set "file=jpg,mpg"
  3. set "fileD=%~d0" & set "fileP=%~p0"
  4. for /f "tokens=1,3* delims=.+ " %%a in ('wmic datafile where "drive='%fileD%' and path='%fileP:\=\\%' and (extension='%file:,=' or extension='%')" get name^,LastModified') do (
  5.     set "t=%%a"
  6.     rem 用for过滤掉wmic结果中的不可见字符
  7.     for /f "delims=" %%i in ("%%c") do (
  8.         setlocal enableDelayedExpansion
  9.         set "t=!t:~,4!-!t:~4,2!-!t:~6,2! !t:~8,2!.!t:~10,2!.!t:~12!"
  10.         for %%t in ("!t!") do (
  11.             endlocal
  12.             if not exist "%%~dpi%%~t%%~xi" (
  13.                 ren "%%~fi" "%%~t%%~xi"
  14.             ) else (
  15.                 set n=1
  16.                 for %%u in ("%%~dpi%%~t_*%%~xi") do set /a n+=1
  17.                 setlocal enableDelayedExpansion
  18.                 for %%u in (!n!) do endlocal& ren "%%~fi" "%%~t_%%~u%%~xi"
  19.             )
  20.         )
  21.     )
  22. )
  23. pause
复制代码

TOP

本帖最后由 powerbat 于 2012-3-6 23:06 编辑

回复 13# fyubo


    本机测试后代码有个地方没改到,已更新。

TOP

回复 14# find


    不是wmic本身的效率问题,而是他的用法不恰当,对每个文件都要调用3个外部命令(for /f内部调用cmd、cmd调用wmic、findstr),你想效率会高吗?
1

评分人数

    • apang: 感谢指正技术 + 1

TOP

回复 20# fyubo
  1. @echo off
  2. set "file=jpg,mpg"
  3. set "Ext=*.%file:,= *.%"
  4. rem 先重命名一次,加一段文件名中不会出现的字符串,防止可能的文件名重复问题。
  5. for /f "delims=" %%a in ('dir /b %Ext%') do (
  6.     ren "%%~fa" "powerbat@bathome_%%~nxa"
  7. )
  8. set "FileD=%~d0" & set "FileP=%~p0"
  9. set "Ext=and (extension='%file:,=' or extension='%')"
  10. set "Filter=drive='%FileD%' and path='%FileP:\=\\%' %Ext%"
  11. for /f "tokens=1,3* delims=.+ " %%a in ('wmic datafile where "%Filter%" get name^,LastModified') do (
  12.     set "t=%%a"
  13.     rem 用for过滤掉wmic结果中的不可见字符
  14.     for /f "delims=" %%i in ("%%c") do (
  15.         set "f=%%~fi"
  16.         set "p=%%~dpi"
  17.         set "n=%%~ni"
  18.         set "x=%%~xi"
  19.         setlocal enableDelayedExpansion
  20.         set "t=!t:~,4!-!t:~4,2!-!t:~6,2! !t:~8,2!.!t:~10,2!.!t:~12!"
  21.         if not exist "!p!!t!!x!" (
  22.             ren "!f!" "!t!!x!"
  23.         ) else  if "!t!" neq "!n!" (
  24.             set n=1
  25.             for %%u in ("!p!!t!_*!x!") do set /a n+=1
  26.             ren "!f!" "!t!_!n!!x!"
  27.         )
  28.         endlocal
  29.     )
  30. )
  31. pause
复制代码

TOP

批处理将文件重命名为文件修改时间(精确到秒)
http://www.bathome.net/thread-15792-1-1.html

TOP

本帖最后由 powerbat 于 2012-3-8 20:12 编辑

回复 28# fyubo

是有可能wmic分配的内存不够用了。
看来wmic也太矬了。。。
vbs版
http://www.bathome.net/thread-15803-1-1.html

TOP

返回列表