pcl_test

回复 2# 老刘1号

第一种，如果输入负数呢，如 -47个数字
第二种，如果有空格呢，如 a  48个数字  b

渣白

用 set /p number=请输入48位数字数字中间无空格


如果变量number有其他字符输出“输入错误！请重新输入！”
如果变量number不够48位输出“输入错误！请重新输入！”
怎么用代码实现

/zhqsystem/zhq

@echo off&setlocal enabledelayedexpansion
set /p "a=请输入48位数字: 注:如果闪退则是包含特殊字符或是超限字符:
if defined a (
 set "#=!a!"
 (for /l %%n in (0,1,9)do set "#=%%n!#!"&&set "#=!#:%%n=!")>nul 2>nul
 if defined # (
  echo,非纯数字
 )else (
  set "n=0"
  for /l %%n in (0,1,8197)do if /i not "!a:~%%n,1!"=="" set/a "n=%%n+1"
  if /i "!n!"=="48" (
   echo,纯数字验证正确
  )else (
   echo,验证错误字符数:!n!
  )
 )
)else (
 echo,直接回车了
)
复制代码

老刘1号

回复 3# 渣白


    CMD直接运行不了
存Bat
或者：

Echo off&cls&setlocal   ENABLEDELAYEDEXPANSION
for /l %%a in (1,1,48) do set pattern=!pattern![0-9]
Set/pa=
echo !a!|Findstr "^%pattern%$" >nul && Echo True || Echo False
Pause
复制代码

渣白

回复 2# 老刘1号


    这个代码不是批处理？怎么在cmd里运行

老刘1号

2选1
另存为BAT

'&start Wscript -e:vbscript "%~0"
a=inputbox("")
if len(a) = 48 and IsNumeric(a) then
wscript.echo "True"
else
wscript.echo "False"
end if
复制代码

'&start Wscript -e:vbscript "%~0"
Set a=New RegExp
a.Pattern="\b\d{48}\b"
MsgBox a.Test(InputBox(""))
复制代码