@echo off
echo,i like the bathome,because here is the batch of the world.>x.x
for /f "tokens=*" %%a in ('dir x.x /-c ^|find " 字节" ^|find /v ":"') do (
for /f "tokens=3" %%b in ('echo,%%a') do (
set /a n=%%b-2
call echo %%n%%
del x.x
)
)
pause>nul
复制代码

@echo off
set str=i like the bathome,because here is the batch of the world.
:count
if "%str%"=="" (echo %n%) else (set /a n+=1&set str=%str:~1%&goto count)
pause
复制代码

@echo off
set str=i like the bathome,because here is the batch of the world.
for /f "skip=1 delims=:" %%a in ('^(echo "%str%"^&echo.^)^|findstr /o ".*"') do set /a length=%%a-5
echo %length%
复制代码

@echo off
echo "i like the bathome,because here is the batch of the world.">"%temp%\_strlen.txt"
for %%a in ("%temp%\_strlen.txt") do set length=%%~za
set /a length=length-4
echo %length%
复制代码

@echo off
set "str=i like the bathome,because here is the batch of the world."
set "num=80"
:lp
set "str=%str%0"&set /a num-=1
if "%str:~79,1%" neq "0" goto lp
echo 字符个数为%num%个&pause>nul
复制代码

@echo off
echo i like the bathome,because here is the batch of the world.>1.txt&echo.>>1.txt
for /f "delims=:" %%i in ('findstr /o .* 1.txt') do set "num=%%i"
set /a num-=2&del /q 1.txt
echo 字符个数为%num%个&pause>nul
复制代码

@echo off
set "str=%%a%%!ver!&^^^ ^*~                     are you o                 k ?" : \  / ` `  verfdxcweippo opj x ds gw !%%"
setlocal enabledelayedexpansion
set "num=255"
:lp
set "str=!str! "&set /a num-=1
if "!str:~254,1!" neq " " goto lp
echo 字符个数为%num%个&pause>nul
pause>nul
复制代码

::%%a%%!ver!&^^^ ^*~                     are you o                 k ?" : \  / ` `  verfdxcweippo opj x ds gw !%%
@echo off&setlocal enabledelayedexpansion
set /p str=<%0
for /l %%a in (1,1,255) do (set str=!str:~1!&if "!str!"=="" (set /a totle=%%a-2&echo !totle!&goto end))
:end
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set "str=i like the bathome,because here is the batch of the world. "
call :loop
endlocal
set "str=%%a%%!ver!&^^^ ^*~                     are you o                 k ?" : \  / ` `  verfdxcweippo opj x ds gw !%%"
setlocal enabledelayedexpansion
set "str=!str:%%=%%%%!"
:loop
if defined str set/a n+=1&set "str=!str:~1!"&goto loop
echo %n%
pause>nul
复制代码

@echo off
rem &<>%%a%%!ver!&^^^ ^*~                     are you o                 k ?" : \  / ` `  verfdxcweippo opj x ds gw !%%
for /f "skip=1 delims=" %%i in (%~0) do set "str=%%i"&goto lp
:lp
    setlocal enabledelayedexpansion
    set str=!str!
    for /l %%i in (1,1,255) do if "!str:~%%i,1!"=="" set/a n=%%i-4&echo !n!&pause
复制代码

@echo off
::&<>%%a%%!ver!&^^^ ^*~                     are you o                 k ?" : \  / ` `  verfdxcweippo opj x ds gw !%%
for /f "skip=1 delims=" %%i in ('type %0') do set "str=%%i"&goto lp
:lp
    setlocal enabledelayedexpansion
    for /l %%i in (1,1,255) do if "!str:~%%i!"=="" set/a n=%%i-2&echo !n!&pause&exit
复制代码

@echo off
set str=i like the bathome,because here is the batch of the world.
set length=0
setlocal enabledelayedexpansion
for /l %%a in (0,1,80) do (
  if "!str:~%%a,1!" neq "" (
    set /a length+=1
  ) else (
    goto :show
  )
)
goto :eof
:show
echo !length!
复制代码

@echo off&setlocal enabledelayedexpansion
set/p str=Type :
for /l %%i in (1,1,10000) do if "!str:~%%i,1!"=="" echo %%i&pause&exit
复制代码

