随风

链接一时找不到了，但还记得代码，是技术组的一位成员发的，在只运行一次set的情况下，最高只能判断15位字符。

:

@echo off
set "var=12345678"
set "str=%var%fedcba9876543210"
set /a max=0x%str:~15,1%
echo %var%  有 %max% 位
pause
复制代码

[ 本帖最后由 随风 于 2009-6-2 18:12 编辑 ]

随风

找到了
523066680 在顶楼给出的9位的算法
http://www.bathome.net/viewthrea ... hlight=%D7%D6%B7%FB

15楼 tireless兄将其扩展到了15位
http://www.bathome.net/viewthrea ... =%A1%BE%C1%B7%CF%B0

Batcher

原来是“在只运行一次set的情况下”啊，呵呵，了解了。

zqz0012005

其实不用临时文件的话，效率也不是很低，而且更简洁一些。

@echo off
set "str=例如：Hello, bat! %%<^_^>%%""
setlocal enabledelayedexpansion
set str2=!str:y=-!
set str2=!str2:n=-!
set str2=!str2:a=-!
for /f %%a in ('
    set str2^|xcopy /-y %SystemRoot%\notepad.exe %SystemRoot%\explorer.exe ^| find /i /c "%SystemRoot%\explorer.exe"
') do set /a strlen=%%a-9
echo;!str!&echo/&echo 上面的字符串长度为：!strlen!
pause
复制代码

netbenton

re  13L
是的 a v v 变量字符不能有重复。但是全半角字符都可以，只要不重复任意使用。
此法在计算 子串 在 字符串 中的位置很实用。

re 19L
用到临时文件的话这样最简单(按字节计算的）：
set str=任意字符串。
set /p=!str!<nul>len.temp
for %%a in (len.temp) do (echo !str! 长度为：%%~za)
del/q len.temp

zqz0012005

计算字节数方法较多。我的是计算字符个数。

plp626

为了充分保证效率千万不要使用下面两个命令
call echo.....
call set a=...
万不得已要call set n=数字
一定要call set/a n=数字    //这个效率还是很高的是set/a 一半的效率
我发现call set a=... 的执行效率比call子过程还要低10倍以上！

tireless

原帖由 netbenton 于 2009-6-2 01:31 发表
在批处理程序设计中，取字符长度最高效的方法@echo off&setlocal enabledelayedexpansion
set aav=abcdefghijklmnopqrstuvwxyz不够的话文字也可以ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦ ...

不用把aav倒过来，可以这样：
set str1=12345678
set var1=!aav:~,81!!str1!
set /a var1=len!o:~-81,1!

[ 本帖最后由 tireless 于 2009-6-7 12:29 编辑 ]

cjiabing

我觉得find和findstr是最慢的，好像没都耐心试过这两个查找东东的，发现dir和for比她两还快！~当然for的目录多了它也跑不动，多几个for更是慢。

关于临时文件，有时候你为了看运行结果得用pause和>>，似乎那样代码就没效率了

neorobin

确实是很好的算法, 缺憾是当最大长度很大时, 也会需要很大的变量空间, len后面的标识符可用辅助代码生成无重复的序列

和 23 楼的想法一样, vva 变量是多余的, 我的改法更简明一些, 做个减法就行了

@echo off&setlocal enabledelayedexpansion
set aav=abcdefghijklmnopqrstuvwxyz不够的话文字也可以ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ
set 最大长度=80
for /l %%a in (0,1,%最大长度%) do set /a len!aav:~%%a,1!=最大长度-%%a
::前面初始定义一次，后面可以任意使用，只要两个set 就可以取得字符串长度。
::但前提是，你要知道需计算的字符串中，最长字符串的长度。
::效率可想而知了！

set str1=12345678
set str2=abcdefghijklmn

set var1=!str1!!aav!
set var2=!str2!!aav!
set/a var1=len!var1:~%最大长度%,1!,var2=len!var2:~%最大长度%,1!
echo !str1! 长度为：!var1!
echo !str2! 长度为：!var2!
pause
复制代码

[ 本帖最后由 neorobin 于 2009-12-11 06:14 编辑 ]

523066680

路过，把老东西不被看好的再贴一次，不要BS我，只因为很久没说话了

@echo off
setlocal enabledelayedexpansion
set str=cn-dos.net
set st2=Str%str%11111111111111111111111111111111111111111111111111111111111111111111111111111111
set "st2=%st2:~0,83%"
set n=!st2:Str%str%=-0!
set /a n=80 %n:1=-1%
echo,%n%
pause
::个数可以是0 范围是0~80 的普通字符串。
复制代码

[ 本帖最后由 523066680 于 2009-12-11 08:37 编辑 ]

newswan

回复 26# 523066680


很好的算法，简单明了

yakeyun

回复 1# netbenton


echo. a>>b.txt      1,30毫秒  (不知为什么这一点会多用那么多时间)
之所以这里时间会多很多，是由于加了点后，相当于创建的文件前面要多一个空格符号。如果在for命令里面，数据多了，将是很恐怖的一个事情，会每一行前面加一个空格符号。

fzp070

感谢分享！学习学习

qixiaobin0715

看了大佬们的代码，真是受益匪浅。
自己也提供一个思路，二分法。下面字符长度限定在1024之内，可根据具体情况自行调整。
由于水平有限，效率不在考虑范围之内：

@echo off
setlocal enabledelayedexpansion
set Var=123456789
set a=512 256 128 64 32 16 8 4 2 1
if defined Var (
    set n=1
    for %%i in (%a%) do (
        if not "!Var:~%%i!"=="" (
            set Var=!Var:~%%i!
            set /a n+=%%i
        )
    )
    echo,!n!
) else (
    echo,Var is not defined
)
pause
复制代码