qixiaobin0715

回复 6# ppll2030
看到你第2个代码，使用findstr一般表达式，头都晕了，感觉太繁琐了。高手！！
自己设想是不是用判断语句思路更清晰些，也很简单。谁知眼高手低，写起来也是很费劲，也一样繁琐。还是发出来让需要的人作为参考，即使不需要 ，也可作为判断语句学习时的参考：

@echo off 
:o
set/p "_md=Please Input the Date (MM/DD):"
for /f "tokens=1* delims=/" %%i in ("%_md%") do (
    if not "%%j"=="" (
        if "%%i" geq "01" if "%%i" leq "12" if "%%j" geq "01" if "%%j" leq "31" set n=1
        if defined n (
            if "%%i" equ "02" (
                if "%%j" geq "30"    set n=
            ) else (
                for %%k in (04 06 09 11) do if "%%i" equ "%%k" if "%%j" equ "31" set n=
            )
        )
    )
)
if not defined n echo,Input Error&goto :o
echo,Input Correct
pauseCOPY

总是感觉哪里不对。1/1也是合法的。

ppll2030

回复 13# aloha20200628


    感谢大佬指正~！
大半夜想这些烧脑的东西，效率还是低了。

77七

回复 12# aloha20200628


  set /p="..."<nul 对比echo "..."优点不多，缺点倒是多一些

aloha20200628

回复 6# ppll2030
回复 9# 蚯蚓传奇

网查用正则匹配（同时也是检查）日期格式有多种杂乱版本，实测了一把6楼代码，发现有一处须予订正如下，否则会漏检 10/00，11/00，12/00 的错误：

   旧码》findstr /x "0[1-9]/0[1-9] 0[1-9]/[1-2][0-9] 0[13578]/3[0-1] 0[469]/30 1[0-2]/0[0-9] 1[0-2]/[1-2][0-9] 1[02]/3[0-1] 11/30"
   新码》findstr /x "0[1-9]/0[1-9] 0[1-9]/[1-2][0-9] 0[13578]/3[0-1] 0[469]/30 1[0-2]/0[1-9] 1[0-2]/[1-2][0-9] 1[02]/3[0-1] 11/30"

另注》仅用正则匹配不能兼顾平/闰年2月增减天数的变化，还须增添代码修正...

aloha20200628

回复 10# 77七

‘纯P老窖’ 还留了一款  set/p="..."<nul  此时正好派上用场...
echo,"..." 连双引号一并输出；而 set/p="..."<nul 只输出双引号包裹的内容，但先戴上双引号即可免遭 ‘雷劈’

set/p="1&2"<nul|find "1">nul&&echo,#1
set/p="1&2"<nul|find "2">nul&&echo,#2COPY

WHY

简单、方便、准确，让神马的 for 和 if 见鬼去吧。

$myInput  = Read-Host 'Input';
$formats  = [String[]]('MM/dd', 'M/d');
$provider = [Globalization.CultureInfo]'zh-CN';
$style    = [Globalization.DateTimeStyles]::None;
$result   = [DateTime]0;
 
[DateTime]::TryParseExact($myInput, $formats, $provider, $style, [ref]$Result);
[Console]::ReadLine()COPY

https://learn.microsoft.com/zh-cn/dotnet/api/system.datetime.tryparseexact?view=net-8.0

77七

echo 一个未知的字符串|find (findstr)其实是一个很危险的操作，因为特殊字符影响会导致各种错误

@echo off
set "str=1&2"
echo %str%|find "1" 1>nul && echo #1 闪退
echo %str%|find "2" 1>nul && echo #2 闪退
echo "%str%"|find "1" 1>nul && echo #3 判断成功
echo "%str%"|find "2" 1>nul && echo #4 判断成功
setlocal enabledelayedexpansion
echo !str!|find "1" 1>nul && echo #5 报错，判断成功
echo !str!|find "2" 1>nul && echo #6 报错，判断失败
 
set "str=1&2""
echo "%str%"|find "1" 1>nul && echo #7 整行的特殊符号都被双引号转义
pauseCOPY

蚯蚓传奇

回复 6# ppll2030


    谢谢分享，可以用，而且效率很高

aloha20200628

参考6楼代码用 findstr 小正则卡位定界 mm/dd 格式输入，句式更为简洁，如此4楼代码可减肥‘到底’ ，给出如下两个等效版本...

