@echo off setlocal EnableDelayedExpansion
:: 計(jì)算字符串的長(zhǎng)度
::
::
:began
set mystr=
set /p mystr=輸入要計(jì)算長(zhǎng)度的字符串(直接回車(chē)退出):
if not defined mystr goto :eof
for /l %%i in (0,1,1000) do if "!mystr:~%%i,1!"=="" set strlen=%%i goto :_endfor
:_endfor
::echo 字符串: "%mystr%"
echo 長(zhǎng) 度: %strlen%
set strlen=
goto began
該方案的缺陷是：當(dāng)字符串長(zhǎng)度超過(guò)1000的時(shí)候，將不能探測(cè)到；不過(guò)變量能接收的長(zhǎng)度好象還不能超過(guò)1000
另外一種方案：
@echo off
:: Based on willsort's codes code by JM 2006-10-9 CMD@XP
:: 出處：http://www.cn-dos.net/forum/viewthread.php?tid=19819
set mystr=
set /p mystr=輸入要計(jì)算長(zhǎng)度的字符串(直接回車(chē)退出):
if not defined mystr goto :eof
set count=0
setlocal enabledelayedexpansion
:intercept
set /a count+=1
for /f %%i in ("%count%") do if not "!mystr:~%%i,1!"=="" goto intercept
echo 長(zhǎng) 度: %count%
pause
goto :eof
@echo off
::
::
:began
set /p mystr=輸入要計(jì)算長(zhǎng)度的字符串:
echo %mystr:~0,1% | findstr /i "q" 1>nul 2>nul exit rem 輸入q退出
call :bflen "%mystr%" rem 這兩句調(diào)用bflen，返回長(zhǎng)度到變量ret中。
echo 字符串: "%mystr%"
echo 長(zhǎng) 度: %ret%
goto began
:bflen rem 真麻煩，初始化要單獨(dú)拿出來(lái)。
set num=
set str=
set ret=
set str=%1
:len rem 計(jì)算字符串長(zhǎng)度
set str=%str:~0,-1%
set /a num = %num% + 1
if defined str goto len
set /a ret = %num% - 2
set num=
goto :eof