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

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
61楼 跳转到 »
发表于 2009-4-9 11:52 | 只看该作者

回复 60楼 的帖子

仔细看看35楼的代码：
      echo get "%%i" "%DownFolder%\%%i"
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

lazygc520

Rank: 5Rank: 5

帖子
157 
积分
633 
技术
0  
捐助
0  
注册时间
2008-8-2 
62楼
发表于 2009-4-9 13:01 | 只看该作者

回复 61楼 的帖子

谢谢，那如果要把数据同时存入2个文件夹怎么写？

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
63楼
发表于 2009-4-9 13:09 | 只看该作者

回复 62楼 的帖子

你把现在最新的完整代码贴出来，我帮你加上这个功能。
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

lazygc520

Rank: 5Rank: 5

帖子
157 
积分
633 
技术
0  
捐助
0  
注册时间
2008-8-2 
64楼
发表于 2009-4-9 13:12 | 只看该作者

回复 63楼 的帖子

谢谢！～
  1. @echo off

  2. rem 指定FTP用户名

  3. set ftpUser=asx

  4. rem 指定FTP密码

  5. set ftpPass=asx-asx

  6. rem 指定FTP服务器地址

  7. set ftpIP=172.19.103.7

  8. rem 指定待下载的文件位于FTP服务器的什么位置

  9. set ftpFolder=/export/home/PROD/ntcdata

  10. rem 指定从FTP下载下来的文件存放到什么地方

  11. set DownFolder=E:\Temp

  12. rem 指定下载几天前的文件

  13. set DaysAgo=1

  14. set ftpDir=%temp%\TempDir.txt

  15. set ftpDown=%temp%\TempDown.txt

  16. 

  17. rem 假设本机日期格式为yyyy-mm-dd

  18. set FileY=%date:~0,4%

  19. call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays

  20. set /a PassDays-=DaysAgo

  21. call :DaysToDate %PassDays% DstYear DstMonth DstDay

  22. 

  23. >"%ftpDir%" echo.%ftpUser%

  24. >>"%ftpDir%" echo.%ftpPass%

  25. >>"%ftpDir%" echo bin

  26. >>"%ftpDir%" echo cd "%ftpFolder%"

  27. >>"%ftpDir%" echo dir * "%temp%\FileList.txt"

  28. >>"%ftpDir%" echo bye

  29. start ftp -v -i -s:"%ftpDir%" %ftpIP%

  30. 

  31. rem 根据实际情况自行调节延迟时间

  32. ping -n 200 127.1 >nul

  33. 

  34. findstr /i ":*\.SWM$" "%temp%\FileList.txt">"%temp%\FileDate.txt"

  35. findstr /i ":*\.TWM$" "%temp%\FileList.txt">>"%temp%\FileDate.txt"

  36. findstr /i ":*\.OWM$" "%temp%\FileList.txt">>"%temp%\FileDate.txt"

  37. 

  38. >"%ftpDown%" echo.%ftpUser%

  39. >>"%ftpDown%" echo.%ftpPass%

  40. >>"%ftpDown%" echo bin

  41. >>"%ftpDown%" echo cd "%ftpFolder%"

  42. (for /f "usebackq tokens=1-9 delims= " %%a in ("%temp%\FileDate.txt") do (

  43.   setlocal enabledelayedexpansion

  44.   if "%%f" equ "Jan" (

  45.     set FileM=01

  46.   ) else if "%%f" equ "Feb" (

  47.     set FileM=02

  48.   ) else if "%%f" equ "Mar" (

  49.     set FileM=03

  50.   ) else if "%%f" equ "Apr" (

  51.     set FileM=04

  52.   ) else if "%%f" equ "May" (

  53.     set FileM=05

  54.   ) else if "%%f" equ "Jun" (

  55.     set FileM=06

  56.   ) else if "%%f" equ "Jul" (

  57.     set FileM=07

  58.   ) else if "%%f" equ "Aug" (

  59.     set FileM=08

  60.   ) else if "%%f" equ "Sep" (

  61.     set FileM=09

  62.   ) else if "%%f" equ "Oct" (

  63.     set FileM=10

  64.   ) else if "%%f" equ "Nov" (

  65.     set FileM=11

  66.   ) else if "%%f" equ "Dec" (

  67.     set FileM=12

  68.   )

  69.   set FileD=10%%g

  70.   set FileD=!FileD:~-2!

  71.   if "!FileM!" equ "%DstMonth%" (

  72.     if "!FileD!" equ "%DstDay%" (

  73.      echo get "%%i" "%DownFolder%\%%i"

  74.     )

  75.   )

  76.   endlocal

  77. ))>>"%ftpDown%"

  78. >>"%ftpDown%" echo bye

  79. start ftp -v -i -s:"%ftpDown%" %ftpIP%

  80. goto :eof

  81. 

  82. :DateToDays %yy% %mm% %dd% days

  83. setlocal ENABLEEXTENSIONS

  84. set yy=%1&set mm=%2&set dd=%3

  85. if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)

  86. set /a dd=100%dd%%%100,mm=100%mm%%%100

  87. set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2

  88. set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633

  89. endlocal&set %4=%j%&goto :EOF

  90. 

  91. :DaysToDate %days% yy mm dd

  92. setlocal ENABLEEXTENSIONS

  93. set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a

  94. 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

  95. set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10

  96. (if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)

  97. endlocal&set %2=%yy%&set %3=%mm%&set %4=%dd%&goto :EOF
