batman

不知楼上是不理解怎么延时还是不理解整个代码，如果要对整个代码都进行说明，不是要把整
个相关的dos命令都详细说明一下，所以请大家以后发问时最好能截取要说明的部分，不然是没
人会有来回答这样的问题的。

batman

我来一个，顺便解释下：

@echo off
set "str=我不想让你哭，也不想认输，只想用我的爱再次把你留住。"
:lp
set /p=%str:~,1%<nul&set "str=%str:~1%"
for /l %%i in (1,1,500) do echo>nul
if defined str goto lp
pause>nul
复制代码

代码就是利用的set /p=<nul同行追加输出功能，通过对字符串str的逐字截取并追加输出，同时
使用for循环来实现对字符的延时显示效果。大家注意了这个echo>nul实是一个无效命令，反
正不管你采用什么方法只要能让命令无效同时将信息屏蔽掉，同时用for实现n次无效就能达到延
时的目的了。

batman

运行以下代码吧：

@echo off
rem str值可自行修改
set "str=123456789"
set "a=%str%"
:lp
set /a n+=1
echo 原始的str为："123456789",经第%n%次循环并延时后
set "var=%var%%str:~,1%"
set /p=截取的字符为："%str:~,1%"，<nul&set "str=%str:~1%"
set /p=str为："%str%"，<nul
set /p=输出的字符串为："%var%"。<nul
for /l %%i in (1,1,2000) do echo>nul
if defined str cls&goto lp
pause>nul
复制代码

[ 本帖最后由 batman 于 2008-9-24 11:26 编辑 ]

batman

@echo off&color 1f&mode con lines=4
for /l %%i in (1,1,40) do call,set "kong=%%kong%%　"
:begin
set "str=%kong%亲爱的，我不想让你哭，也不想认输，只想用我的爱再次把你留住。"
:lp
echo.&echo.%str:~,40%&set "str=%str:~1%"
for /l %%i in (1,1,1000) do echo>nul
if defined str cls&goto lp
goto begin
复制代码