qixiaobin0715

回复 58# 77七
是的，这里只是对1个数据进行判断，不考虑效率没问题，像你先前所说的全定义更简单。

aloha20200628

精简了45楼代码中的操作步骤和合法性核查逻辑，行数减至18行，8个goto减至2个...
操作步骤要点》
   双引号排查
   输入长度排查
   定界符及其错位排查
   日月值全数字排查
   日月相关变化所对应的字典变量 以及 平闰年天数增减修正
   全程严防 &!"^ 等特殊字符雷劈的对策...
再次感谢各位细心测试反馈 就算是一场把纯P贯彻到底的基本功组合复习吧...

@echo off &setlocal
set/a "_1=31,_2=28,_3=31,_4=30,_5=31,_6=30,_7=31,_8=31,_9=30,_10=31,_11=30,_12=31,y=%date:~,4%%%4"
if %y% equ 0 set "_2=29"
:[md_loop]
set "$md=" &set "c=" &set/p "$md=输入日期（月值/日值）："
if not defined $md endlocal&exit/b
setlocal enabledelayedexpansion &set #md=!$md:"=!
if "!#md!"=="!$md!" if "!$md:~5!"=="" if "!$md:~4,1!" neq "" if "!$md:~2,1!"=="/" (
	set "m=!$md:~0,2!"&set "d=!$md:~3!"
	for /f "delims=0123456789/" %%n in ("!$md!") do set "c=1"
	if not defined c goto[ok] )
echo,非法&endlocal&goto[md_loop]
:[ok]
if "!m:~0,1!" equ "0" set "m=!m:~1!"
set "_m=_!m!" &set "w=非法"
if "!d:~0,1!" equ "0" set "d=!d:~1!"
if !d! gtr 0 if !d! leq !%_m%! set "w=合法"
echo,!w!&endlocal&goto[md_loop]
复制代码

buyiyang

回复 55# qixiaobin0715


    我尝试写了一个

@echo off
for /f "tokens=2" %%i in ('wmic os get codeset^,localdatetime') do set yyyy=%%i&call set yyyy=%%yyyy:~0,4%%
set /a _01=_03=_05=_07=_08=_10=_12=31,_04=_06=_09=_11=30,"_02=28+(!(yyyy%%4)&!!(yyyy%%100)|!(yyyy%%400))"
set "error=echo,Invalid date&endlocal&goto :loop"

:loop
set /p "md=Please enter a date (M/D):"
setlocal enabledelayedexpansion
set "a=!md:*/=!"&set "dd=!a:/=!"
if "!a!" neq "!dd!" (%error%)
for /f "delims=0123456789" %%i in ("!md:/=!") do (%error%)
for /f "tokens=1* delims=/" %%i in ("!md!") do (endlocal&set "mm=%%i"&set "dd=%%j")
setlocal enabledelayedexpansion
if "!dd!"=="" (%error%)
if "!mm:~2,1!" neq "" (%error%)
if "!dd:~2,1!" neq "" (%error%)
if "!mm:~0,1!" equ "0" if "!dd:~1,1!"=="" (%error%)
if "!dd:~0,1!" equ "0" if "!mm:~1,1!"=="" (%error%)
set "mm=0!mm!"&set "mm=!mm:~-2!"
set "dd=0!dd!"&set "dd=!dd:~-2!"
if "!dd!" gtr "00" if "!dd!" leq "!_%mm%!" (echo,Valid date&endlocal&goto :loop)
%error%
复制代码

77七

回复 55# qixiaobin0715


   大佬，我觉得几十个变量不会影响效率。尤其类似的简短变量 set #01=01，试着定义了5000个，耗时1秒左右，然后判断是否定义，echo %time%对比了下，时间相同。

12:07:14.02
12:07:15.26
1
12:07:15.26
复制代码

分别为定义开始时间、结束时间、判断是否被定义时间

qixiaobin0715

回复 56# 77七
我的失误，没有表达清楚。有人习惯月份日期是个位数时前面加个0，都变成两位数；有人不习惯加0补位，直接写。我要表达的是，两种不能混合写，比如1月1日，要么写成01/01或者1/1，而不能写成01/1或1/01。

77七

回复 55# qixiaobin0715


   大佬，您最后提出的新问题，我没看懂...

qixiaobin0715

不包括修改代码，我也发上来过两版代码，就是漏洞太多。总体感觉是，不能自我陶醉，沾沾自喜，总是觉得自己的代码思路好，完美无缺，实际上还差得远着呢，低调最重要。
不怕大家笑话，再来一版，希望大佬们批评指正。还是限定输入格式为：01/01这样的。
下面代码的前一部分还是主要借鉴了27楼的思路。原则上尽量少预设变量（29楼代码开始预设了几十个变量，主要是便于后面进行判断，可能会影响一些效率）。第6行判断语句既定位了“/”字符，又能限定输入的字符长度为5，一举两得，主要还是得益于aloha20200628的提醒：

