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

求知路漫漫

目的：对1和0组成的字符串，从左往右，如果出现0之后，不能出现1，测试通过，否则测试失败。想了两个方案，都总出问题，又解决不了，谢谢执教。
方案一。从左第一个起，一个一个截取，若出现数字0，将剩下的转换成数字，如果为0则成功，否则失败。代码如下：

1. 
   
2. set /p str=请输入32位由0，1组成的字符串
   
3. setlocal enabledelayedexpansion
   
4. for /L %%i in (0,1,31) do (
   
5. ::逐次截取第一位
   
6. set /a aa=!!str:~%%i,1!!
   
7. if !aa! equ 0 (
   
8. ::需要将剩余的字符串转换位十进制，否则数值超限
   
9. call :2x10 %%str:~!i!%% cc
   
10. if !cc! ==0 (goto :test1) else goto :test2
    
11.             )
    
12.                            )
    
13. endlocal
    
14. 
    
15. echo 出现这个说明程序出错了，请检查代码！
    
16. pause
    
17. 
    
18. ::借用十进制转二进制函数
    
19. :2x10  2进制转 10进制 @随风 @bbs.bathome.net （封装）
    
20. @echo off&setlocal enabledelayedexpansion
    
21. set /a nnn=1,num=0&set nn=&set "n=%~1"
    
22. set "n=!n:0= 0!"&set "n=!n:1= 1!"
    
23. for %%a in (!n!) do set "nn=%%a !nn!"
    
24. for %%a in (!nn!) do set /a num+=%%a*nnn,nnn*=2
    
25. endlocal&set %~2=%num%&goto :EOF
    
26. :test1
    
27. echo 测试通过
    
28. pause
    
29. :test2
    
30. echo 测试失败
    
31. pause

复制代码

方案二，使用goto从第一个字符循环到最后一个字符，如果1开头，数字变化两次则失败，如果0开头，数字变化一次就失败。代码如下：

1. @echo off
   
2. 
   
3. set /p str=请输入32位由0，1组成的字符串
   
4. 
   
5. set /a flag=next=1
   
6. set /a first=%str:~0,1%
   
7. setlocal enabledelayedexpansion
   
8. if %first% equ 1 (
   
9.         :test1
   
10.         if !next! lss 32 (
    
11.                 set /a aa=%str:~!next!,1%
    
12.                 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)
    
13.         )else goto :endok) else (
    
14.                 :test2
    
15.                 if !next! lss 32 (
    
16.                         set /a bb=%str:~%next%,1%
    
17.                         if !bb! equ 1 (goto :end1) else (set /a next+=1&goto :test2)))
    
18. :endok
    
19. echo ok
    
20. pause
    
21. :end1
    
22. echo fail
    
23. pause
    

复制代码

愁死了

通过四楼兄弟的方案解决了问题，简洁高效，再次感谢。抽空继续修正自己的方案，解决问题才能进一步提高

Batcher

回复 1# 求知路漫漫


请以第一个代码为例，举例说明：
你输入了什么字符串？
希望得到的结果是什么？
代码实际得到的结果是什么？
代码第几行的处理跟预期不一样？

如需上传截图，请找个图床试试，例如：
http://bbs.bathome.net/thread-60985-1-1.html

求知路漫漫

回复 2# Batcher


先谢谢管理员愿意花时间指点。我没用过图床，不会使 。简单给您说明一下。这个说白了就是子网掩码的校验问题。将合法的IP地址转换成二进制形式作为输入，看是否符合掩码规则。
第一个方案，无论输入正确的掩码还是错误的，都会出错。下半部分是借用封装好的函数不会有问题，我感觉是上半部分变量嵌套引用错误引起的，修正测试了一天也没有解决。
第二个方案，一直报语法错误，闪退。也是修改了很久解决不了，才麻烦大家的。

idwma

1. set /p str=请输入32位由0，1组成的字符串
   
2. set str=%str:*0=%
   
3. set str=%str:0=%
   
4. if defined str (echo 测试失败) else (echo 测试通过)

复制代码

求知路漫漫

回复 4# idwma


    谢谢指导，很巧很简洁。除了一个全1的特例，其它的都涵盖了，再次感谢

我会将标题更改，若是有人帮忙修正原方案就更好。出问题不怕，就怕问题掩盖

Batcher

回复 3# 求知路漫漫


第二个方案，建议放弃这个思路。
以后写代码也不要在for或if内部定义标签并goto跳转，把标签的定义全部放在外面。

求知路漫漫

回复 6# Batcher


    明白，第二个确实打算放弃了，嵌套了太多if，要不是vim里面有提示，光括号都晕了。主要是第一个方案失败后，想不到别的了，再次感谢。