defanive

作为一个随时调用的函数，你不可能修改批处理，这样实在无爱。。。

还是要作为传值参数一样，call的时候给值，然后标签里%1使用。。。

另外，我那个函数应该是可以的，你再看看：

@echo off
setlocal enabledelayedexpansion
:loop
set /p a=Type :
call :StrLen "vl" "%a%"
echo Length : %vl%
pause>nul
goto loop
:StrLen
setlocal enableextensions
set "str=a%~2"
set "str=%str:"=s%"
set "str=%str:^^=s%"
set "str=!str:%%=s!"
set /a strlength=0
:StrLen_1
set /a strlength+=1
if not "!str:~%strlength%,1!"=="" goto StrLen_1
endlocal&set /a "%~1=%strlength%-1"
goto :EOF

defanive

我的代码测试成功灭？

没什么要拓展的就入库了？

defanive

:StrLen
setlocal enableextensions
set "str=a%~2"
set "str=%str:"=s%"
set "str=%str:^^=s%"
set "str=!str:%%=s!"
set /a strlength=0
:StrLen_1
set /a strlength+=1
if not "!str:~%strlength%,1!"=="" goto StrLen_1
endlocal&set /a "%~1=%strlength%-1"
goto :EOF
复制代码

如果作为库函数的话，我觉得LS的代码不行，因为你不知道变量可能的长度，就把for设定在10000了，缺乏通用性

如果要完全通用的话，就要把10000改成2^31-1，就是2147483647

改完之后，执行时间就增长了。。。

defanive

:StrLen
setlocal enableextensions
set "str=%~2"
:StrLen_1
if defined str (
        set/a n+=1
        set "str=%str:~1%"
        goto StrLen_1
)
endlocal&set "%~1=%n%"
goto :EOF

函数整理成这样了，同意么？