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

[文件操作] 批处理如何实现文件版本更替,并保留最新文件?

假如#+数字(比如#78)为同名文件的版本号,那么如何实现保留最新的版本,如果不存在#+数字,则默认为该版本为同名文件的最新文件,然后,通过确认删除#+数字后删除#+数字

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. REM 循环所有pdf文件
  4. for /f "delims=" %%i in ('dir /b *.pdf ^| sort') do (
  5. for /f "tokens=1,2 delims=#." %%a in ("%%i") do (
  6. set "curFileName=%%a"
  7. set "curVer=%%b"
  8. if "!curVer!"=="pdf" set "curVer=0"
  9. )
  10. if "!lastFileName!"=="" set "lastFile=%%i"&set "lastFileName=!curFileName!"&set "lastVer=!curVer!"
  11. if "!curFileName!"=="!lastFileName!" (
  12. REM 删掉ECHO
  13. if !curVer! lss !lastVer!  ECHO del "%%i"&set "curVer=!lastVer!"
  14. REM 删掉ECHO
  15. if !curVer! gtr !lastVer! ECHO del "!lastFile!"&set "lastFile=%%i"
  16. set "lastFileName=!curFileName!"&set "lastVer=!curVer!"
  17. ) else (
  18. echo ---^> !lastFileName!最新版本:!lastVer!
  19. REM 删掉ECHO
  20. ECHO rename "!lastFileName!#!lastVer!.pdf" "!lastFileName!.pdf"
  21. set "lastFile=%%i"&set "lastFileName=!curFileName!"&set "lastVer=!curVer!"
  22. echo --------------------------------------------------
  23. )
  24. )
  25. echo ---^> !lastFileName!最新版本:!lastVer!
  26. REM 删掉ECHO
  27. ECHO rename "!lastFileName!#!lastVer!.pdf" "!lastFileName!.pdf"
  28. echo --------------------------------------------------
  29. pause
复制代码
确认无误删掉大写的ECHO

TOP

本帖最后由 WHY 于 2019-12-4 20:45 编辑

好吧,保存为 Test.BAT,修改 E:\Test 为实际目录名称,双击运行。
如果显示无误,删除脚本中的 -WhatIf
  1. @echo off
  2. PowerShell -exec ByPass -c "dir -Literal 'E:\Test' -filter *.pdf | sort{1*($_.BaseName -split '#(\d+)$')[1]} -Desc | group{$_.BaseName -replace '#\d+$'} | ?{$_.Count-1} | %%{ $f = $_.Group | select -Exp fullName; del -Literal $f[1..($_.Count-1)] -WhatIf; mv -Literal $f[0] -Dest ($f[0] -replace '#\d+(\.pdf)$','$1') -WhatIf}"
  3. pause
复制代码

TOP

回复  WHY
如果文件名是这样的   F402-1#6,路径也包含中文名,这个程序需要做什么样的调整
星空独子 发表于 2019-12-4 09:21


扩展名是 pdf 就行,这个程序没必要做调整。

TOP

回复 6# WHY
如果文件名是这样的   F402-1#6,路径也包含中文名,这个程序需要做什么样的调整

TOP

  1. dir 'E:\Test\*.pdf' | sort{1*($_.BaseName -split '#(\d+)$')[1]} -Desc | group{($_.BaseName -split '#\d+$')[0]} | ?{$_.Count-1} | %{del $_.Group[1..($_.Count-1)] -WhatIf; ren $_.Group[0] -NewName ($_.Group[0].Name -replace '#\d+(\.pdf)$','$1') -WhatIf }
复制代码
效果:
WhatIf: 对目标“E:\Test\目视检查#12.pdf”执行操作“删除文件”。
WhatIf: 对目标“E:\Test\目视检查.pdf”执行操作“删除文件”。
WhatIf: 对目标“项: E:\Test\目视检查#78.pdf 目标: E:\Test\目视检查.pdf”执行操作“重命名文件”。
WhatIf: 对目标“E:\Test\设备检查.pdf”执行操作“删除文件”。
WhatIf: 对目标“项: E:\Test\设备检查#7.pdf 目标: E:\Test\设备检查.pdf”执行操作“重命名文件”。

TOP

回复 4# Batcher
是的,理解的很到位

TOP

回复 1# 星空独子


以顶楼这几个文件为例,需要实现的目标是不是这样:

删除文件[目视检查.pdf]、[目视检查#12.pdf]
[目视检查#78.pdf]重命名为[目视检查.pdf]

删除文件[设备检查.pdf]
[设备检查#7.pdf]重命名为[设备检查.pdf]
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 2# flashercs
大神,你的代码无法对同名文件就行版本比较并保留最新版本的文件,其次不能删除文件名中#+数字,你的代码直接把我文件给删除了,最后我的确认只需要一次,就实现#+数字的删除,而非每个文件都确认

TOP

  1. del /p *#*.pdf
复制代码
微信:flashercs
QQ:49908356

TOP

返回列表