tireless

@echo off
:bgn
set /p str=字符串: 
for /f "skip=1 delims=:" %%a in ('^(echo.%str%^&echo.^)^|findstr /o .') do (
  set /a Bytes=%%a-3
)
echo 字节数: %Bytes%
echo. & goto bgn
复制代码

tireless

@echo off
:bgn
set /p input=字符串: 
call set/p="%%input%%"<nul>%temp%\a.txt
for %%a in (%temp%\a.txt) do echo 字节数: %%~za
echo. & goto bgn
复制代码

后发现有些特殊字符不能处理，如 "<，可修改成：

@echo off&setlocal enabledelayedexpansion
:bgn
set /p input=字符串: 
set/p="!input!"<nul>%temp%\a.txt
for %%a in (%temp%\a.txt) do echo 字节数: %%~za
echo. & goto bgn
复制代码

[ 本帖最后由 tireless 于 2009-1-16 15:12 编辑 ]