[文本处理] [已解决]从FTP上获取当前时间之前一段时间内信息的批处理

lazygc520

从FTP上获取当前时间之前一段时间内的信息。假设我的FTP上有一个a.txt文件，而且过一段时间FTP上会增加一个类似的*.txt文件，我如何获得本机当前时间的一段时间相应的*.txt文件？

[ 本帖最后由 lazygc520 于 2009-8-24 09:33 编辑 ]

canyuexiaolang

看着这些代码就晕。。。

lazygc520

发现有人在baidu里贴于本内容无关的代码，所以我把不需要的代码重新编辑去除了，但是不影响阅读。

lazygc520

也好。昨天没上，今天刚看到的帖子。
代码如下：

@echo off
rem 指定FTP用户名
set ftpUser=xxx
rem 指定FTP密码
set ftpPass=xxxxxxx
rem 指定FTP服务器地址
set ftpIP=xxx.xxx.xxx.xx
rem 指定待下载的文件位于FTP服务器的什么位置
set ftpFolder=/export/home/PROD/ntcdata
rem 指定从FTP下载下来的文件存放到什么地方
set DownFolder=E:\


rem 指定下载几小时前的文件
set MinsAgo=60
set ftpDir=%temp%\TempDir2.txt
set ftpDown=%temp%\TempDown2.txt

rem 假设本机日期格式为yyyy-mm-dd-hh-nn        /*本段为时间问题的重点*/
set FileY=%date:~0,4%
if %time:~0,2% lss 10 (set hh=0%time:~1,1%) else (set hh=%time:~0,2%)
call :DateToMins %date:~0,4% %date:~5,2% %date:~8,2% %hh% %time:~3,2% Mins 
set /a Mins-=MinsAgo
call :MinsToDate %Mins% DstYear DstMonth DstDay DstHour DstMin

>"%ftpDir%" echo.%ftpUser%
>>"%ftpDir%" echo.%ftpPass%
>>"%ftpDir%" echo bin
>>"%ftpDir%" echo cd "%ftpFolder%"
>>"%ftpDir%" echo dir * "%temp%\FileList2.txt"
>>"%ftpDir%" echo bye
start ftp -v -i -s:"%ftpDir%" %ftpIP%

rem 根据实际情况自行调节延迟时间
ping -n 350 127.1 >nul

findstr /i ":*\.SWM$" "%temp%\FileList2.txt">"%temp%\FileDate2.txt"
findstr /i ":*\.TWM$" "%temp%\FileList2.txt">>"%temp%\FileDate2.txt"
findstr /i ":*\.OWM$" "%temp%\FileList2.txt">>"%temp%\FileDate2.txt"

>"%ftpDown%" echo.%ftpUser%
>>"%ftpDown%" echo.%ftpPass%
>>"%ftpDown%" echo bin
>>"%ftpDown%" echo cd "%ftpFolder%"
(for /f "usebackq tokens=1-10 delims=: " %%a in ("%temp%\FileDate2.txt") do (   /*从filedate2.txt中获得包含时间信息的文件*/
  setlocal enabledelayedexpansion 
  if "%%f" equ "Jan" (
    set FileM=01
  ) else if "%%f" equ "Feb" (
    set FileM=02
  ) else if "%%f" equ "Mar" (
    set FileM=03
  ) else if "%%f" equ "Apr" (
    set FileM=04
  ) else if "%%f" equ "May" (
    set FileM=05
  ) else if "%%f" equ "Jun" (
    set FileM=06
  ) else if "%%f" equ "Jul" (
    set FileM=07
  ) else if "%%f" equ "Aug" (
    set FileM=08
  ) else if "%%f" equ "Sep" (
    set FileM=09
  ) else if "%%f" equ "Oct" (
    set FileM=10
  ) else if "%%f" equ "Nov" (
    set FileM=11
  ) else if "%%f" equ "Dec" (
    set FileM=12
  )
  set FileD=10%%g
  set FileD=!FileD:~-2!
  set FileH=10%%h
  set FileH=!FileH:~-2!
  if "!FileM!" equ "%DstMonth%" (        
  if "!FileD!" equ "%DstDay%" (       
    if "!FileH!" equ "%DstHour%" (
     echo get "%%j" "%DownFolder%\%%j"
    )
  )
)
  endlocal
))>>"%ftpDown%"
>>"%ftpDown%" echo bye
start ftp -v -i -s:"%ftpDown%" %ftpIP%

rem 根据实际情况自行调节延迟时间
rem ping -n 700 127.1 >nul

