But everyone's enthusiasm is worthy of recognition.
Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!
Originally posted by xiaoqiangzx at 2007-1-16 09:47:
First of all, I very much admire everyone's professional knowledge and enthusiasm for learning~~
I, the younger brother, have something to say
DOS is not like C++, can it be simple? ~~~
Don't make it seem very profound, be popular...
@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
| Rater | Score | Time |
|---|---|---|
| qzwqzw | +9 | 2007-02-01 11:20 |
forfiles /p D:\C1 /d -100 /c "cmd /c del @file"