Board logo

标题: 【练习-028】批处理根据输入的日期格式输出当前日期 [打印本页]

作者: pusofalse    时间: 2008-10-21 18:27     标题: 【练习-028】批处理根据输入的日期格式输出当前日期

出题目的:
             综合运用批处理各语句,提高综合运用的水平。
加分规则:
    1、思路独特基分5分
    2、代码高效基分4分
    3、代码简洁基分3分
    4、代码通用基分2分
    5、无临时文件基分1分
    6、完美代码加分15分

题目内容:

根据输入的日期格式输出当天的日期。用y代表年份,m代表月份,d代表当前的日值。
比如今天日期是2008年10月21日:
输入mm dd yyyy,输出10 21 2008
输入yyyy/mm/dd,输出2008/10/21
输入mm-dd/yyyy,输出10-21/2008
输入md-md-yyyy,输出12-01-2008
输入ymydymyd,输出21020081
输入ydmydm-yy,输出221010-08
输入dd---/m/m/ y y y y, 输出21---/1/0/ 2 0 0 8

请先认真发现其中的规律。
相关条件:

1、不同的操作系统,日期格式会有不同。现在的题目中,未知%date%所扩展出的日期的格式,可以是以下的其中一种格式:
星期二 2008-10-21
2008-10-21 星期二
10/21/2008 Tue
Tue 10/21/2008
(只考虑用4位数表示的年份,暂时不必考虑用两位数表示的年份。)
获取当前标准格式的日期的方法不限,不必非要从%date%取值,可以用系统自带的reg.exe读取注册表等方法,只是不能借助第三方工具。
2、日期中各元素之间的连接符只需用/、-或空格,不必考虑用&、|、>等这类的特殊字符。
3、输入的格式中总是有4个y,2个m,2个d,不必考虑格式中只有3个y,1个m,或4个d等不合法的日期格式。而连接符(-、/或空格),可以没有,也可以有1个或多个。-、/、空格可以同时出现。
4、如果是2008-01-01、2000-12-12这样的日期,输入mmddyyyy虽然同ddmmyyyy是一样的结果,都是01012008、12122000,但第一个01确实是月份。ddmmyyyy格式的01012008,第一个01则是当前的日值。一切都以用户输入的为准。输入mdmdyyyy,输出00112008 等。。。
5、用纯批解决。

我的系统是xp_sp2,没有其他的测试环境,只能通过修改代码来测试。还请其他朋友帮忙测试答题人的代码。

[ 本帖最后由 pusofalse 于 2008-10-21 22:56 编辑 ]
作者: terse    时间: 2008-10-21 20:06

不知道%date%所扩展出的日期的格式吗?
如果是 2008-01-01那怎么01是mm还是dd呢
作者: pusofalse    时间: 2008-10-21 20:24

未知%date%的格式。

第一个01当然是mm,第二个当然是dd。
如果是2008-01-01、2000-12-12这样的日期,输入mmddyyyy虽然同ddmmyyyy是一样的结果,都是01012008、12122000,但第一个01确实是月份。ddmmyyyy格式的01012008,第一个01则是当前的日值。
一切都以用户输入的为准。
输入mdmdyyyy,输出00112008 等。。。

[ 本帖最后由 pusofalse 于 2008-10-21 20:59 编辑 ]
作者: 随风    时间: 2008-10-21 20:52

未知%date%的格式。
有可能是 10-21-2008 或 10-21-08 这样的格式吗?
作者: pusofalse    时间: 2008-10-21 21:03     标题: 回复 4楼 的帖子

这样的格式:
星期二 2008-10-21
2008-10-21 星期二
10/21/2008 Tue
Tue 10/21/2008
只考虑用4位数表示年份,暂时不必考虑用两位数表示的年份。
作者: terse    时间: 2008-10-21 21:04

原帖由 pusofalse 于 2008-10-21 20:24 发表
未知%date%的格式。

