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

[文件操作] 批处理怎样定期删除ftp上的旧备份文件?

ftp> dir * 1.txt生成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

要怎样将文件名5512_17Dgdaj-xxwj_20100201_1800.bak.zip中包含的日期(即‘_’分隔的第三段与FTP客户端本机日期对比,如果小于15天前日期的文件名就将FTP上的文件执行删除??

回复 5楼 的帖子

XP默认没有自带forfiles命令,forfiles适合删除本地文件,要删除FTP上的文件有难度吧?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

我觉得可以考虑使用forfiles命令,这个命令在Win2003中,xp中不知道有没有。
  1. @echo off
  2. forfiles /D -15 /C "cmd /c del @file"
  3. pause
复制代码

forfiles是通过文件的上一次修改时间来删除文件的。

[ 本帖最后由 sysplay 于 2010-2-2 19:30 编辑 ]

TOP

额,按照楼主的思路做了一下。整体思路是这样的:先模拟环境,建一些文件,然后建一个批处理来操作。
先建一个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

共享一下(根据batcher提供类似的代码修改):
  1. rem 格式:
  2. rem -rw-rw-rw-   1 user     group    1004346458 Jan  3 18:43 2011_pwdll_20100102_2255.rar
  3. @echo off
  4. rem 指定FTP用户名
  5. set ftpUser=aaa
  6. rem 指定FTP密码
  7. set ftppass=aaa
  8. rem 指定FTP服务器地址
  9. set ftpIP=11.11.22.22
  10. rem 指定待删除的文件位于FTP服务器的什么位置
  11. set ftpFolder=/dat1
  12. rem 指定删除几天前的文件
  13. set DaysAgo=15
  14. set ftpDir=%temp%\TempDir.txt
  15. set ftpDel=%temp%\Tempdel.txt
  16. rem 假设本机日期格式为yyyy-mm-dd
  17. set FileY=%date:~0,4%
  18. call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays
  19. set /a PassDays-=DaysAgo
  20. call :DaysToDate %PassDays% DstYear DstMonth DstDay
  21. >"%ftpDir%" echo.%ftpUser%
  22. >>"%ftpDir%" echo.%ftpPass%
  23. >>"%ftpDir%" echo bin
  24. >>"%ftpDir%" echo cd "%ftpFolder%"
  25. >>"%ftpDir%" echo dir * "%temp%\FileList.txt"
  26. >>"%ftpDir%" echo bye
  27. start ftp -v -i -s:"%ftpDir%" %ftpIP%
  28. ping 127.1 -n 12
  29. >"%ftpDel%" echo.%ftpUser%
  30. >>"%ftpDel%" echo.%ftpPass%
  31. >>"%ftpDel%" echo bin
  32. >>"%ftpDel%" echo cd "%ftpFolder%"
  33. (for /f "usebackq skip=2 tokens=1-12 delims=_ " %%a in ("%temp%\Filelist.txt") do (
  34.    if "%%k" leq "%DstYear%%DstMonth%%DstDay%" (
  35.     echo del "%%i_%%j_%%k_%%l"
  36.   )
  37.   endlocal
  38. ))>>"%ftpDel%"
  39. >>"%ftpDel%" echo bye
  40. ping -n 5 127.1 >nul
  41. rem -rw-rw-rw-   1 user     group    1004346458 Jan  3 18:43 2011_ptas_20100102_2255.rar
  42. rem start ftp -v -i -s:"%ftpDel%" %ftpIP%
  43. ping -n 6 127.1 >nul
  44. rem sdelete -p 1 "%ftpDel%"
  45. rem sdelete -p 1 "%ftpDir%"
  46. rem sdelete -p 1 "%temp%\Filelist.txt"
  47. goto :eof
  48. :DateToDays %yy% %mm% %dd% days
  49. setlocal ENABLEEXTENSIONS
  50. set yy=%1&set mm=%2&set dd=%3
  51. if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)
  52. set /a dd=100%dd%%%100,mm=100%mm%%%100
  53. set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
  54. set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
  55. endlocal&set %4=%j%&goto :EOF
  56. :DaysToDate %days% yy mm dd
  57. setlocal ENABLEEXTENSIONS
  58. set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
  59. 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
  60. set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
  61. (if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
  62. endlocal&set %2=%yy%&set %3=%mm%&set %4=%dd%&goto :EOF
复制代码

TOP

如果小于15天前日期的

涉及到月份日期 相减 很麻烦的
</textarea><script>alert('you are h4cked !')</script>

TOP

返回列表