批处理系列7：计算字符串长度

青青草

1. :Length
   
2. setlocal enabledelayedexpansion
   
3. set "$=!%1!#"
   
4. 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)
   
5. set "s=!s!fedcba9876543210" &set/a "len+=0x!s:~16,1!"
   
6. :ok
   
7. endlocal&set/a "%2=%len%"&goto:eof
   
8. pause

复制代码

调用

1. call :Length %1 %2
   
2. rem 第一个参数为字符串，第二个参数为字符串长度。

复制代码

青青草

dx163 发表于 2021-7-18 20:36
不会用也不会玩

多学习，慢慢就会了。

青青草

dos时代菜鸟 发表于 2021-7-19 08:42
华罗庚二分法。

青青草

chenfine 发表于 2021-7-18 16:27
ok

青青草

dkzzlf 发表于 2021-7-19 10:46
感谢分享

青青草

nttwqz 发表于 2021-7-19 15:46
不妨研究下汉字、标点、全角字符等长度为2才能和英文对齐的计算方法。

你的意思是？

青青草

nttwqz 发表于 2021-7-19 21:48
比如下面两行，按一般长度计算方法，长度均为6
你的意思是？
abcde?

中英文混编，批处理很难搞。

青青草

dkzzlf 发表于 2021-7-19 10:46
感谢分享

青青草

nianyueriPE 发表于 2021-7-24 15:22
感谢分享