标题: 文件生成后100天自动删除指定文件，不能在垃圾桶里 [打印本页]
作者: xg19760104 时间: 2007-1-14 22:24 标题: 文件生成后100天自动删除指定文件，不能在垃圾桶里
因工作需要，有大量的电脑在生成指定文件后100天要手动删除，老是有的机子不记的删，那位高人指点一下，文件记时删除，但不能给杀毒软件当病毒杀了
作者: tghksj 时间: 2007-1-14 23:55
问题的关键在于判断,今天的100天前是什么日期.
关系到日期个位和十位28,29,30,31进,去0的判断,百位12进,去0的判断
我感觉这个关键点不是用批处理能够轻松实现的.
作者: namejm 时间: 2007-1-15 00:13
还有平年闰年的判断，思路虽然简单，但是代码将会十分烦琐。
作者: scriptor 时间: 2007-1-15 00:14
一个更直接的办法是：
每三个月运行一次！
schtasks /create /tn "My App" /tr "你要执行的程序的全路经" /sc monthly /mo 3
作者: scriptor 时间: 2007-1-15 00:18
2，3 楼
看代码
@echo off
setlocal enabledelayedexpansion
set dy=%date:~0,4%
set dm=%date:~5,2%
set dd=%date:~8,2%
echo %dy%-%dm%-%dd%
echo 计算一百天后的日期.
echo.
pause>nul
rem 先检查日期dd是否在以下条件(3-12),一二月份特殊考虑!
rem 同时默认的是dy年份为平年,最后才考虑闰年.
rem 所以只要在最后dd上加一就可以了!
for %%i in (3,5,7,8,10,12) do (
rem Check Odd Month(单数月).
if "%dm%" equ "%%i" (
set /a dm+=3
set /a dd+=8
rem 这时候,dm已经是双月份了.
goto :checkdd
)
)
rem Check Even Month(双数月).
for %%j in (4,6,9,11) do (
if "%dm%" equ "%%j" (
set /a dm+=3
set /a dd+=9
rem 这时候,dm已经是单月份了.
goto :checkdd
)
)
echo.
echo %dm%
pause
:jan-feb
rem 考虑一月和二月的情况.
if "%dm%" equ "1" (
set /a dm+=3
set /a dd+=10
goto :chckdd
)
if "%dm%" equ "2" (
set /a dm+=3
set /a dd+=10
goto :chckdd
)
:checkdd
rem 这时候,dm已经是双月份了.
rem Check Date is Great 30 or not.
if "%dd%" gtr "30" (
rem 比如6月24日就要改成7月2日
set dm%+=1 & set /a ddd=!dd!%-30
)
rem 这时,dm已经是单月份了.
rem Check Date is Great 31 or not.
if "%dd%" gtr "31" (
rem 比如7月24日就要改成8月2日.
set dm%+=1 set /a ddd=!dd!%-31
)
:checkYear
rem 检查平年还是闰年,只要不是平年"... neq 0",就将dd再加一.
set /a rmn=dy%\4
if "%rmn%" neq "0" (set /a dd+=1)
::Output the Result.
echo The day in 100 is: %dy%-%dm%-%dd%
schtasks /create /tn "DeleteTask" /m %dm% /tr "程序的全路径"
pause>nul
[/size=3]setlocal enabledelayedexpansion
set dy=%date:~0,4%
set dm=%date:~5,2%
set dd=%date:~8,2%
echo %dy%-%dm%-%dd%
echo 计算一百天后的日期.
echo.
pause>nul
rem 先检查日期dd是否在以下条件(3-12),一二月份特殊考虑!
rem 同时默认的是dy年份为平年,最后才考虑闰年.
rem 所以只要在最后dd上加一就可以了!
for %%i in (3,5,7,8,10,12) do (
rem Check Odd Month(单数月).
if "%dm%" equ "%%i" (
set /a dm+=3
set /a dd+=8
rem 这时候,dm已经是双月份了.
goto :checkdd
)
)
rem Check Even Month(双数月).
for %%j in (4,6,9,11) do (
if "%dm%" equ "%%j" (
set /a dm+=3
set /a dd+=9
rem 这时候,dm已经是单月份了.
goto :checkdd
)
)
echo.
echo %dm%
pause
:jan-feb
rem 考虑一月和二月的情况.
if "%dm%" equ "1" (
set /a dm+=3
set /a dd+=10
goto :chckdd
)
if "%dm%" equ "2" (
set /a dm+=3
set /a dd+=10
goto :chckdd
)
:checkdd
rem 这时候,dm已经是双月份了.
rem Check Date is Great 30 or not.
if "%dd%" gtr "30" (
rem 比如6月24日就要改成7月2日
set dm%+=1 & set /a ddd=!dd!%-30
)
rem 这时,dm已经是单月份了.
rem Check Date is Great 31 or not.
if "%dd%" gtr "31" (
rem 比如7月24日就要改成8月2日.
set dm%+=1 set /a ddd=!dd!%-31
)
:checkYear
rem 检查平年还是闰年,只要不是平年"... neq 0",就将dd再加一.
set /a rmn=dy%\4
if "%rmn%" neq "0" (set /a dd+=1)
::Output the Result.
echo The day in 100 is: %dy%-%dm%-%dd%
schtasks /create /tn "DeleteTask" /m %dm% /tr "程序的全路径"
pause>nul
不能看到结果，请高手指正。
谢谢！
作者: namejm 时间: 2007-1-15 00:33
闰年的计算方法出错了，正确的算法是：能被4整除，但是不能被400整除的年份不是闰年。比如，2000年是闰年，但是1900年就不是闰年；
set dm%+=1 的写法是错误的，没有这样的变量引用方式，并且，做算术运算的时候要加上开关 /a ；
另外，1月份没必要和2月份放在一起处理，和3、5等大月放在一起更合理一些。
作者: lotus516 时间: 2007-1-15 00:45
版主namejm收藏的!
:: 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
后来搜了搜,这个代码是willsort的!!哈哈,原来代码第二行就写明了是willsort的!!:: 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
给两个链接http://www.cn-dos.net/forum/view ... E5%AD%97&page=1
http://www.cn-dos.net/forum/viewthread.php?tid=16676
[ Last edited by lotus516 on 2007-1-15 at 01:15 AM ]
作者: tghksj 时间: 2007-1-15 01:05
!!!!!!!!!!!!!!!!!!!!疑willsort为神!!!!!!!!!!!!!!!!!!!!!
看的我只想哭....5555555555555555555555
[ Last edited by tghksj on 2007-1-14 at 12:11 PM ]
作者: scriptor 时间: 2007-1-15 05:45
我又看法！
作者: scriptor 时间: 2007-1-15 05:52
| Quote: | |
|
set ... 那里是粗心，谢谢了
但是一月和二月的问题是这样的
假设当前日期是一月，那么从一月到二月，是变化31天，而二月到三月十变化28天（平年）；
假设当前日期是三月，那么从三月到四月十31天，好，程序没有逻辑错误；
但是从四月到五月，就是变化30天，那么，你说还能用 set 。。。+=28 吗？
所以，就不能把1月和3，5，7，8，10，12放在一起考虑 ！
同样的道理，2月和4，6，9，11也不能放在一起。
故此，就1，2月另外考虑，并不是因为把他们写在一起，就是说他们有什么问题！
不知道大家的意见如何 ？
作者: scriptor 时间: 2007-1-15 05:54
机器不允许把日期修改到1979年之前的！！
作者: scriptor 时间: 2007-1-15 06:36 标题: The latest code
@echo off
{::setlocal enabledelayedexpansion It is no need to add in! }
set dy=%date:~0,4%
set dm=%date:~5,2%
set dd=%date:~8,2%
echo Today is : %dy%-%dm%-%dd%
echo 计算一百天后的日期.
echo.
pause>nul
rem 先检查日期dd是否在以下条件(3-12),一二月份特殊考虑!
rem 同时默认的是dy年份为平年,最后才考虑闰年.
rem 所以只要在最后dd上加一就可以了!
for %%i in (3,5,7,8,10,12) do (
rem Check Odd Month(单数月).
if %dm% equ %%i (
set /a dm+=3
set /a dd+=8
rem 这时候,dm已经是双月份了.
goto :checkdd
)
)
rem Check Even Month(双数月).
for %%j in (4,6,9,11) do (
if %dm% equ %%j (
set /a dm+=3
set /a dd+=9
rem 这时候,dm已经是单月份了.
goto :checkdd
)
)
::jan and feb
rem 考虑一月和二月的情况.
if %dm% equ 1 (
set /a dm+=3
set /a dd+=10
goto :checkdd
)
if %dm% equ 2 (
set /a dm+=3
set /a dd+=10
goto :checkdd
)
:checkdd
rem 这时候,dm已经是双月份了.
rem Check Date is Great 30 or not.
if %dd% gtr 30 (
rem 比如6月24日就要改成7月2日
set /a dm+=1
set /a ddd=%dd%-30
)
rem 这时,dm已经是单月份了.
rem Check Date is Great 31 or not.
if %dd% gtr 31 (
rem 比如7月24日就要改成8月2日.
set /a dm+=1
set /a ddd=%dd%-31
)
:checkYear {Here, Be careful , the code is not the same with the former I writed!}
rem 检查平年还是闰年,只要不是平年"... equ 0",就将dd再加一.
set /a rmn=dy%4
set /a rmnn=dy%400
if %rmn% neq 0 (echo This year is not leap year!)
if %rmn% equ 0 (
if %rmnn% equ 0 (
echo This year is leap year!
set /a dd+=1
)
)
::Output the Result.
echo The day after 100 days is: %dy%-%dm%-%dd%!
:: "Attach any code executable here!"
pause>nul
[ Last edited by scriptor on 2007-1-14 at 05:39 PM ]
作者: xiaoqiangzx 时间: 2007-1-16 09:47 标题: dos简单就好!!!
首先我非常敬佩大家的专业知识和学习热情～～
小弟我不才有句话想说
dos 不象 c＋＋ 能否简单就好～～～
别搞的很高深似的 要平民化！！！！
楼主的是：文件生成后100天自动删除指定文件，对不对？
比如：要del c盘的临时文件夹
只要建立个xxx.bat文件
内容：
@echo off
del /f /s /q %systemdrive%\*.tmp
然后把这个bat放在系统自带定时任务中设置为每１００天运行一次即可以拉～～
．．．．．．．．．．．．．．．．．．．．
作者: xg19760104 时间: 2007-1-18 14:48
收到，非常有启发！谢谢 各位！
作者: timlee 时间: 2007-1-20 11:55
13楼的思路很有启发，能简单的何必搞得太复杂。
作者: timlee 时间: 2007-1-20 11:56
不过大家的热情是值得肯定的。
作者: asbai 时间: 2007-1-20 13:03
| Quote: | |
|
用计划任务每 100 天运行一次删除指令是不行的，因为lz要求的是删除 100 天之前的文件，而不是每 100 天删除一次文件。这之间区别应该是很显而易见的吧？
例如：第 99 天生成的文件应该在第 199 天删除，如果不计算和判断，直接每 100 天大杀四方一次的话，第 99 天生成的文件，第二天就会被删除。
作者: everest79 时间: 2007-1-20 17:32
写这个最累
@ECHO OFF
:TOP0
FOR /L %%i IN (1,1,12) DO SET /A M%%i=30+(%%i+%%i/8)%%2
CALL :ALG M %DATE:~5,2%&&CALL :ALG ND %DATE:~8,2%
SET /A DAY=125-ND,NY=%DATE:~0,4%
:TOP1
CALL :CALC M2 ((NY-2000)%%4) -1)*-1+28 (
CALL :CALC M (M-1) -1)*-1*12+M-1 (
SET /A DAY-=M%M%,NY-=M/12
SET /A 1/((DAY+1)/DAY) 2>nul&&GOTO TOP1||GOTO START
:START
CALL :CALC DAY DAY *-DAY
CALL :CALC DM (M-1) -1)*-1*12*(((DAY*2/(DAY*2-1))-1)*-1)+(M+(DAY*2/(DAY*2-1)-1)) (
CALL :CALC DAY+ (M-DM)
SET /A DY=NY-DM/12
:TOOL
IF %DM% LSS 10 SET DM=0%DM%
IF %DAY% LSS 10 SET DAY=0%DAY%
ECHO %DY%-%DM%-%DAY%
FOR /R F: %%i IN (*.exe) DO CALL :CHKDEL %%i %%~ti
pause
GOTO :EOF
:CHKDEL
IF "%2" == "%DY%-%DM%-%DAY%" ECHO %2 -- %1
GOTO :EOF
:CALC
SET /A %1=%4((%2*2+1)%%2*%2*10)/%5((%2*2+1)%%2*%2*10-1)%3
GOTO :EOF
:ALG
SET CHKALG=%2
SET /A %1=%CHKALG:~0,1%*10+%CHKALG:~-1%
GOTO :EOF
:TOP0
FOR /L %%i IN (1,1,12) DO SET /A M%%i=30+(%%i+%%i/8)%%2
CALL :ALG M %DATE:~5,2%&&CALL :ALG ND %DATE:~8,2%
SET /A DAY=125-ND,NY=%DATE:~0,4%
:TOP1
CALL :CALC M2 ((NY-2000)%%4) -1)*-1+28 (
CALL :CALC M (M-1) -1)*-1*12+M-1 (
SET /A DAY-=M%M%,NY-=M/12
SET /A 1/((DAY+1)/DAY) 2>nul&&GOTO TOP1||GOTO START
:START
CALL :CALC DAY DAY *-DAY
CALL :CALC DM (M-1) -1)*-1*12*(((DAY*2/(DAY*2-1))-1)*-1)+(M+(DAY*2/(DAY*2-1)-1)) (
CALL :CALC DAY+ (M-DM)
SET /A DY=NY-DM/12
:TOOL
IF %DM% LSS 10 SET DM=0%DM%
IF %DAY% LSS 10 SET DAY=0%DAY%
ECHO %DY%-%DM%-%DAY%
FOR /R F: %%i IN (*.exe) DO CALL :CHKDEL %%i %%~ti
pause
GOTO :EOF
:CHKDEL
IF "%2" == "%DY%-%DM%-%DAY%" ECHO %2 -- %1
GOTO :EOF
:CALC
SET /A %1=%4((%2*2+1)%%2*%2*10)/%5((%2*2+1)%%2*%2*10-1)%3
GOTO :EOF
:ALG
SET CHKALG=%2
SET /A %1=%CHKALG:~0,1%*10+%CHKALG:~-1%
GOTO :EOF
作者: 52enjoy 时间: 2007-1-21 08:40
大家都想这有代码执行，思维有点固化了。13楼的兄弟很不错哈。
作者: aspirer 时间: 2007-1-21 11:30
比如要删除 D:\C1文件夹下面的文件
用上微软的windows2003 下带的 forfiles
简直就是事十分之一而功百倍
forfiles /p D:\C1 /d -100 /c "cmd /c del @file"
[ Last edited by aspirer on 2007-1-20 at 10:32 PM ]作者: szww 时间: 2007-3-23 06:06
13楼理解有错，想法很好。
20楼的想法也不错。
但只在2003下运行。
作者: xjzhf4 时间: 2008-3-7 11:06
有点复杂,看不太明白哦,不过还是谢谢啊