复制代码

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
65楼
发表于 2009-4-9 13:57 | 只看该作者

回复 64楼 的帖子

两个思路：
1、先从FTP上面下载到一个文件夹中，下载完之后用xcopy复制到另一个文件夹。难点在于不容易判断下载操作什么时候能够完成。
2、从FTP上面下载两次。缺点在于下载时间会延长，会增加服务器的负担。代码如下：
  1. @echo off

  2. rem 指定FTP用户名

  3. set ftpUser=asx

  4. rem 指定FTP密码

  5. set ftpPass=asx-asx

  6. rem 指定FTP服务器地址

  7. set ftpIP=172.19.103.7

  8. rem 指定待下载的文件位于FTP服务器的什么位置

  9. set ftpFolder=/export/home/PROD/ntcdata

  10. rem 指定从FTP下载下来的文件存放到什么地方

  11. set DownFolder=E:\Temp

  12. set DownFolder2=E:\Temp2

  13. rem 指定下载几天前的文件

  14. set DaysAgo=1

  15. set ftpDir=%temp%\TempDir.txt

  16. set ftpDown=%temp%\TempDown.txt

  17. 

  18. rem 假设本机日期格式为yyyy-mm-dd

  19. set FileY=%date:~0,4%

  20. call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays

  21. set /a PassDays-=DaysAgo

  22. call :DaysToDate %PassDays% DstYear DstMonth DstDay

  23. 

  24. >"%ftpDir%" echo.%ftpUser%

  25. >>"%ftpDir%" echo.%ftpPass%

  26. >>"%ftpDir%" echo bin

  27. >>"%ftpDir%" echo cd "%ftpFolder%"

  28. >>"%ftpDir%" echo dir * "%temp%\FileList.txt"

  29. >>"%ftpDir%" echo bye

  30. start ftp -v -i -s:"%ftpDir%" %ftpIP%

  31. 

  32. rem 根据实际情况自行调节延迟时间

  33. ping -n 200 127.1 >nul

  34. 

  35. findstr /i ":*\.SWM$" "%temp%\FileList.txt">"%temp%\FileDate.txt"

  36. findstr /i ":*\.TWM$" "%temp%\FileList.txt">>"%temp%\FileDate.txt"

  37. findstr /i ":*\.OWM$" "%temp%\FileList.txt">>"%temp%\FileDate.txt"

  38. 

  39. >"%ftpDown%" echo.%ftpUser%

  40. >>"%ftpDown%" echo.%ftpPass%

  41. >>"%ftpDown%" echo bin

  42. >>"%ftpDown%" echo cd "%ftpFolder%"

  43. (for /f "usebackq tokens=1-9 delims= " %%a in ("%temp%\FileDate.txt") do (

  44.   setlocal enabledelayedexpansion

  45.   if "%%f" equ "Jan" (

  46.     set FileM=01

  47.   ) else if "%%f" equ "Feb" (

  48.     set FileM=02

  49.   ) else if "%%f" equ "Mar" (

  50.     set FileM=03

  51.   ) else if "%%f" equ "Apr" (

  52.     set FileM=04

  53.   ) else if "%%f" equ "May" (

  54.     set FileM=05

  55.   ) else if "%%f" equ "Jun" (

  56.     set FileM=06

  57.   ) else if "%%f" equ "Jul" (

  58.     set FileM=07

  59.   ) else if "%%f" equ "Aug" (

  60.     set FileM=08

  61.   ) else if "%%f" equ "Sep" (

  62.     set FileM=09

  63.   ) else if "%%f" equ "Oct" (

  64.     set FileM=10

  65.   ) else if "%%f" equ "Nov" (

  66.     set FileM=11

  67.   ) else if "%%f" equ "Dec" (

  68.     set FileM=12

  69.   )

  70.   set FileD=10%%g

  71.   set FileD=!FileD:~-2!

  72.   if "!FileM!" equ "%DstMonth%" (

  73.     if "!FileD!" equ "%DstDay%" (

  74.      echo get "%%i" "%DownFolder%\%%i"

  75.      echo get "%%i" "%DownFolder2%\%%i"

  76.     )

  77.   )

  78.   endlocal

  79. ))>>"%ftpDown%"

  80. >>"%ftpDown%" echo bye

  81. start ftp -v -i -s:"%ftpDown%" %ftpIP%

  82. goto :eof

  83. 

  84. :DateToDays %yy% %mm% %dd% days

  85. setlocal ENABLEEXTENSIONS

  86. set yy=%1&set mm=%2&set dd=%3

  87. if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)

  88. set /a dd=100%dd%%%100,mm=100%mm%%%100

  89. set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2

  90. set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633

  91. endlocal&set %4=%j%&goto :EOF

  92. 

  93. :DaysToDate %days% yy mm dd

  94. setlocal ENABLEEXTENSIONS

  95. set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a

  96. 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

  97. set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10

  98. (if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)

  99. endlocal&set %2=%yy%&set %3=%mm%&set %4=%dd%&goto :EOF
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

