中国DOS联盟

基础：
今早刚接触dos批处理。
功能需求：
1 遍历目录的a，拷贝1小时内刷新的su2qi*.txt文件到目录b。
2 遍历目录b，删除6小时前的文件。
今天在线，边学习批处理边在网上与大家交流，希望得到大家的帮助。

正在根据这个脚本进行修改，希望各位有什么好建议，回帖讨论。
Thank u！


示例：假设今天是8月26日，我要删除2天以前的文件，也就是删除8月23日以前的文件，目标目录是d:\arch，那么用法如下：
DelOldFile 2005-08-23 d:\arch


:: DateDel2.bat - 删除指定路径下指定日数以前修改的文件
:: Will Sort - 2005-9-2 - CMD@WinXP
:: 注意事项：参数%1指定日数，昨天为1，前天为2，依次类推
:: 参数%1指定文件路径，省略时将处理当前路径
:: 核心算法：Ritchie Lawrence, updated 2002-08-13. Version 1.1
::
@echo off & setlocal ENABLEEXTENSIONS
call :Date2Day %date:~0,10% sdays
set /a sdays-=%1
call :Day2Date %sdays% difdate
echo 将删除 %cd% 下 %difdate% 前的修改的以下文件：
for /r %2 %%f in (*.*) do if "%%~tf" LEQ "%difdate%" echo "%%f"
goto :EOF

:Date2Day
setlocal ENABLEEXTENSIONS
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do (
set yy=%%a & set mm=%%b & set dd=%%c
)
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
endlocal&set %2=%j%&goto :EOF

:Day2Date
setlocal ENABLEEXTENSIONS
set /a i=%1,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%)
endlocal&set %2=%yy%-%mm%-%dd%&goto :EOF

[ Last edited by su2qi on 2008-12-12 at 14:05 ]

正在试着写一个:DateTime2time

echo 当前系统时间：%time:~0,5%
for /f "tokens=1,2 delims=:." %%a in ("%time%") do (
set /a t=100%%a%%100,h=100%%b%%100-60
)
set /a s=(t+h/60)%%24,f=h%%60
set s=0%s%&set "f=0%f%"
echo 60分钟前的时间：%s:~-2%:%f:~-2%


当前系统时间：16:40
60分钟前的时间：16:20

我觉得要对h和t做进一步判断和处理

[ Last edited by su2qi on 2008-12-12 at 17:10 ]

能够获得1小时之前的时间了。如3楼。如何把这个时间与文件的修改时间%%~tf进行比较呢？

现在我知道的批处理计算日期差有DATEX

要是计算时间就是一个头疼的事情，代码太繁杂，比较怀疑代码的可靠性。

可以考虑调用VBS可计算时间差。这样也许更好一点

for /r "D:\test\t\" %%f in (*.*) do if "%%~tf:~12,5" LEQ "%time%" echo "%%f"
这里"%%~tf:~12,5" 写的不对。%%~tf是"2008-12-11 09:11“，如何获取子串09:11？

开启变量延迟扩展
先把%%~tf赋值给一个临时变量
再对临时变量进行截取

Originally posted by HAT at 2008-12-12 16:55:
开启变量延迟扩展
先把%%~tf赋值给一个临时变量
再对临时变量进行截取

@echo off
for /r "D:\test\t\" %%f in (*.*) do (
set str=%%~tf
call echo "%%f" "%%str:~11,5%%"
)
###writen by tireless

用call会降低代码的执行效率，待处理的文件较多时，尤为明显。

echo 当前系统时间：%time:~0,5%
for /f "tokens=1,2 delims=:." %%a in ("%time%") do (
set /a t=100%%a%%100,h=100%%b%%100-60
)
set /a s=(t+h/60)%%24,f=h%%60
set s=0%s%&set "f=0%f%"
echo 60分钟前的时间：%s:~-2%:%f:~-2%


当前系统时间：16:40
60分钟前的时间：16:20

我觉得要对h和t做进一步判断和处理

不知道你这个代码是从哪里找到的，日期时间的计算不是这么几行简单的代码就能搞定的。建议使用 Ritchie Lawrence 批处理函数库中的 DateToMins 进行转换然后计算。

Originally posted by HAT at 2008-12-12 17:08:
用call会降低代码的执行效率，待处理的文件较多时，尤为明显。

@echo off & setlocal ENABLEEXTENSIONS

echo 当前系统时间：%time:~0,5%
for /f "tokens=1,2 delims=:." %%a in ("%time%") do (
set /a t=100%%a%%100,h=100%%b%%100-10
)
set /a s=(t+h/60)%%24,f=h%%60
set s=0%s%&set "f=0%f%"
echo 10分钟前的时间：%s:~-2%:%f:~-2%

for /r "D:\test\t\" %%f in (*.*) do (
set str=%%~tf
if "%%str:~11,5%%" LEQ "%s:~-2%:%f:~-2%" echo "%%f"
)
echo ===== ：

echo.&pause
goto :EOF

Originally posted by HAT at 2008-12-12 17:19:
不知道你这个代码是从哪里找到的，日期时间的计算不是这么几行简单的代码就能搞定的。建议使用 Ritchie Lawrence 批处理函数库中的 DateToMins 进行转换然后计算。

…………在坛子里 搜索的结果，东拼西凑

Originally posted by HAT at 2008-12-12 17:19:
不知道你这个代码是从哪里找到的，日期时间的计算不是这么几行简单的代码就能搞定的。建议使用 Ritchie Lawrence 批处理函数库中的 DateToMins 进行转换然后计算。

我去找找这个 DateToMins 。转换成分钟，比较起来就方便多了

Originally posted by HAT at 2008-12-12 17:19:
不知道你这个代码是从哪里找到的，日期时间的计算不是这么几行简单的代码就能搞定的。建议使用 Ritchie Lawrence 批处理函数库中的 DateToMins 进行转换然后计算。

再麻烦贴个连接呗
忘记收藏到哪了，，，