lazygc520

程序我大概读懂了。但是我不清楚传参的时候怎么写？就是你说的补零的情况。还有一个问题，这个DateToMins是日期转分钟的函数，那我可以按小时处理么？怎么处理？

 
call :DateToMins %date:~0,4% %date:~5,2% %date:~8,2% %time:~0,2% %time:~3,2% //这个传参怎么补零？
复制代码

TempDown.txt的一部分结果：

 
C:\Documents and Settings\Admin\My Documents>(
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 FileH=101  //不对，没有补0
 set FileH=!FileH:~-2!  
 if "!FileM!" EQU "01" (if "!FileH!" EQU "00"/×应该是08，我怎么得到的是00？×/ (echo get "F20090532F.SWM" "E:\\F20090532F.SWM" ) )  
 endlocal
) 
复制代码

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

lazygc520

找到一个补零的帖子：

@echo off & setlocal enabledelayedexpansion
set var=2,15,20,33,56,1,07,54,89,66,23,25,27,28,29,55,56,57,5,59,6,78,74,66,08,28,9,30,52,14,15,16,2,8,4,6,15,16,13,5,9
for %%a in (%var%) do (
  if 1%%a lss 20 (set var0=!var0!,0%%a) else set var0=!var0!,%%a
)
set var0=%var0:~1%
echo %var0%
pause
复制代码

但是有处不懂，if 1%%a lss 20 (set var0=!var0!,0%%a) else set var0=!var0!,%%a
为什么是lss 20啊？

lazygc520

至于为什么用小时是因为这样的原因：
如果本机时间：10：28，我获取60分钟前的时间信息可以获得。但是只能获取在9：28生成包含时间信息的文件.
我的意思是说能不能获得9：28～10：28之内所有包含时间信息的文件？

lazygc520

贴出未补零的代码：

rem 假设本机日期格式为yyyy-mm-dd-hh-nn
set FileY=%date:~0,4%
call :DateToMins %date:~0,4% %date:~5,2% %date:~8,2% %time:~0,2% %time:~3,2% Mins 
set /a Mins-=MinsAgo
call :MinsToDate %Mins% DstYear DstMonth DstDay DstHour DstMin
复制代码

[ 本帖最后由 lazygc520 于 2009-8-27 15:30 编辑 ]

lazygc520

确实不知道怎么写。能不能举个例子？不会是在%date：～%这样形式的代码中插for循环吧？

lazygc520

是不是这样？
for %%a in (%var%) do (if %%a lss 10 (set var0=!var0!,0%%a) else set var0=!var0!,%%a)
问题是我不知道怎么把它套到程序里。

lazygc520

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

我用echo命令查了下，纠正下batcher的错误。小时需要补零，分钟不需要补零，系统会自动补零。

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

lazygc520

C:\Documents and Settings\Admin\桌面>if 10 LSS 10 (set hh=00 )  else (set hh=10)

C:\Documents and Settings\Admin\桌面>echo 10
10
复制代码

这是运行结果。

lazygc520

哦，写错了！

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

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 编辑 ]

lazygc520

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

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

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 FileY=%date:~0,4%
下面一行，看第2页最下面的一楼。

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 编辑 ]

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 编辑 ]