[文本处理] 批处理如何判断输入的字符串是否是指定位数的纯数字

渣白

关于set /p a=   的用法，不是很懂
我想用set /p "a=请输入48位数字："



变量规定为 48位数字纯数字，无英文字母，无其他字符(空格，符号等)
纯数字无要求，可以0开头也可以重复，所以不用做任何规定

:loop
set /p "a=请输入48位数字：
set "a48=a:~48,1"
if %a48% neq ”“ echo 输入错误！ goto loop
echo %a% | finldstr /i "A B C D E F G H I J K L N M O P Q R S T U V W X Y Z  , . * / - + ! @ $ % ^ & * ( ) : " < > ? " echo 输入错误！ &&goto loop
echo 输入成功！
pause >nul&&exit

这是我自己的想法
if %a48% neq ”“ echo 输入错误！ goto loop  这一步错了。。。然后就没想懂

happy886rr

回复 18# pcl_test
感谢大师提醒，已完善。

老刘1号

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

老刘1号

Echo off&cls&setlocal   ENABLEDELAYEDEXPANSION
for /l %%a in (1,1,8) do set pattern=!pattern![0-9]
Set/pn=
For /l %%a in (1,1,6) do (
        set /a tmp=8*%%a-8
Call echo %%n:~!tmp!,8%%|Findstr "^%pattern%$" >nul || Set bool=False
)
If "!bool!" Equ "False" (Echo !bool!) Else Echo True
Pause
123456789012345678901234567890123456789012345678
-12345678901234567890123456789012345678901234567
000000000000000000000000000000000000000000000000
1 3456789012345678901234567890123456789012345678

pcl_test

回复 8# happy886rr

如果超出位数会有点问题吧

渣白

回复 16# happy886rr


    不明白，怎么用做
可否给个小实例

happy886rr

回复 15# 渣白
用机器码做种子

渣白

回复 14# happy886rr


  这有弊端，我给别人授权了，他又发给别人。那不是一样？

happy886rr

回复 10# 渣白
因为你发的是授权过的bat，已经被追加了尾部授权，因此别人直接就能显示。建议发个未授权的bat过去。

渣白

回复 7# pcl_test


    负数和空格就错误啊，目标要求是48位纯数字

渣白

回复 11# 文哥


    兄弟 谢谢了

文哥

@echo off&setlocal enabledelayedexpansion
:a
set /p a=
for /f "delims=0123456789" %%a in ("%a%") do if not "%%a"=="" echo 不是纯数字&goto a
for /l %%a in (1,1,49) do if "!a:~%%a,1!"=="" set b=%%a&goto b
:b
echo %b%
if not "%b%"=="48" echo 不是48位
goto a
复制代码

渣白

回复 8# happy886rr


    谢谢老师


@echo off
call :check 2>nul
if defined key goto main
:pwd
cls
set /p input= 输入授权码
if not defined input goto pwd
if not "%input%"=="shouquanma" goto pwd
(echo;
echo;:check
echo;set key=123
echo;goto :eof
echo;
)>>%0
:main
echo;hello word
echo.&pause&exit

上面的代码  ，，我输入了shouquanma 显示了内容hello world  然后我把bat发给别人，别人为什么也可以显示。。。想加一个识别电脑是否授权

渣白

回复 4# 老刘1号


    搜索字符串太长

happy886rr

回复 6# 渣白
这么简单你还不会写吗

@echo off
setlocal enabledelayedexpansion

:INPUT
set/p a=请输入(48位数字):

for /l %%i in (0,1,48) do (
	set/a "1!a:~%%i,1!1+1!a:~%%i,1!" 2>NUL || (
		echo;输入错误！请重新输入！
		goto :INPUT
	)
)

set/a "1/(1!a:~47,1!1-11)" 2>NUL || (
	echo;输入错误！请重新输入！
	goto :INPUT
)

set/a "1/(1!a:~48,1!1-11)" 2>NUL && (
	echo;输入错误！请重新输入！
	goto :INPUT
)

set/p=输入成功
复制代码