goto :eof

:DateToMins %yy% %mm% %dd% %hh% %mm%               /*这两段为调用时间函数 日期转分钟和分钟转日期*/
setlocal ENABLEEXTENSIONS
set yy=%1&set mm=%2&set dd=%3&set hh=%4&set nn=%5
if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
if 1%hh% LSS 20 set hh=0%hh%
if {%nn:~2,1%} EQU {p} if "%hh%" NEQ "12" set hh=1%hh%&set/a hh-=88
if {%nn:~2,1%} EQU {a} if "%hh%" EQU "12" set hh=00
if {%nn:~2,1%} GEQ {a} set nn=%nn:~0,2%
set /a hh=100%hh%%%100,nn=100%nn%%%100,j=j*1440+hh*60+nn
endlocal&set %6=%j%&goto :EOF


:MinsToDate %mins% yy mm dd hh nn
setlocal ENABLEEXTENSIONS
set /a i=%1,nn=i%%60,i/=60,hh=i%%24,dd=i/24,i/=24
set /a a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
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
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
(if %hh% LSS 10 set hh=0%hh%)&(if %nn% LSS 10 set nn=0%nn%)
endlocal&set %6=%nn%&set %5=%hh%&set %4=%dd%&^
set %3=%mm%&set %2=%yy%&goto :EOF
复制代码

[ 本帖最后由 lazygc520 于 2009-8-26 14:22 编辑 ]

Batcher

既然问题解决了，何不把代码分享出来，也好让今后遇到此问题的人有个参考？

lazygc520

哦，多谢batcher提醒。我知道问题出在哪里了。因为没有搞清楚应用的关系。我再用以下代码试试：

(for /f "usebackq tokens=1-10 delims=: " %%a in ("%temp%\FileDate2.txt") do (
  setlocal enabledelayedexpansion 
  if "%%f" equ "Jan" (
    set FileM=01
  ) else if "%%f" equ "Feb" (
    set FileM=02
  ) else if "%%f" equ "Mar" (
    set FileM=03
  ) else if "%%f" equ "Apr" (
    set FileM=04
  ) else if "%%f" equ "May" (
    set FileM=05
  ) else if "%%f" equ "Jun" (
    set FileM=06
  ) else if "%%f" equ "Jul" (
    set FileM=07
  ) else if "%%f" equ "Aug" (
    set FileM=08
  ) else if "%%f" equ "Sep" (
    set FileM=09
  ) else if "%%f" equ "Oct" (
    set FileM=10
  ) else if "%%f" equ "Nov" (
    set FileM=11
  ) else if "%%f" equ "Dec" (
    set FileM=12
  )
  set FileD=10%%g
  set FileD=!FileD:~-2!
  set FileH=10%%h
  set FileH=!FileH:~-2!
  if "!FileM!" equ "%DstMonth%" (        
  if "!FileD!" equ "%DstDay%" (       
    if "!FileH!" equ "%DstHour%" (
     echo get "%%j" "%DownFolder%\%%j"
    )
  )
)
  endlocal
))>>"%ftpDown%"
复制代码

[ 本帖最后由 lazygc520 于 2009-8-24 09:32 编辑 ]

Batcher

