[文本处理] 【已解决】字符串截取判断的批处理出错找不到问题

set /p str=请输入32位由0，1组成的字符串
setlocal enabledelayedexpansion
for /L %%i in (0,1,31) do (
::逐次截取第一位
set /a aa=!!str:~%%i,1!!
if !aa! equ 0 (
::需要将剩余的字符串转换位十进制，否则数值超限
call :2x10 %%str:~!i!%% cc
if !cc! ==0 (goto :test1) else goto :test2
            )
                           )
endlocal

echo 出现这个说明程序出错了，请检查代码！
pause

::借用十进制转二进制函数
:2x10  2进制转 10进制 @随风 @bbs.bathome.net （封装）
@echo off&setlocal enabledelayedexpansion
set /a nnn=1,num=0&set nn=&set "n=%~1"
set "n=!n:0= 0!"&set "n=!n:1= 1!"
for %%a in (!n!) do set "nn=%%a !nn!"
for %%a in (!nn!) do set /a num+=%%a*nnn,nnn*=2
endlocal&set %~2=%num%&goto :EOF
:test1
echo 测试通过
pause
:test2
echo 测试失败
pause
复制代码

@echo off

set /p str=请输入32位由0，1组成的字符串

set /a flag=next=1
set /a first=%str:~0,1%
setlocal enabledelayedexpansion
if %first% equ 1 (
	:test1
	if !next! lss 32 (
		set /a aa=%str:~!next!,1%
		if !aa! equ 1 ((if !flag! equ 1 (set next+=1& goto :test1) else goto :end1) else (set /a flag=0&set /a next+=1 &goto:test1)) else (set /a flag=0&set /a next+=1&goto :test1)
	)else goto :endok) else (
		:test2
		if !next! lss 32 (
			set /a bb=%str:~%next%,1%
			if !bb! equ 1 (goto :end1) else (set /a next+=1&goto :test2)))
:endok
echo ok
pause
:end1
echo fail
pause
复制代码