中国DOS联盟

@echo off

:begin

cls&set /p str=请输入不含^&^<^>^|的字符串:

if "%str%"=="" goto begin

cls&echo 逐字显示开始...&ping /n 2 127.1>nul

cls&echo.

:lp

set /a n+=1

call,set var="%%str:~,%n%%%"

set /p=%var:~1,-1%<nul&ping /n 127.1>nul

for /l %%i in (1,1,100) do set /p=<nul

if not "%var:~1,-1%"=="%str%" goto lp

cls&set n=0&pause&goto begin

@echo off

:begin

set n=0

set /p str=请输入不含^&^<^>^|的字符串:

if "%str%"=="" goto begin

echo.&echo 逐字显示开始...&ping /n 2 127.1>nul

cls&echo.

:lp

set /a n+=1

call,set var="%%str:~0,%n%%%"

set /p=%var%<nul&ping /n 127.1>nul

for /l %%i in (1,1,100) do set /p=<nul

if not %var%=="%str%" (

  goto lp

  ) else (

    pause&cls&goto begin

)