第一个01当然是mm,第二个当然是dd。
如果是2008-01-01、2000-12-12这样的日期,输入mmddyyyy虽然同ddmmyyyy是一样的结果,都是01012008、12122000,但第一个01确实是月份。ddmmyyyy格式的01 ...

还是有疑惑的
我的意思的 如果 %date%的值是 2008-01-01 那么两个01要自己判断哪个是DD 哪个是MM  是这样吗?
也可以这样说 2008-01-01 第一个01 可以是 dd 也可以是mm 因为各电脑的日期格式不一,所以要代码自己判断了
这样理解对吗
作者: pusofalse    时间: 2008-10-21 21:11     标题: 回复 6楼 的帖子

回复terse前辈,可以这样理解。
但不必非要从%date%中读取日期,也可以用其他的方法,比如读取注册表提取当前日期。。。方法不限,只是不能借助第三方工具。

[ 本帖最后由 pusofalse 于 2008-10-21 21:14 编辑 ]
作者: 随风    时间: 2008-10-21 21:39

看似一个简单的问题,居然也要这么长的代码。。。
:
  1. @echo off&setlocal enabledelayedexpansion
  2. set /p var=请输入:
  3. set .y=a&set .m=a&set .d=a&set h=ymd
  4. for /l %%a in (0 1 9) do set .%%a=a
  5. for %%i in (%date%) do (
  6.    set str=%%i&set "str=!str:~0,1!"
  7.    if defined .!str! (
  8.       for /f "tokens=1-3 delims=/\,.-: " %%a in ("%%i") do (
  9.       set str=%%a&set str=!str:~2,1!
  10.       if not defined .!str! set h=mdy
  11.       set !h:~0,1!=%%a&set !h:~1,1!=%%b&set "!h:~2,1!=%%c"
  12. )))
  13. :loop
  14. set n=%var:~0,1%
  15. if defined .%n% (
  16.    set num=!num!!%n%:~0,1!
  17.    set "%n%=!%n%:~1!"
  18. ) else set "num=%num%%n%"
  19. set "var=%var:~1%"
  20. if defined var goto loop
  21. echo\&echo %num%
  22. pause>nul
复制代码

[ 本帖最后由 随风 于 2008-10-21 21:43 编辑 ]
作者: pusofalse    时间: 2008-10-21 21:43     标题: 回复 8楼 的帖子

如果%date%是这样的格式就会出错:
10/21/2008 Tue
输入yyyy mm dd,输出10~0,1~ 21 20,本该是2008 10 21。
作者: 随风    时间: 2008-10-21 21:44     标题: 回复 9楼 的帖子

以发现,你再试试?
作者: pusofalse    时间: 2008-10-21 21:53

是的 现在可以了!
不过如果%date%的格式是这样的呢:
月/年/日。 日/年/月。 年/日/月。
。。。而不只是年/月/日 或 月/日/年。
或许也没有这样的日期格式。。。
作者: shqf    时间: 2008-10-21 21:57

  1. @echo off
  2. reg export "HKEY_CURRENT_USER\Control Panel\International" 1.reg >nul
  3. reg add "HKEY_CURRENT_USER\Control Panel\International" /f /v sShortDate /d "yyyy-MM-dd" >nul
  4. :shuchu
  5. set /p rqgs=请输入日期格式(按q退出):
  6. if "%rqgs%"=="mm dd yyyy" echo %date:~5,2% %date:~8,2% %date:~0,4%
  7. if "%rqgs%"=="yyyy/mm/dd" echo %date:~0,4%/%date:~5,2%/%date:~8,2%
  8. if "%rqgs%"=="mm-dd/yyyy" echo %date:~5,2%-%date:~8,2%/%date:~0,4%
  9. if "%rqgs%"=="md-md-yyyy" echo %date:~5,1%%date:~8,1%-%date:~6,1%%date:~9,1%-%date:~0,4%
  10. if "%rqgs%"=="ymydymyd" echo %date:~0,1%%date:~5,1%%date:~1,1%%date:~8,1%%date:~2,1%%date:~6,1%%date:~3,1%%date:~9,1%
  11. if "%rqgs%"=="ydmydm-yy" echo %date:~0,1%%date:~8,1%%date:~5,1%%date:~1,1%%date:~9,1%%date:~6,1%-%date:~2,1%%date:~3,1%
  12. if "%rqgs%"=="dd---/m/m/ y y y y" echo %date:~8,2%---/%date:~5,1%/%date:~6,1%/ %date:~0,1% %date:~1,1% %date:~2,1% %date:~3,1%
  13. echo.
  14. if /i not "%rqgs%"=="q" goto shuchu
  15. reg import 1.reg>nul
  16. echo OK&pause>nul
  17. exit
