[分享]批处理分段法计算字符串长度

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
set /p a=请输入要计算长度的字符串:
for /l %%a in (1,1,100000) do (
set k=!a:~%%a,1!
if not defined k (
echo 字符串长度:%%a
pause>nul
exit
)
)
复制代码

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
set /p a=请输入要计算长度的字符串:
for /l %%a in (1,1,1000000) do (
   set k=!a:~%%a,1!
   if not defined k (
   echo 字符串长度:%%a
   goto loop
))
:loop
echo 这里还需要对字符串进行处理。
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set str=
:rep


set/a end=8189,add=end
:lp
if %add%==1 goto :ok
set /a ben=end-add,add=^(end-ben+20^)/21
for /l %%a in (%ben%,%add%,%end%) do (if "!str:~%%a,1!"=="" set end=%%a&goto :lp)
set end=0
:ok
echo %end%



set str=!str!a
pause
goto :rep
复制代码

 
if not defined str set num=0&goto :ok
for /l %%a in (0,1,8189) do (if "!str:~%%a,1!"=="" set num=%%a&goto :ok)
:ok
复制代码

:::::::::::::::::::::::::::::::::::::::::
:getstrlen  分段法取字符串长度
::  用法用途：
::  把代码放到批处理中作为函数使用
::  取指定字答串的长度
::  调用方法：
::  call :getstrlen 字符串变量名 结果变量名
::::::::::::::::::::::::::::::::::::::::::

setlocal enabledelayedexpansion
set "str=!%1!"
:rep
set/a end=8190,add=end
:lp
if %add%==1 goto :ok
set /a ben=end-add,add=^(end-ben+20^)/21
for /l %%a in (%ben%,%add%,%end%) do (if "!str:~%%a,1!"=="" set end=%%a&goto :lp)
set end=0
:ok
endlocal&set %2=%end%&goto :eof
复制代码

 
@echo off&setlocal enabledelayedexpansion
set str=
:rep
 
::变量ds用来指定分段数,可随意指定（2到8190）都可以。
set/a ds=4,ds1=ds-1
 
if not defined str set end=-1&goto :ok
set/a end=0,add=8190
for /l %%a in (0,1,14) do (
 if !add!==1 goto :ok
 set /a end+=add,ben=end-add,add=^(end-ben+ds1^)/ds
 for /l %%b in (!ben!,!add!,!end!) do (if not "!str:~%%b,1!"=="" set end=%%b)
)
:ok
set /a end+=1
echo !end! !str!
 
set str=!str!a
pause
goto :rep
复制代码

set /a ben=end-add,add=^(end-ben^)/30+1
for /l %%a in (%ben%,%add%,%end%) do (if "!str:~%%a,1!"=="" set end=%%a&goto :lp)
复制代码