[已解决]BAT获取字符串长度为何提示总字符长度为8190？

lemoncn

想用bat弄个动态获取字符串长度的小玩意，但单把函数块里的内容拿出来执行是没问题的，一整成函数动态获取就不行了。老提示总字符长度为8190。代码如下，请各位大神帮忙看下问题出在哪里。

1. echo off&setlocal ENABLEEXTENSIONS
   
2. title 获取动态字符串长度
   
3. set /p "str1=请键入第一个字符串："
   
4. set /p "str2=请键入第二个字符串："
   
5. set "srvnm=srv-%str1%-%str2%"
   
6. echo 最终的字符串为：%srvnm%
   
7. call:GetStrLen %srvnm%
   
8. echo.&pause&goto:eof
   
9. 
   
10. ::获取字符串长度
    
11. :GetStrLen
    
12. rem setlocal
    
13. set str=%1
    
14. set /a max=8190,min=0
    
15. for /l %%a in (1,1,14) do (
    
16.     set /a "num=(max+min)/2"
    
17.     for /f "delims=" %%b in ("!num!") do if "!str:~%%b!" equ "" (set /a max=num) else set /a min=num
    
18. )
    
19. if "!str:~%num%!" neq "" set /a num+=1
    
20. rem endlocal
    
21. echo 经计算字符串%str%共有%num%个字符
    
22. pause>nul
    
23. 
    
24. :eof
    
25. exit
    
26. pause

复制代码

xxpinqz

1. 
   
2. setlocal enabledelayedexpansion
   

复制代码

不是

1. 
   
2. setlocal ENABLEEXTENSIONS
   

复制代码

apang

这样试：

1. @echo off
   
2. title 获取动态字符串长度
   
3. set /p str1=请键入第一个字符串：
   
4. set /p str2=请键入第二个字符串：
   
5. set "str=srv-%str1%-%str2%"
   
6. set /p "=最终的字符串为：%str%" <nul & echo,
   
7. call:GetStrLen n
   
8. echo 共 %n% 个字符
   
9. pause&goto:eof
   
10. 
    
11. ::获取字符串长度
    
12. :GetStrLen
    
13. setlocal enabledelayedexpansion
    
14. set /a max=8190,min=0
    
15. for /l %%a in (1,1,14) do (
    
16.     set /a "num=(max+min)/2"
    
17.     for /f "delims=" %%b in ("!num!") do (
    
18.         if "!str:~%%b!" equ "" (set /a max=num) else set /a min=num
    
19.     )
    
20. )
    
21. if "!str:~%num%!" neq "" set /a num+=1
    
22. endlocal & set "%1=%num%"

复制代码

lemoncn

回复 3# apang

现在正常了 原来是命令调错了 谢谢大家