复制代码

作者: pusofalse    时间: 2008-10-21 22:02     标题: 回复 12楼 的帖子

回复楼上的兄弟。八个字母的排列方式太多了。
我有可能输入 ym-ym-dydy,抑或m/-yydy/myd。。。
作者: 随风    时间: 2008-10-21 22:03     标题: 回复 11楼 的帖子

那样就无法判断 月和日 了啊?
作者: pusofalse    时间: 2008-10-21 22:13     标题: 回复 14楼 的帖子

是的。%date%的值是日/年/月这样格式的日期我也没见过,只是个人意见而已。不管格式怎样,即使千变万化也能正确输出才能谓之完美。
作者: 随风    时间: 2008-10-21 22:37     标题: 回复 15楼 的帖子

10/2008/10
这样的话,哪个是月哪个是日呢?
这个是必须知道的前提啊?
作者: terse    时间: 2008-10-21 22:45

用个临时文件取日期
  1. @echo off
  2. set n=-1&set m=+1
  3. echo wscript.echo date>tmp.vbs
  4. for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo tmp.vbs^&del tmp.vbs') do set "ymda=10%%k 10%%i 10%%j"
  5. :lp
  6. echo wscript.echo dateadd("d",%n%,date)>tmp.vbs
  7. for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo tmp.vbs^&del tmp.vbs') do set "ymdb=10%%k 10%%i 10%%j"
  8. for  %%i in (%ymda%) do set %%i=%%i
  9. for  %%i in (%ymdb%) do if %%i gtr 1031 (set yyyy=%%i)else (
  10. if not defined %%i (set/a dd=%%i%m%,t+=2)else set mm=%%i)
  11. )
  12. if %t% gtr 3 set n=+1&set t=&set m=-1&goto lp
  13.    set yyyy=%yyyy:~-4%
  14.    set mm=%mm:~-2%
  15.    set dd=%dd:~-2%
  16.    set .y=%yyyy%
  17.    set .m=%mm%
  18.    set .d=%dd%
  19.    set/p str=请输入:
  20.    setlocal enabledelayedexpansion
  21. :lp1
  22.    set v=!str:~,1!
  23.      if not defined .%v% (
  24.        if not defined var (set var=!v!)else set var=!var!!v!
  25.         ) else (
  26.           call set var=!var!%%.%v%:~!_%v%!,1%%
  27.           set/a _!v!+=1
  28. )
  29. set str=!str:~1!
  30. if defined str goto lp1
  31. echo !var!
  32. pause
复制代码

作者: pusofalse    时间: 2008-10-21 22:49     标题: 回复 16楼 的帖子

sorry,刚刚脑子短路了。。。
因为我的代码是先获取一个yyyymmdd格式的标准格式的日期(所谓标准,即是别的机子上也是如此),所以没有考虑太过关于日/年/月格式该如何区分日、月的问题就说了出来。
依次看来,随风兄的代码算得上完美代码了,期待更多好代码的出现。
作者: pusofalse    时间: 2008-10-21 23:28     标题: 回复 17楼 的帖子