@echo off
setlocal enabledelayedexpansion
:o
set/p "md=Please Input the Date (MM/DD):"
set "mm/dd=!md!"
if "!mm/dd:~2,-2!"=="/" (
    if "!mm/dd:00=!"=="!mm/dd!" (
        for /l %%i in (0,1,9) do set "mm/dd=!mm/dd:%%i=!"
        if "!mm/dd!"=="/" set n=1
    )
)
if not defined n goto :p
for /f "tokens=1* delims=/" %%i in ("!md!") do (
    if %%i gtr 12 (set n=) else if %%j gtr 31 (set n=)
    if defined n (
        if %%j equ 30 (
            if %%i equ 2 set n=
        ) else if %%j equ 31 (
            for %%k in (02 04 06 09 11) do if %%k equ %%i set n=
        )
    )
)
:p
if defined n (echo,Input Correct) else (echo,Input Error&goto :o)
pause
复制代码

另外，改变一下输入格式。合法：1/2  1/31  01/02  01/31  12/01  12/1，非法：01/2  1/01。如何才能判断？

aloha20200628

回复 53# 77七

谢谢 代码已订正... 但愿是最后一把 ‘堵漏灵’...
从8楼调用 powershell+findstr 外援的4-5行代码到45楼的纯P自力更生版，已经垒起21行代码了，要经得起各种怪异字符的 ‘雷劈’ ... 纯粹是要过把瘾的一套脑力操...

77七

回复 45# aloha20200628

大佬，感觉应对特殊字符还是开启延迟变量扩展专业，如第7、8行无法处理 双引号

buyiyang

综合一下35、45、48、55楼，有一些不错的写法
最终主体只需要9、11、12行三句判断就够了。
第9行限制输入字符数和分隔符位置，
第11行限制月份和日期均为数字，
第12行限制月份和日期范围。

@echo off
for /f "tokens=2" %%i in ('wmic os get codeset^,localdatetime') do set yyyy=%%i&call set yyyy=%%yyyy:~0,4%%
set /a _01=_03=_05=_07=_08=_10=_12=31,_04=_06=_09=_11=30,"_02=28+(!(yyyy%%4)&!!(yyyy%%100)|!(yyyy%%400))"
set "error=echo,Invalid date&endlocal&goto :loop"

:loop
set /p "md=Please enter a date (MM/DD):"
setlocal enabledelayedexpansion
if "!md:~2,-2!" neq "/" (%error%)
set "mm=!md:~0,2!"&set "dd=!md:~3,2!"
for /f "delims=0123456789" %%i in ("!mm!!dd!") do (%error%)
if "!dd!" gtr "00" if "!dd!" leq "!_%mm%!" (echo,Valid date&endlocal&goto :loop)
%error%
复制代码

aloha20200628

回复 50# buyiyang
谢谢细心测试 45楼代码已被订正...
要纯P到底，那些 卡位，定界，全数字核查... 一点懒儿都不能偷

buyiyang

回复 45# aloha20200628

endlcoal 后第二行设定的变量也无了，
第14行的if %m% lss 1 if %m% gtr 12 逻辑有误，其实这一行不要也行，第17行if %d% gtr 0 if %d% leq !%_m%! 兼有限制月份的作用。

aloha20200628

回复 46# buyiyang

45楼代码已订正，堵上了被多种 ‘怪异字符’ 轰击破防的缺口...

本帖歇后语》不用外部方法援助，不用正则匹配简化，感觉纯P自力更生的造码能力还可以...而真正的着力点落在了应对预处理和防止怪异字符的雷劈...

77七

简化一下

@echo off
for /f %%a in ('wmic os get localdatetime ^|findstr [0-9]') do set year=%%a&call set year=%%year:~0,4%%
set /a _1=_3=_5=_7=_8=_10=_12=31,_4=_6=_9=_11=30
set/a num=!(year%%4) ^& !(!(year%%100)) ^| !(year%%400),1/num 2>nul && set _2=29|| set _2=28

:loop
setlocal
set /p n=input:
setlocal enabledelayedexpansion
set a=非法
if "!n:~2,1!!n:~5,1!" equ "/" (
	for /l %%l in (1,1,12) do (
		set str=0%%l
		if "!n:~0,2!" equ "!str:~-2!" (
			for /l %%m in (1,1,!_%%l!) do (
				set str=0%%m
				if "!n:~3,2!" equ "!str:~-2!" (
					set a=合法
				)
			)
		)
	)
)
endlocal & endlocal &echo %a%
goto :loop
复制代码

77七

@echo off
for /f %%a in ('wmic os get localdatetime ^|findstr [0-9]') do set year=%%a&call set year=%%year:~0,4%%
set /a _1=_3=_5=_7=_8=_10=_12=31,_4=_6=_9=_11=30
set/a num=!(year%%4) ^& !(!(year%%100)) ^| !(year%%400),1/num 2>nul && set _2=29|| set _2=28

:loop
setlocal
set /p n=input:
set "n1=%n:~0,2%"
set "n2=%n:~2,1%"
set "n3=%n:~3,2%"
set "n4=%n:~5%"
setlocal enabledelayedexpansion
set a=非法
if "!n2!" equ "/" (
	if "!n4!" equ "" (
		for /l %%l in (1,1,12) do (
			set str=0%%l
			if "!n1!" equ "!str:~-2!" (
				for /l %%m in (1,1,!_%%l!) do (
					set str=0%%m
					if "!n3!" equ "!str:~-2!" (
						set a=合法
					)
				)
			)
		)
	)
)
endlocal & endlocal &echo %a%
goto :loop
复制代码

判断 相应位置的字符串与 分隔符号 "/" 及限定范围的日期、月份是否有相等情况。初步测试，可以应付各种特殊字符。