lazygc520

Rank: 5Rank: 5

帖子
157 
积分
633 
技术
0  
捐助
0  
注册时间
2008-8-2 
66楼
发表于 2009-4-9 14:08 | 只看该作者
如果我能保证在15分钟内完成ftp下载，按照第一种思路，复制的代码如何实现？

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
67楼
发表于 2009-4-9 14:20 | 只看该作者

回复 66楼 的帖子

  1. @echo off

  2. rem 指定FTP用户名

  3. set ftpUser=asx

  4. rem 指定FTP密码

  5. set ftpPass=asx-asx

  6. rem 指定FTP服务器地址

  7. set ftpIP=172.19.103.7

  8. rem 指定待下载的文件位于FTP服务器的什么位置

  9. set ftpFolder=/export/home/PROD/ntcdata

  10. rem 指定从FTP下载下来的文件存放到什么地方

  11. set DownFolder=E:\Temp

  12. set DownFolder2=E:\Temp2

  13. rem 指定下载几天前的文件

  14. set DaysAgo=1

  15. set ftpDir=%temp%\TempDir.txt

  16. set ftpDown=%temp%\TempDown.txt

  17. 

  18. rem 假设本机日期格式为yyyy-mm-dd

  19. set FileY=%date:~0,4%

  20. call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays

  21. set /a PassDays-=DaysAgo

  22. call :DaysToDate %PassDays% DstYear DstMonth DstDay

  23. 

  24. >"%ftpDir%" echo.%ftpUser%

  25. >>"%ftpDir%" echo.%ftpPass%

  26. >>"%ftpDir%" echo bin

  27. >>"%ftpDir%" echo cd "%ftpFolder%"

  28. >>"%ftpDir%" echo dir * "%temp%\FileList.txt"

  29. >>"%ftpDir%" echo bye

  30. start ftp -v -i -s:"%ftpDir%" %ftpIP%

  31. 

  32. rem 根据实际情况自行调节延迟时间

  33. ping -n 200 127.1 >nul

  34. 

  35. findstr /i ":*\.SWM$" "%temp%\FileList.txt">"%temp%\FileDate.txt"

  36. findstr /i ":*\.TWM$" "%temp%\FileList.txt">>"%temp%\FileDate.txt"

  37. findstr /i ":*\.OWM$" "%temp%\FileList.txt">>"%temp%\FileDate.txt"

  38. 

  39. >"%ftpDown%" echo.%ftpUser%

  40. >>"%ftpDown%" echo.%ftpPass%

  41. >>"%ftpDown%" echo bin

  42. >>"%ftpDown%" echo cd "%ftpFolder%"

  43. (for /f "usebackq tokens=1-9 delims= " %%a in ("%temp%\FileDate.txt") do (

  44.   setlocal enabledelayedexpansion

  45.   if "%%f" equ "Jan" (

  46.     set FileM=01

  47.   ) else if "%%f" equ "Feb" (

  48.     set FileM=02

  49.   ) else if "%%f" equ "Mar" (

  50.     set FileM=03

  51.   ) else if "%%f" equ "Apr" (

  52.     set FileM=04

  53.   ) else if "%%f" equ "May" (

  54.     set FileM=05

  55.   ) else if "%%f" equ "Jun" (

  56.     set FileM=06

  57.   ) else if "%%f" equ "Jul" (

  58.     set FileM=07

  59.   ) else if "%%f" equ "Aug" (

  60.     set FileM=08

  61.   ) else if "%%f" equ "Sep" (

  62.     set FileM=09

  63.   ) else if "%%f" equ "Oct" (

  64.     set FileM=10

  65.   ) else if "%%f" equ "Nov" (

  66.     set FileM=11

  67.   ) else if "%%f" equ "Dec" (

  68.     set FileM=12

  69.   )

  70.   set FileD=10%%g

  71.   set FileD=!FileD:~-2!

  72.   if "!FileM!" equ "%DstMonth%" (

  73.     if "!FileD!" equ "%DstDay%" (

  74.      echo get "%%i" "%DownFolder%\%%i"

  75.     )

  76.   )

  77.   endlocal

  78. ))>>"%ftpDown%"

  79. >>"%ftpDown%" echo bye

  80. start ftp -v -i -s:"%ftpDown%" %ftpIP%

  81. 

  82. rem 根据实际情况自行调节延迟时间

  83. ping -n 1000 127.1 >nul

  84. 

  85. copy /y "%DownFolder%\*.*" "%DownFolder2%"

  86. goto :eof

  87. 

  88. :DateToDays %yy% %mm% %dd% days

  89. setlocal ENABLEEXTENSIONS

  90. set yy=%1&set mm=%2&set dd=%3

  91. if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)

  92. set /a dd=100%dd%%%100,mm=100%mm%%%100

  93. set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2

  94. set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633

  95. endlocal&set %4=%j%&goto :EOF

  96. 

  97. :DaysToDate %days% yy mm dd

  98. setlocal ENABLEEXTENSIONS

  99. set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a

  100. 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

  101. set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10

  102. (if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)

  103. endlocal&set %2=%yy%&set %3=%mm%&set %4=%dd%&goto :EOF
复制代码
1

评分人数

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

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
68楼
发表于 2009-4-9 14:21 | 只看该作者
如果想采取其它延时方法，可参考：批处理中的延时
http://bbs.bathome.net/viewthread.php?tid=233
http://bbs.bathome.net/viewthread.php?tid=3693#pid23312
1

评分人数

    • lazygc520: 很好的解决了问题.回答的很耐心。PB + 4
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

Qiqiqiqi

Rank: 1

帖子
2 
积分
13 
技术
0  
捐助
0  
注册时间
2018-4-28 
69楼
发表于 2018-4-28 19:50 | 只看该作者
请问我运行这个脚本的时候，FileList.txt根本没有生成，请高手指点为什么。谢谢！

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
70楼
发表于 2018-5-3 09:31 | 只看该作者
回复 69# Qiqiqiqi


    你运行的几楼的脚本？
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

12345
返回列表