shqf

@echo off&setlocal EnableDelayedExpansion
mode con cols=46 lines=18
cls&color 0a
for %%i in (逐字延时输出  逐字向左滚动  逐行显示消失  逐行彩色输出) do (
  cls&echo                   %%i
  for /l %%n in (1 1 3000) do (echo.>nul)
  cls
  for /f "delims=" %%a in (a.txt) do (
    set str=!str!%%a
    if "%%i"=="逐字延时输出" (
        for /l %%b in (0 1 24) do (
        set /p =!str:~%%b,1!<nul
        if not "!str:~%%b,1!"==" " (for /l %%n in (1 1 800) do (echo.>nul))
        )
        echo.
        set str=
    )
    if "%%i"=="逐行显示消失" (
        cls&echo !str!
        for /l %%n in (1 1 3500) do (echo.>nul)
        set str=
    )
    if "%%i"=="逐行彩色输出" (
        call :cssc !str!
        set str=
    )
  )
  if "%%i"=="逐字向左滚动" (
        for /l %%b in (0 1 230) do (
        cls&set sstr=!str:~%%b,23!
        if not "!sstr!"=="" echo !sstr!
        for /l %%n in (1 1 800) do (echo.>nul)
          )
        set str=
  )
)
echo 按任意键结束...&pause>nul
exit 

:cssc
>%1,set/p=<nul
set co=123456789abcdef
set /a co1=%random%%%16
set /a co2=%random%%%16
findstr /a:!co:~%co1%,1!!co:~%co2%,1! .* "%~1*"
set /p= <nul
echo.
del "%~1"
goto :eof
复制代码

（原a.txt文件中“岑夫子”后为半角逗号，要改为全角逗号）。字符显示是快了点吗？已调为800。

[ 本帖最后由 shqf 于 2008-10-18 19:27 编辑 ]