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

[文件操作] 求助,想请教一下批处理代码的意思

之前在网上找了一个清理文件的批处理,想针对性做一些修改,发现不知道具体命令的含义,百度也没能找到,想求助一下各位大神
  1. set DaysAgo=14
  2. rem 假设系统日期的格式为mm-dd-YYYY
  3. call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays
  4. set /a PassDays-=%DaysAgo%
  5. call :DaysToDate %PassDays% DstYear DstMonth DstDay
  6. rd /s /q C:\test\%DstMonth%-%DstDay%-%DstYear%
  7. goto :eof
  8. :DateToDays %yy% %mm% %dd% days
  9. setlocal ENABLEEXTENSIONS
  10. set yy=%1&set mm=%2&set dd=%3
  11. if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)
  12. set /a dd=100%dd%%%100,mm=100%mm%%%100
  13. set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
  14. set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
  15. endlocal&set %4=%j%&goto :EOF
  16. :DaysToDate %days% yy mm dd
  17. setlocal ENABLEEXTENSIONS
  18. set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
  19. set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
  20. set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
  21. (if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
  22. endlocal&set %2=%yy%&set %3=%mm%&set %4=%dd%&goto :EOF
复制代码
希望大神们能讲解一下,或者提点一下思路

回复 4# pxj


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

TOP

回复 3# Batcher


谢谢

TOP

回复 2# flashercs

谢谢,再问一下,我原来贴的代码的其他部分是多余的吗?

TOP

回复 1# pxj


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

TOP

本帖最后由 flashercs 于 2020-5-28 17:47 编辑
  1. REM 删除过去DaysAgo天的日期为名的目录
  2. REM 14天前
  3. set DaysAgo=14
  4. rem 假设系统日期的格式为mm-dd-YYYY
  5. call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays
  6. set /a PassDays-=%DaysAgo%
  7. call :DaysToDate %PassDays% DstYear DstMonth DstDay
  8. rd /s /q C:\test\%DstMonth%-%DstDay%-%DstYear%
  9. goto :eof
复制代码
功能:删除14天以前的日期为名称的目录.
微信:flashercs
QQ:49908356

TOP

返回列表