联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@echo off setlocal enabledelayedexpansion ::::::::To Simulate Text Scrolling {s11ss 2007-9-27}:::::::: :c cls set/a i=5 :ci set/a j=!i! call :cj type %1 for /l %%a in (1,1,3000) do (echo Waiting... >nul) cls set/a i-=1 if !i! geq 0 goto :ci set/a k=1 set/a n=1 for /f "delims=" %%a in (%1) do (set/a n+=1) :ck cls cd.>t.tmp for /f "delims= skip=%k%" %%a in ('findstr /n .* %1') do ( set "var=%%a" set var=!var:*:=! >>t.tmp (echo.!var!) ) type t.tmp for /l %%a in (1,1,2000) do (echo Waiting... >nul) set/a k+=1 if !k! leq !n! goto :ck del t.tmp for /l %%a in (1,1,3) do (echo.) set/p q=Try again?(y/n) if not "%q%" equ "y" (if not "%q%" equ "Y" goto :eof) goto :c :cj if !j! geq 1 ( echo. set/a j-=1 ) if !j! geq 1 goto :cj goto :Eof
Originally posted by 175891641 at 2007-9-28 01:28 PM: 可以控制速度吗/