(for /f "usebackq tokens=1-9 delims=:, " %%a in ("FileDate2.txt") do (

这里为什么要把逗号作为列分隔符之一？

  set FileD=10%%g
  set FileD=!FileD:~-3!
  set FileH=10%%g
  set FileH=!FileH:~-2!

如果以冒号和空格作为列分隔符，日期在第7列，小时在第8列，对吧？那你的FileD和FileH为何都在%%g里面取呢？FileD截取后三位又是出于什么目的呢？

lazygc520

set FileY=%date:~0,4%
下面一行，看第2页最下面的一楼。

kingwu

结果这段代码应该插入到哪里呢？
if %time:~1,1% lss 10 (set hh=0%time:~1,1%) else (set hh=%time:~0,2%)

lazygc520

错误的结果(TempDown2.txt部分内容)：

C:\Documents and Settings\Admin\桌面>(
setlocal enabledelayedexpansion  
 if "Jun" EQU "Jan" (set FileM=01 )  else if "Jun" EQU "Feb" (set FileM=02 )  else if "Jun" EQU "Mar" (set FileM=03 )  else if "Jun" EQU "Apr" (set FileM=04 )  else if "Jun" EQU "May" (set FileM=05 )  else if "Jun" EQU "Jun" (set FileM=06 )  else if "Jun" EQU "Jul" (set FileM=07 )  else if "Jun" EQU "Aug" (set FileM=08 )  else if "Jun" EQU "Sep" (set FileM=09 )  else if "Jun" EQU "Oct" (set FileM=10 )  else if "Jun" EQU "Nov" (set FileM=11 )  else if "Jun" EQU "Dec" (set FileM=12 )  
 set FileD=105  
 set FileD!FileD:~-3!  
 set FileH=105  
 set FileH=!FileH:~-2!  
 if "!FileM!" EQU "08" (if "!FileD!" EQU "21" (if "!FileH!" EQU "13" (echo get "59" "E:\\59" ) ) )  
 endlocal
) 
复制代码

正确的结果内容应该是以下格式：

D:\batch>(
setlocal enabledelayedexpansion  
 if "Jun" EQU "Jan" (set FileM=01 )  else if "Jun" EQU "Feb" (set FileM=02 )  else if "Jun" EQU "Mar" (set FileM=03 )  else if "Jun" EQU "Apr" (set FileM=04 )  else if "Jun" EQU "May" (set FileM=05 )  else if "Jun" EQU "Jun" (set FileM=06 )  else if "Jun" EQU "Jul" (set FileM=07 )  else if "Jun" EQU "Aug" (set FileM=08 )  else if "Jun" EQU "Sep" (set FileM=09 )  else if "Jun" EQU "Oct" (set FileM=10 )  else if "Jun" EQU "Nov" (set FileM=11 )  else if "Jun" EQU "Dec" (set FileM=12 )  
 set FileD=105  
 set FileD=!FileD:~-2!  
 if "!FileM!" EQU "08" (if "!FileD!" EQU "20" (if "!FileH!" EQU "hours"(echo get "F12345678K.SWM" "F:\\F12345678K.SWM" ) )  )
 endlocal
) 
复制代码

lazygc520

我现在是这样写的：
set FileD=10%%g
set FileD!FileD:~-3!
set FileH=10%%g
set FileH=!FileH:~-2!

然后就报错：环境变量 FileD0xx 没有定义

lazygc520

嗯。现在for循环那里还有些问题，你能不能帮我看看小时的信息如何获取？
FileDate2.txt的格式：
-rw-rw-rw-   1 100      100        22396 Apr 15 14:28 F12345600F.FT2

(for /f "usebackq tokens=1-9 delims=:, " %%a in ("%temp%\FileDate2.txt") do (
  setlocal enabledelayedexpansion /*获取14：28中14的信息*/
  if "%%f" equ "Jan" (
    set FileM=01
  ) else if "%%f" equ "Feb" (
    set FileM=02
  ) else if "%%f" equ "Mar" (
    set FileM=03
  ) else if "%%f" equ "Apr" (
    set FileM=04
  ) else if "%%f" equ "May" (
    set FileM=05
  ) else if "%%f" equ "Jun" (
    set FileM=06
  ) else if "%%f" equ "Jul" (
    set FileM=07
  ) else if "%%f" equ "Aug" (
    set FileM=08
  ) else if "%%f" equ "Sep" (
    set FileM=09
  ) else if "%%f" equ "Oct" (
    set FileM=10
  ) else if "%%f" equ "Nov" (
    set FileM=11
  ) else if "%%f" equ "Dec" (
    set FileM=12
  )
  set FileD=10%%g
  set FileD=!FileD:~-3!
  set FileH=10%%g
  set FileH=!FileH:~-2!
  if "!FileM!" equ "%DstMonth%" (        
  if "!FileD!" equ "%DstDay%" (       /*判断条件是不是还要加上日期的信息？*/
    if "!FileH!" equ "%DstHour%" (
     echo get "%%i" "%DownFolder%\%%i"
    )
  )
)
  endlocal
))>>"%ftpDown%"
复制代码

主要是以上2点疑问，希望batcher解答一下。

[ 本帖最后由 lazygc520 于 2009-8-21 14:05 编辑 ]

Batcher

既然时间截取没有问题了，那就继续检查代码里面有没有其它错误吧。

lazygc520

哦，写错了！

if %time:~0,2% lss 10 (set hh=0%time:~1,1%) else (set hh=%time:~0,2%)
echo %hh%
pause
复制代码

Batcher

你到底运行的哪个代码？

C:\Test>type test.bat if %time:~1,1% lss 10 (set hh=0%time:~1,1%) else (set hh=%time:~0,2%) echo %hh% C:\Test>test.bat C:\Test>if 0 LSS 10 (set hh=00 )  else (set hh=10 ) C:\Test>echo 00 00