探讨批处理代码效率

aloha20200628

看这个十年前的老帖 http://www.bathome.net/thread-11799-1-1.html 可见当年批处理计算字符串长度的"技法峰值"
在此分享源网站 https://www.dostips.com 的这段经典代码(见以下代码段)，其内还有两枚技术硬核》
一。句式 set "str=a!%~1!" 提高形参 %1 的容错率，一网打尽键盘所有可见字符
二。句式 (endlocal ... set /a %~2=%len%) 令局部变量亡前可续命给全局变量

附加几行代码》针对经典代码的测试/用法

1. @echo off
   
2. :[Loop] //测试代码 备注》调用子过程的形参须是变量名
   
3. set "str=" &set/p str="输入一个字符串获取其长度："
   
4. if not defined str exit/b
   
5. (call :strLen str sL)
   
6. echo,长度=%sL%
   
7. goto[Loop]
   
8. 
   
9. :: 分享计算字符串长度的经典代码如下》
   
10. ::      string [in]  - variable name containing the string being measured for length
    
11. ::      len [out] - variable to be used to return the string length
    
12. :: Many thanks to 'sowgtsoi', but also 'jeb' and 'amel27' dostips forum users helped making this short and efficient
    
13. :: Created 20081122，changed 20101116，source https://www.dostips.com
    
14. :strLen string len -- returns the length of a string
    
15. (   setlocal enabledelayedexpansion
    
16.     set "str=a!%~1!" &rem keep the a up front to ensure we get the length and not the upper bound，it also avoids trouble in case of empty string
    
17.     set "len=0"
    
18.     for /l %%a in (12,-1,0) do (
    
19.         set /a "len|=1<<%%a"
    
20.         for %%b in (!len!) do if "!str:~%%b,1!"=="" set /a "len&=~1<<%%a"
    
21.     )
    
22. )
    
23. ( endlocal & rem return values
    
24.     if "%~2" neq "" set /a %~2=%len%
    
25. )
    
26. exit /b

复制代码

qixiaobin0715

回复 31# aloha20200628
谢谢提供链接，内容确实精彩！！！

ANSL

回复 31# aloha20200628
谢谢，正想找这种代码呢!

dos-a

回复 31# aloha20200628
大佬，最近我又看到了Batcher大佬的多行回退，但是并未在win10中实现，不知为什么，

gudou

多年后的膜拜……