【练习-028】批处理根据输入的日期格式输出当前日期

pusofalse

出题目的：
             综合运用批处理各语句，提高综合运用的水平。
加分规则：
    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

不知道%date%所扩展出的日期的格式吗？
如果是 2008-01-01那怎么01是mm还是dd呢

pusofalse

未知%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 编辑 ]

随风

未知%date%的格式。
有可能是 10-21-2008 或 10-21-08 这样的格式吗？

pusofalse

这样的格式：
星期二 2008-10-21
2008-10-21 星期二
10/21/2008 Tue
Tue 10/21/2008
只考虑用4位数表示年份，暂时不必考虑用两位数表示的年份。

terse

原帖由 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

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

[ 本帖最后由 pusofalse 于 2008-10-21 21:14 编辑 ]

随风

看似一个简单的问题，居然也要这么长的代码。。。
:

@echo off&setlocal enabledelayedexpansion
set /p var=请输入: 
set .y=a&set .m=a&set .d=a&set h=ymd
for /l %%a in (0 1 9) do set .%%a=a
for %%i in (%date%) do (
   set str=%%i&set "str=!str:~0,1!"
   if defined .!str! (
      for /f "tokens=1-3 delims=/\,.-: " %%a in ("%%i") do (
      set str=%%a&set str=!str:~2,1!
      if not defined .!str! set h=mdy
      set !h:~0,1!=%%a&set !h:~1,1!=%%b&set "!h:~2,1!=%%c"
)))
:loop
set n=%var:~0,1%
if defined .%n% (
   set num=!num!!%n%:~0,1!
   set "%n%=!%n%:~1!"
) else set "num=%num%%n%"
set "var=%var:~1%"
if defined var goto loop
echo\&echo %num%
pause>nulCOPY

[ 本帖最后由 随风 于 2008-10-21 21:43 编辑 ]

pusofalse

如果%date%是这样的格式就会出错：
10/21/2008 Tue
输入yyyy mm dd，输出10~0,1~ 21 20，本该是2008 10 21。

随风

以发现，你再试试？

pusofalse

是的 现在可以了！
不过如果%date%的格式是这样的呢：
月/年/日。 日/年/月。 年/日/月。
。。。而不只是年/月/日 或 月/日/年。
或许也没有这样的日期格式。。。

shqf

@echo off
reg export "HKEY_CURRENT_USER\Control Panel\International" 1.reg >nul
reg add "HKEY_CURRENT_USER\Control Panel\International" /f /v sShortDate /d "yyyy-MM-dd" >nul
 
:shuchu
set /p rqgs=请输入日期格式(按q退出):
if "%rqgs%"=="mm dd yyyy" echo %date:~5,2% %date:~8,2% %date:~0,4%
if "%rqgs%"=="yyyy/mm/dd" echo %date:~0,4%/%date:~5,2%/%date:~8,2%
if "%rqgs%"=="mm-dd/yyyy" echo %date:~5,2%-%date:~8,2%/%date:~0,4%
if "%rqgs%"=="md-md-yyyy" echo %date:~5,1%%date:~8,1%-%date:~6,1%%date:~9,1%-%date:~0,4%
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%
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%
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%
echo.
if /i not "%rqgs%"=="q" goto shuchu
reg import 1.reg>nul
echo OK&pause>nul
exitCOPY

pusofalse

回复楼上的兄弟。八个字母的排列方式太多了。
我有可能输入 ym-ym-dydy，抑或m/-yydy/myd。。。

随风

那样就无法判断 月和日 了啊？

pusofalse

是的。%date%的值是日/年/月这样格式的日期我也没见过，只是个人意见而已。不管格式怎样，即使千变万化也能正确输出才能谓之完美。