VBS那里能知道个大概意思。lp1标签里的变量嵌套实在太经典了。
出这题的有一部分目的也在于熟悉“变量的嵌套”吧。
作者: terse    时间: 2008-10-21 23:31

这个问题用纯P 有点复杂了
因为毕竟要考虑日期格式的全面性 虽然有的格式并不会出现
就象 我开始问的  2008-01-03 也可以说是一月三号  也可以理解三月一号
我上面的代码 就是取得当天日期的前一天或后一天 有变化的判断为日
判断YYYY的方法是大于4位 余下是年
期待完善版本了
作者: pusofalse    时间: 2008-10-21 23:39     标题: 回复 20楼 的帖子

有变化的判断为日?
特意把日期改为10月1日后再运行,虽然也能正确输出。但“有变化的判断为日”这种说法是否不严谨?因为10月1日前一天是9月30日,月份也变化了。或许是我误解了。
------------------------------------------------------------------
明白了~只看到-1,没看到+1。

[ 本帖最后由 pusofalse 于 2008-10-21 23:49 编辑 ]
作者: 随风    时间: 2008-10-21 23:58

还有个办法就是通过改变系统日期来实现判断 月或日。
作者: terse    时间: 2008-10-22 00:40

恩  可以试 DATE 改
不知道这样行得通否?
  1. 发现有错误  修改
复制代码

[ 本帖最后由 terse 于 2008-10-22 02:26 编辑 ]
作者: batman    时间: 2008-10-22 12:28

  1. @echo off&setlocal enabledelayedexpansion
  2. for %%a in (y1#0#1 y2#1#1 y3#2#1 y4#3#1 m1#5#1 m2#6#1 d1#8#1 d2#9#1) do (
  3.     for /f "tokens=1,2,3 delims=#" %%i in ("%%a") do set "%%i=!date:~%%j,%%k!"
  4. )
  5. set /p code=请输入格式:
  6. :lp
  7. set "a=!code:~,1!"&set "code=!code:~1!"
  8. set /a n+=1
  9. for %%i in (d m y) do (
  10.     if /i "%%i" equ "%a%" set /a .%%i+=1&call,set "_%n%=%%%%i!.%%i!%%"
  11. )
  12. if not defined _%n% set "_%n%=%a%"   
  13. if defined code goto lp
  14. for /l %%i in (1,1,%n%) do set /p=!_%%i!<nul
  15. pause>nul
复制代码
测试格式为d/m m-y y,d y-y
作者: batman    时间: 2008-10-22 14:15     标题: 再来个通用版(不知道2000能用不)

  1. @echo off&setlocal enabledelayedexpansion
  2. set "d=%date%"
  3. :lp1
  4. set "a=!d:~,1!"&set "d=!d:~1!"
  5. for %%i in (0 1 2 3 4 5 6 7 8 9) do if "%%i" equ "%a%" set "str=!str!%a%"&goto next
  6. :next
  7. if defined d goto lp1
  8. set "com=reg query "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate"
  9. for /f "skip=4 tokens=3" %%i in ('%com%') do set "ymd=%%i"
  10. set "ymd=%ymd:mm=m%"&set "ymd=!ymd:dd=d!"
  11. set "ymd=%ymd:m=mm%"&set "ymd=!ymd:d=dd!"
  12. :lp2
  13. set "a=!ymd:~,1!"&set "ymd=!ymd:~1!"
  14. for %%i in (y m d) do (
  15.     if /i "%%i" equ "%a%" (
  16.        set /a .%%i+=1&set "%%i!.%%i!=!str:~,1!"&set "str=!str:~1!"
  17.     )
  18. )
  19. if defined ymd goto lp2
  20. set /p code=请输入格式:
  21. :lp3
  22. set "a=!code:~,1!"&set "code=!code:~1!"&set "ok=a"
  23. for %%i in (y m d) do (
  24.     if /i "%%i" equ "%a%" set /a _%%i+=1&call,set /p=%%%%i!_%%i!%%<nul&set "ok="
  25. )
  26. if defined ok set /p=%a%<nul
  27. if defined code goto lp3
  28. pause>nul
