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

Rank: 3Rank: 3

帖子
56 
积分
264 
技术
0  
捐助
0  
注册时间
2009-7-3 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2010-2-1 23:42 | 只看该作者

[文件操作] 批处理怎样定期删除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上的文件执行删除？？
收藏 分享

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14932 
积分
46139 
技术
857  
捐助
745  
注册时间
2008-6-9 
6楼
发表于 2010-2-2 20:51 | 只看该作者

回复 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

sysplay

Rank: 5Rank: 5

帖子
38 
积分
650 
技术
0  
捐助
0  
注册时间
2009-7-11 
5楼
发表于 2010-2-2 19:28 | 只看该作者
我觉得可以考虑使用forfiles命令，这个命令在Win2003中，xp中不知道有没有。
  1.  

  2. @echo off

  3. forfiles /D -15 /C "cmd /c del @file"

  4. pause
复制代码

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

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

TOP

tianya520feng

Rank: 1

帖子
10 
积分
31 
技术
0  
捐助
0  
注册时间
2010-1-27 
4楼
发表于 2010-2-2 14:04 | 只看该作者
额，按照楼主的思路做了一下。整体思路是这样的：先模拟环境，建一些文件，然后建一个批处理来操作。
先建一个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. 

  5. D:\我的文档\桌面\新建文件夹 的目录

  6. 

  7. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100118_1800.bak.zip

  8. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100119_1800.bak.zip

  9. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100120_1800.bak.zip

  10. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100121_1800.bak.zip

  11. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100122_1800.bak.zip

  12. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100123_1800.bak.zip

  13. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100124_1800.bak.zip

  14. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100125_1800.bak.zip

  15. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100126_1800.bak.zip

  16. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100127_1800.bak.zip

  17. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100128_1800.bak.zip

  18. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100129_1800.bak.zip

  19. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100130_1800.bak.zip

  20. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100131_1800.bak.zip

  21. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100201_1800.bak.zip

  22.               15 个文件              0 字节

  23.                0 个目录 14,049,058,816 可用字节

  24. 请设定要删除几天前的记录：3

  25. 

  26. 

  27. 

  28. 处理后文件列表：

  29. 驱动器 D 中的卷是 Windows 2003

  30. 卷的序列号是 6C8A-606C

  31. 

  32. D:\我的文档\桌面\新建文件夹 的目录

  33. 

  34. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100130_1800.bak.zip

  35. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100131_1800.bak.zip

  36. 2010-02-02  14:00                 0 5512_17Dgdaj-xxwj_20100201_1800.bak.zip

  37.                3 个文件              0 字节

  38.                0 个目录 14,049,058,816 可用字节

  39. 请按任意键继续. . .
复制代码
我也是上个星期才接触批处理，这代码感觉写得很臃肿，比如用到var1,var2,var3什么的，可是我不知道怎么去简化代码，请大家帮帮忙，教教我应该如何简化，谢谢了！
注明一下：该方法存在误差，误差天数应该在1天，也就是说，你删除50天前的数据，可能实际上只保留了49天的数据，因为我的天数是按30天来算的，没细想了，我想即使有误差，这点误差也影响不大，呵呵，因为我也经常管理公司数据库的备份 ^_^

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

TOP

qwertl

Rank: 3Rank: 3

帖子
56 
积分
264 
技术
0  
捐助
0  
注册时间
2009-7-3 
3楼
发表于 2010-2-2 00:14 | 只看该作者
共享一下（根据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

vsbat

Rank: 7Rank: 7Rank: 7

帖子
419 
积分
4670 
技术
12  
捐助
0  
注册时间
2009-5-31 
2楼
发表于 2010-2-2 00:00 | 只看该作者
如果小于15天前日期的

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

TOP

返回列表