标题: 用小代码演示逐字阅读原理： [打印本页]
作者: bat-zw 时间: 2008-5-8 23:12 标题: 用小代码演示逐字阅读原理：
如输入中含有数字请多按一次回车（郁闷中。。。）
@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
: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
作者: moniuming 时间: 2008-5-9 10:55
这样就没有问题了,LZ字符截取的方法好奇怪,让人看不懂
@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
)
: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
)