复制代码

[ 本帖最后由 batman 于 2008-10-22 17:39 编辑 ]
作者: Batcher    时间: 2008-10-22 17:39     标题: 回复 25楼 的帖子

Win2k没有reg.exe
^_^
作者: pusofalse    时间: 2008-10-22 17:41

贴出我的代码,可能存在通用性问题。希望大家测试并指出其中问题:
  1. @echo off&setlocal enabledelayedexpansion
  2. for /f %%a in ('wmic path win32_operatingsystem get localdatetime') do set "CurrentDate=%%a"
  3. rem 用wmic获取日期标准格式(yyyymmdd),代码、思路来自于论坛巡查BATCHER。
  4. rem 标准化获取当前日期:http://www.cn-dos.net/forum/viewthread.php?tid=41857&fpage=1&highlight=%2Bhat
  5. set "CurrentDate=%CurrentDate:~0,8%"
  6. set "Format=yyyymmdd"
  7. for %%a in (Y M D) do set "%%a=defined"
  8. for %%a in (4 2 2) do call :LOOP %%a
  9. set /p DateFormat=Input the format:
  10. :LP
  11. set "Char=%DateFormat:~,1%"
  12. if defined !Char! (
  13.    set /a !Char! += 1
  14.    <nul call call set /p=%%%%!Char!%%!Char!%%%%%%
  15.    ) else (
  16.    <nul set /p=!DateFormat:~,1!
  17. )
  18. set "DateFormat=!DateFormat:~1!"
  19. if defined DateFormat goto :LP
  20. pause>nul &exit /b
  21. :LOOP
  22. for /l %%a in (1 1 %1) do (
  23.      set "!Format:~,1!%%a=!CurrentDate:~,1!"
  24.      for %%i in (Format CurrentDate) do set "%%i=!%%i:~1!"
  25. )
复制代码

[ 本帖最后由 pusofalse 于 2008-10-22 17:43 编辑 ]
作者: shqf    时间: 2008-10-22 19:55

  先从注册表获得日期格式,把它保存到一个文件,再设置日期格式为yyyy-mm-dd,然后再交由主体程序按输入的格式去输出,最后恢复原先的日期格式。这样可不管原系统是什么日期格式了(3句语句可解决)。这样应该可行吧?可惜 按输入的格式去输出 我理解错了。

[ 本帖最后由 shqf 于 2008-10-22 19:57 编辑 ]
作者: keen    时间: 2009-5-24 01:42

只能显示三种格式:1.用空格隔开的格式,例如mm dd yyyy;2.用/隔开的格式,例如:dd/mm/yyy;3.用-隔开的格式,例如:yyyy-dd-mm
  1. @echo off&setlocal enabledelayedexpansion
  2. set "str=%date%"
  3. for /f "delims=0123456789-/" %%i in ("%str%") do set var=!str:%%i=!
  4. for /f "tokens=1-3 delims=-" %%i in ("%var%") do (
  5.     if "%%j" neq "" (
  6.        set yyyy=%%i&set mm=%%j&set dd=%%k
  7.     ) else (
  8.        for /f "tokens=1-3 delims=/" %%a in ("%var%") do (set mm=%%a&set dd=%%b&set yyyy=%%c)
  9.     )
  10. )
  11. set /p input=请输入:
  12. for /f "tokens=1-3" %%i in ("%input%") do if "%%j" neq "" call,echo %%%%i%% %%%%j%% %%%%k%%
  13. for /f "tokens=1-3 delims=-" %%i in ("%input%") do if "%%j" neq "" call,echo %%%%i%%-%%%%j%%-%%%%k%%
  14. for /f "tokens=1-3 delims=/" %%i in ("%input%") do if "%%j" neq "" call,echo %%%%i%%/%%%%j%%/%%%%k%%
  15. pause>nul