第一版本》先行正则卡位定界，再行powershell合法性检查

@echo off &setlocal &set/p "md=输入日期（月值/日值）："
echo,%md%|findstr /rc:"[01][0-9]/[0-3][0-9]">nul||echo,非法&endlocal&pause&exit/b
powershell "('2024/%md%' -as [DateTime]) -ne $null"|find /i "true">nul
if errorlevel 1 (echo,非法) else (echo,合法) 
endlocal&pause&exit/bCOPY

第二版本》先行powershell合法性检查，再行卡位定界

@echo off &setlocal &set "w=非法" &set/p "md=输入日期（月值/日值）："
powershell "('2024/%md%' -as [DateTime]) -ne $null"|find /i "true">nul
if errorlevel 1 (set k=1) else if "%md:~2,1%"=="/" if "%md:~-3,1%"=="/" set "w=合法"
echo,%w%&endlocal&pause&exit/bCOPY

77七

@echo off
set /p str=input:
call :1
if defined k (
	echo 合法
) else (
	echo 非法
)
pause
exit
 
	:1
	setlocal
	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
	rem "http://www.bathome.net/redirect.php?goto=findpost&ptid=3769&pid=24349"
	set/a num=!(year%%4) ^& !(!(year%%100)) ^| !(year%%400),1/num 2>nul && set _2=29|| set _2=28
	setlocal enabledelayedexpansion
	for /l %%l in (1,1,12) do for /l %%m in (1,1,!_%%l!) do (set l=0%%l&set m=0%%m&set #!l:~-2!/!m:~-2!=1)
	if defined #!str! (endlocal &endlocal &set k=1) else (endlocal &endlocal)
	exit /bCOPY

ppll2030

回复 3# 蚯蚓传奇


    在第一和第二行之间，加一句代码即可，有且仅对日期格式判断 。

echo %_md%|findstr /x "[0-1][0-9]/[0-3][0-9]">nul||(echo 日期格式不正确&pause&exit /b)COPY

把日期对错也一并加入判断了。一次性完成日期对错和日期格式的判断。

@echo off 
set/p "_md=输入日期（月值/日值）："
echo %_md%|findstr /x "0[1-9]/0[1-9] 0[1-9]/[1-2][0-9] 0[13578]/3[0-1] 0[469]/30 1[0-2]/0[1-9] 1[0-2]/[1-2][0-9] 1[02]/3[0-1] 11/30">nul||set "v=不"
echo 日期输入%v%正确！&pause&exit/bCOPY

WHY

set /p "dt=Input:"
PowerShell "$out=0; [DateTime]::TryParseExact('%dt%', 'M/d', [Globalization.CultureInfo]'zh-CN', [Globalization.DateTimeStyles]::None, [ref]$out)"COPY

aloha20200628

回复 3# 蚯蚓传奇

增添子过程 :xxx 用于检查日期输入格式是否满足 mm/dd，分隔符须为 /，mm 和 dd 都必须是两位数字...

@echo off &setlocal &set/p "md=输入日期（月值/日值）："
call :xxx "%md%"
if %ok% equ 0 (echo,输入非法)&exit/b
for /f %%v in (
	'powershell "('2024/%md%' -as [DateTime]) -ne $null" '
) do if /i "%%v"=="true" (echo,输入合法) else (echo,输入非法)
endlocal&pause&exit/b
:xxx
	set "v=%~1" &set "ok=0" &set "n="
	if "%v:~4,1%" neq "" if "%v:~5%"=="" (
		for /f "delims=0123456789/" %%n in ("%~1") do set "n=1"
		if not defined n set "ok=1"
	)
	exit/bCOPY

蚯蚓传奇

回复 2# aloha20200628


    感谢分享，我刚才试了这段代码，你判断日期是否合法的那段代码我已经采纳了，可是我主要是想让他判断格式是否符合**/**，不知道能不能实现

aloha20200628

回复 1# 蚯蚓传奇

以下代码存为 test.bat 运行...
备注》powershell兼容 ‘月/日’ 和 ‘月-日’ 多种格式分隔符，自动检查月日合法性（尤其是2月日期）

@echo off &set/p "_md=输入日期（月值/日值）："
for /f %%v in (
	'powershell "('2024/%_md%' -as [DateTime]) -ne $null" '
) do if /i "%%v"=="true" (echo,输入合法) else (echo,输入非法)
pause&exit/bCOPY