踏沙行

回复 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!"

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

我的代码如下：

@echo off
set "var=1234567890abcdefghijklmnopqrstuv12345678901234567890abcdefghijklmnopqrstuv12345678901234567890abcdefghijklmnopqrstuv12345678901" 
call :Len var,n
echo 长度为%n%
pause&exit
 
:Len
Setlocal enabledelayedexpansion
set "s=!%1!"
for %%a in (512 256 128 64 32 16) do (
	set/a "m1=%%a-1" &call set "b1=%%s:~!m1!,1%%"	
	if "!b1!" neq "" (
		set/a "len+=%%a" &set "s=!s:~%%a!"
		if "!s!"=="" goto ok )
)
 
set "s=!s!fedcba9876543210" &set/a "len+=0x!s:~15,1!"
:ok
endlocal&set/a "%2=%len%"&goto:eof
pauseCOPY

踏沙行

回复 22# Batcher

@echo off
set a="1234567890abcdef"
call :Len a n
echo 长度为%n%
pause&exit
 
:Len
setlocal enabledelayedexpansion
set "$=!%1!#"
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!
endlocal&If %2. neq . (set/a%2=%len%)else echo %len%COPY

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

踏沙行

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

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

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

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

踏沙行

回复 26# Batcher

@echo off
set "a=1234567890abcdef1234567890abcdef1234567890abcdef1234567890abcdef"
call :Ten a n
echo 长度为%n%
pause&exit
 
:Ten
setlocal enabledelayedexpansion
set "$=!%1!#"
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)
set "s=!s!fedcba9876543210" &set/a "len+=0x!s:~16,1!"
:ok
endlocal&set/a "%2=%len%"&goto:eof
pauseCOPY

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