求字符串长度，简短高效的批处理代码（多种算法）

xxpinqz

0是用来防空的。。。。

CrLf

回复 16# xxpinqz


    他应该是回复14楼的...

wankoilz

对的，不好意思，手机太老了

wangx

太棒了，非常受用，收藏了。

踏沙行

回复 1# plp626

楼主的算法确实精简高效，把数学计算用到了极致。但这两天在学习时发现，该代码存在以下问题：
1、使用for /l (128 64 32...)时，判断某数为空后折半，需要把括号中的数减一后再判断，就如
if "!a:~127,1!" neq ""  set /a "len+=%%a"，而不是if "!a:~%%a,1!" neq ""  set /a "len+=%%a"。用这种算法，固然可以在全部计算后最终加1得到正确长度，但是毕竟原代码结果不正确。

2、第9句的set/a "len+=0x!s:~16,1!"，应该是set/a "len+=0x!s:~15,1!"

说的不对的地方，请斧正。

我的代码如下：

1. @echo off
   
2. set "var=1234567890abcdefghijklmnopqrstuv12345678901234567890abcdefghijklmnopqrstuv12345678901234567890abcdefghijklmnopqrstuv12345678901"
   
3. call :Len var,n
   
4. echo 长度为%n%
   
5. pause&exit
   
6. 
   
7. :Len
   
8. Setlocal enabledelayedexpansion
   
9. set "s=!%1!"
   
10. for %%a in (512 256 128 64 32 16) do (
    
11.         set/a "m1=%%a-1" &call set "b1=%%s:~!m1!,1%%"       
    
12.         if "!b1!" neq "" (
    
13.                 set/a "len+=%%a" &set "s=!s:~%%a!"
    
14.                 if "!s!"=="" goto ok )
    
15. )
    
16. 
    
17. set "s=!s!fedcba9876543210" &set/a "len+=0x!s:~15,1!"
    
18. :ok
    
19. endlocal&set/a "%2=%len%"&goto:eof
    
20. pause

复制代码

zaqmlp

回复 20# 踏沙行

set "$=!%1!#"
这不是没有意义的

Batcher

回复 20# 踏沙行


    能否举例说明一下原代码哪个结果不正确？

踏沙行

回复 22# Batcher

1. @echo off
   
2. set a="1234567890abcdef"
   
3. call :Len a n
   
4. echo 长度为%n%
   
5. pause&exit
   
6. 
   
7. :Len
   
8. setlocal enabledelayedexpansion
   
9. set "$=!%1!#"
   
10. set len=&for %%a in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1)do if !$:~%%a^,1!. NEQ . set/a len+=%%a&set $=!$:~%%a!
    
11. endlocal&If %2. neq . (set/a%2=%len%)else echo %len%

复制代码

执行结果：长度为18
实际上应该是16

Batcher

回复 23# 踏沙行


楼主代码没问题，是你的理解不太准确。

set a="1234567890abcdef"
这种写法，set命令会认为变量a的值是包含双引号的，18位是正确的

set "a=1234567890abcdef"
这种写法，set命令会认为变量a的值是不包含双引号的，16位是正确的

踏沙行

回复 24# Batcher
谢谢，是我写的有问题。
修正后再测试，代码如下：

1. @echo off
   
2. set "a=1234567890abcdef1234567890abcdef1234567890abcdef1234567890abcdef"
   
3. rem a的长度为64
   
4. call :Ten a n
   
5. echo 长度为%n%
   
6. pause&exit
   
7. 
   
8. :Ten
   
9. setlocal enabledelayedexpansion
   
10. set "$=!%1!#"
    
11. set "len="
    
12. for %%a in (64 32 16 8 4 2 1) do (
    
13. if !$:~%%a^,1!. NEQ . set/a len+=%%a&set $=!$:~%%a!
    
14. set/a "T=T+1"&echo.第!T!次判断
    
15. )
    
16. endlocal&If %2. neq . (set/a%2=%len%)else echo %len%

复制代码

运行结果为：
第1次判断
第2次判断
第3次判断
第4次判断
第5次判断
第6次判断
第7次判断
长度为64
请按任意键继续. . .

【问题】本来字符长度为64，可以一次判断出结果。但是因为使用了set "$=!%1!#"，让计算次数增加了6次
而且，对于if !$:~%%a^,1!. NEQ .这样的判断，如果字符串中存在有.(点号)，也会影响正常判断吧

Batcher

回复 25# 踏沙行

让计算次数增加了6次

你有更加优化的代码吗？发出来大家一起讨论一下吧

如果字符串中存在有.(点号)，也会影响正常判断吧

把你的测试用例和测试结果发出来看看

踏沙行

回复 26# Batcher

1. @echo off
   
2. set "a=1234567890abcdef1234567890abcdef1234567890abcdef1234567890abcdef"
   
3. call :Ten a n
   
4. echo 长度为%n%
   
5. pause&exit
   
6. 
   
7. :Ten
   
8. setlocal enabledelayedexpansion
   
9. set "$=!%1!#"
   
10. set "len="&for %%a in (4096 2048 1024 256 128 64 32 16 8 4 2 1) do (if "!$:~%%a,1!" NEQ "" set/a len+=%%a&set "$=!$:~%%a!" &if "!$:~1!"=="" goto ok)
    
11. set "s=!s!fedcba9876543210" &set/a "len+=0x!s:~16,1!"
    
12. :ok
    
13. endlocal&set/a "%2=%len%"&goto:eof
    
14. pause

复制代码

增加 if "!$:~1!"=="" goto ok，可以在刚好够2分时，及时跳出循环。

nwm310

查表法

1. 
   
2. ::0 ~ 255字
   
3. setlocal enableDelayedExpansion
   
4. 
   
5. set "s=your string"
   
6. 
   
7. set a=□0□1□2□3□4□5□6□7□8□9□A□B□C□D□E□F
   
8. set "$=!%a:□=!!a:□=%!!s!!s!"
   
9. 
   
10. 
    
11. set /a len=0x!$:~-512,2!
    
12. echo %len%
    
13. 
    

复制代码

1. 
   
2. :: 0 ~ 1279字   (8191 /6 = 1365)
   
3. setlocal enableDelayedExpansion
   
4. 
   
5. set "s=your string"
   
6. 
   
7. set a=□0□1□2□3□4□5□6□7□8□9□A□B□C□D□E□F
   
8. set d=!%a:□=!!a:□=□%!
   
9. 
   
10. 
    
11. set b=□0□1□2□3□4
    
12. set "$=!%b:□=!!d:□=%!!s!!s!!s!"
    
13. 
    
14. 
    
15. :: (0x4FF + 1 ) *3 = 1280 * 3 = 3840
    
16. set /a len=0x!$:~-3840,3!
    
17. echo %len%
    
18. 
    

复制代码

CrLf

回复 28# nwm310


    挺好的思路
    把变量拆分成7份分别查询，就可以查8191字符长度内的所有变量了

cfwyy77_bat

精典老贴! 再学习学习。