: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
复制代码

@echo off&setlocal enabledelayedexpansion
set/p str=Type :
:lp
if defined str (
    set/a n+=1
    set str=!str:~1!
    goto lp
)
echo %n%
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set/p str=Type :
:lp
if not "!str:~%n%,1!"=="" set /a n+=1&goto lp
echo;%n%
pause
复制代码

@echo off
set "a= i like the bathome,because here is the batch of the world."
set /a num=0
:loop
set /a num+=1
set a=%a:~1%
if "%a%"=="" (goto :ne1) else goto :loop
:ne1
echo %num%
pause
复制代码

rem ----------[法四]主程序开始---------------------
echo %var%>a.txt
echo.>>a.txt
for /f "tokens=1 delims=:" %%i in ('findstr /o .* a.txt') do set /a length=%%i-2&if not %%i  
equ 0 echo 共有%length%个字符&goto end
:end
del a.txt
rem ----------[法四]主程序结束---------------------
复制代码

(echo BatHome&echo.)|findstr /o ".*"
pause
复制代码

@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
pause>nul
exit
)
)
复制代码

(echo TestStr&echo.)|findstr /o ".*">a.txt
复制代码

for /f "tokens=*" %%a in ('dir x.x /-c ^|find " 字节" ^|find /v ":"') do (
复制代码

^|find /v ":"
复制代码

@echo off
echo i like the bathome,because here is the batch of the world.>x.x
for /f "tokens=*" %%i in ('dir x.x /-c^|find " 字节"') do (
    for /f "tokens=3" %%j in ('echo %%i') do (
        set /a len=%%j-2&call,echo %%len%%&del x.x /q
))&pause
复制代码

@echo off
set "str=i like the bathome,because here is the batch of the world."
for /l %%i in (0 1 80) do (
    call,set var=%%str:~%%i,1%%
    if not defined var set n=%%i&goto end
)
:end
echo %n%&pause
复制代码

@echo off
echo i like the bathome,because here is the batch of the world.>x.x
for %%a in (x.x) do set/a n=%%~za-2
echo %n%

pause
复制代码

 
@echo off&setlocal enabledelayedexpansion
set "str=i like the bathome,because here is the batch of the world."
for /l %%i in (0 1 80) do (if "!str:~%%i,1!" equ "" set n=%%i&goto end)
set n=0
:end
echo %n%&pause
复制代码

rem 1.1 1.2字符串长度不限，可含特殊字符。
@echo off &setlocal enabledelayedexpansion
set /p str=Please input string:&set a=&set /a var=0
:loop
    set a=!str:~%var%,1!
    set /a err=%errorlevel%
    if !err! equ 0 (set /a var+=1&goto :loop )
    set /a var-=1
echo the length of string is:%var% 
pause>nul
复制代码

@echo off
setlocal enabledelayedexpansion
set /p a=请输入一窜字符串：
set m=0
:xxw
if not "!a:~%m%,1!"==""  set /a m=!m!+1&goto :xxw
echo 有%m%个字符！！！！！！！！
pause&goto :eof
复制代码

@echo off&SetLocal EnableDelayedExpansion
Set str=i like the bathome,because here is the batch of the world.
Set n=0
Set str=%str: =%
Set a=
:loop
Set a=!str:~%n%,1!
if not "%a%"=="" (Set /a n+=1 & goto loop
	) Else (echo !n!)
pause>nul
复制代码

(echo TestStr&echo.)|findstr /o ".*">a.txt
复制代码

(echo TestStr  & echo.)  | findstr /o ".*"
复制代码

rem>nul 3>test.txt
echo TestStr
echo TestStr&echo.
(echo TestStr&echo.)
(echo TestStr&echo.)|findstr /o ".*"
test.txt
复制代码

:%%a%%!ver!&^^^ ^*~                     are you o                 k ?" : \  / ` `  verfdxcweippo opj x ds gw !%%
::将字符串放于第一行，并加上:
@echo off & setlocal EnableDelayedExpansion
set /p str=<%0
:count
set str=!str:~1!
if defined str ( set /a n+=1 & goto :count )
echo %n%
复制代码