ieutk

@echo off&setlocal enabledelayedexpansion
set "str=忆往昔 我笑豺狼哭 叱咤天地风云际 望今朝 笑贫不笑娼 人民不敌人民币"
for %%i in (%str%) do (
	set List=%%i
	call :OneByOne !List!
	echo\&echo\
    )
echo  演示完毕,按任意键退出. . .
pause>nul
goto :eof

:OneByOne
set /p=!List:~0,1! <nul
set /p=<nul
set List=!List:~1!
if not "!List!"=="" (goto :OneByOne)
for /l %%j in (1 1 100) do @set /p=<nul
set /p=  %1<nul
for /l %%j in (1 1 100) do @set /p=<nul
goto :eof
复制代码