[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
额,按照楼主的思路做了一下。整体思路是这样的:先模拟环境,建一些文件,然后建一个批处理来操作。
先建一个1.txt 文件,内容即为楼主所列的

-rw-rw-rw-   1 user     group      173486 Jan 18 20:10 5512_17Dgdaj-xxwj_20100118_1800.bak.zip
-rw-rw-rw-   1 user     group      173464 Jan 19 20:10 5512_17Dgdaj-xxwj_20100119_1800.bak.zip
-rw-rw-rw-   1 user     group      173487 Jan 20 20:10 5512_17Dgdaj-xxwj_20100120_1800.bak.zip
-rw-rw-rw-   1 user     group      173466 Jan 21 20:10 5512_17Dgdaj-xxwj_20100121_1800.bak.zip
-rw-rw-rw-   1 user     group      173486 Jan 22 20:10 5512_17Dgdaj-xxwj_20100122_1800.bak.zip
-rw-rw-rw-   1 user     group      173467 Jan 23 20:10 5512_17Dgdaj-xxwj_20100123_1800.bak.zip
-rw-rw-rw-   1 user     group      173487 Jan 24 20:10 5512_17Dgdaj-xxwj_20100124_1800.bak.zip
-rw-rw-rw-   1 user     group      173462 Jan 25 20:10 5512_17Dgdaj-xxwj_20100125_1800.bak.zip
-rw-rw-rw-   1 user     group      173482 Jan 26 20:10 5512_17Dgdaj-xxwj_20100126_1800.bak.zip
-rw-rw-rw-   1 user     group      173467 Jan 27 20:10 5512_17Dgdaj-xxwj_20100127_1800.bak.zip
-rw-rw-rw-   1 user     group      173483 Jan 28 20:10 5512_17Dgdaj-xxwj_20100128_1800.bak.zip
-rw-rw-rw-   1 user     group      173454 Jan 29 20:10 5512_17Dgdaj-xxwj_20100129_1800.bak.zip
-rw-rw-rw-   1 user     group      173484 Jan 30 20:10 5512_17Dgdaj-xxwj_20100130_1800.bak.zip
-rw-rw-rw-   1 user     group      173463 Jan 31 20:10 5512_17Dgdaj-xxwj_20100131_1800.bak.zip
-rw-rw-rw-   1 user     group      173481 Feb  1 20:10 5512_17Dgdaj-xxwj_20100201_1800.bak.zip

然后在 1.txt 同目录下建一批处理文件,内容为:
  1. @echo off&setlocal EnableDelayedExpansion
  2. for /f "tokens=9" %%i in (1.txt) do (echo %%i>>b.txt)
  3. ::选取文件名列表
  4. for /f %%i in (b.txt) do (cd.>%%i)
  5. ::根据上面的文件名列表批量新建文件,作为演示
  6. del b.txt
  7. echo 新建演示文件成功
  8. dir *.zip
  9. ::删除临时文件b.txt
  10. for /f "tokens=1-3 delims=-/ " %%a in ('date /t') do set/a date1=%%a*365+%%b*30+%%c
  11. ::2010*365+02*30+02
  12. ::获取当前系统时间的数字格式
  13. ::echo 当前时间值为%date1%
  14. set/p date2=请设定要删除几天前的记录:
  15. set/a date3=%date1%-%date2%
  16. ::echo 之后时间值为%date3%
  17. for /r %%i in (*.zip) do (
  18. ::echo %%~nxi
  19. set var=%%~nxi
  20. ::echo !var!
  21. set var1=!var!
  22. call,  set/a var2=%%var1:~18,8%%
  23. ::echo !var2!
  24. call, set/a var3=%%var2:~0,4%%*365+%%var2:~4,2%%*30+%%var2:~-2%%
  25. ::echo !var3!
  26. if !var3! leq %date3% (del %%i) else echo.
  27. )
  28. echo 处理后文件列表:
  29. dir *.zip
  30. pause
复制代码
以上代码均做了详细的注释,注一下,我电脑上的日期格式为:
  1. 2010-02-02 星期二
复制代码
如果日期格式不同,请自行修改。
运行结果如下(我选择删除3天前记录):
  1. 新建演示文件成功
  2. 驱动器 D 中的卷是 Windows 2003
  3. 卷的序列号是 6C8A-606C
  4. D:\我的文档\桌面\新建文件夹 的目录
  5. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100118_1800.bak.zip
  6. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100119_1800.bak.zip
  7. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100120_1800.bak.zip
  8. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100121_1800.bak.zip
  9. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100122_1800.bak.zip
  10. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100123_1800.bak.zip
  11. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100124_1800.bak.zip
  12. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100125_1800.bak.zip
  13. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100126_1800.bak.zip
  14. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100127_1800.bak.zip
  15. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100128_1800.bak.zip
  16. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100129_1800.bak.zip
  17. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100130_1800.bak.zip
  18. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100131_1800.bak.zip
  19. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100201_1800.bak.zip
  20.               15 个文件              0 字节
  21.                0 个目录 14,049,058,816 可用字节
  22. 请设定要删除几天前的记录:3
  23. 处理后文件列表:
  24. 驱动器 D 中的卷是 Windows 2003
  25. 卷的序列号是 6C8A-606C
  26. D:\我的文档\桌面\新建文件夹 的目录
  27. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100130_1800.bak.zip
  28. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100131_1800.bak.zip
  29. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100201_1800.bak.zip
  30.                3 个文件              0 字节
  31.                0 个目录 14,049,058,816 可用字节
  32. 请按任意键继续. . .
复制代码
我也是上个星期才接触批处理,这代码感觉写得很臃肿,比如用到var1,var2,var3什么的,可是我不知道怎么去简化代码,请大家帮帮忙,教教我应该如何简化,谢谢了!
注明一下:该方法存在误差,误差天数应该在1天,也就是说,你删除50天前的数据,可能实际上只保留了49天的数据,因为我的天数是按30天来算的,没细想了,我想即使有误差,这点误差也影响不大,呵呵,因为我也经常管理公司数据库的备份 ^_^

[ 本帖最后由 tianya520feng 于 2010-2-2 14:08 编辑 ]

TOP

返回列表