复制代码

作者: netbenton    时间: 2009-5-24 11:53

真的很难!
不过还是做出来了,纯批的,适用多种情况

  1. @echo off&setlocal enabledelayedexpansion
  2. set n=1
  3. for /f "tokens=2 delims=:" %%a in ('echo^;^|date') do (set str!n!=%%a&set/a n+=1)
  4. set str2=!str2:~2,-2!
  5. for %%a in (!str1!) do (set var=%%a
  6.         if "!var:-=!" neq "!var!" set fen=-&set str=%%a
  7.         if "!var:/=!" neq "!var!" set fen=/&set str=%%a
  8. )
  9. set n=3
  10. for %%a in (!str2:%fen%^= !) do (set str!n!=%%a&set/a n+=1)
  11. set n=3
  12. if not defined str4 for %%a in (0 1 2) do (set str!n!=!str2:~%%a,1!&set/a n+=1)
  13. set n=3
  14. for %%a in (!str:%fen%^= !) do (
  15.         for %%b in (str!n!) do (
  16.                 set !%%b!=%%a&set/a n+=1
  17.         )
  18. )
  19. for %%a in ("年 月 日" "yyyy mm dd" "yy mm dd") do (
  20.         for /f "tokens=1,2,3" %%b in (%%a) do (
  21.                 if defined %%b (
  22.                 for /f "tokens=1,2,3" %%e in ("!%%b! !%%c! !%%d!") do (
  23. endlocal&setlocal enabledelayedexpansion
  24.                         set #y=%%e
  25.                         set #m=%%f
  26.                         set #d=%%g
  27.                 ))
  28.         )
  29. )
  30. :loop
  31. set in=
  32. set str=
  33. set/p in=输入日期格式:
  34. for %%a in (y m d) do (set in=!in:%%a=" "%%a" "!)
  35. set/a .y=0,.m=0,.d=0
  36. for %%a in ("!in!") do (
  37.         if defined #%%~a (
  38.                 for %%b in (!.%%~a!) do (
  39.                         set str=!str!!#%%~a:~%%b,1!
  40.                 )
  41.                 set/a .%%~a+=1
  42.         ) else (set str=!str!%%~a)
  43. )
  44. echo 分解:"!in!"
  45. echo 处理结果:!str!
  46. goto :loop
复制代码

作者: qzwqzw    时间: 2010-1-4 13:54

感觉出题和解题的思路已经过于学究了
研究的目的仍然是应用

而从应用的角度来讨论
各种奇怪的日期格式
其实应该是被抛弃的
而不是被鼓励的
况且题目中出现了任何应用系统都不支持和不会出现的日期格式
那讨论的价值和意义也就失去了

至于练习题的限制条件
我觉得不必强调简洁、高效、无临时文件
也许对于本题不简洁高效的代码和思路
换一个应用环境也许就是唯一适用的
所以思路和创意是最值得鼓励的

从Windows的应用角度来解题的话
这是我的思路
写代码的宗旨是
简单而不必简洁
适用而不必通用
有效而不必高效
  1. @echo off & setlocal
  2. set/p DateFmt=输入日期格式(MM,yyyy,dd):
  3. set Regkey="HKEY_CURRENT_USER\Control Panel\International"
  4. reg export %Regkey% %temp%\~DateFmt.reg > nul
  5. reg add %Regkey% /v sShortDate /d "%DateFmt%" /f >nul
  6. echo.%date%
  7. reg import %temp%\~DateFmt.reg > nul
  8. for %%f in (%temp%\~DateFmt.reg?) do del %%f
复制代码

作者: neorobin    时间: 2010-1-4 19:53

题目中列出的用户输入格式示例显乱, 题意不好理解, 表达年月日的数字被混插打乱已无实际意义, 偶没了解题欲望




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2