********模拟文本滚动******** - 中国DOS联盟论坛

@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

第1楼　s11ss	发表于 2007-09-27 22:29
银牌会员　发帖 566　积分 2,098
[原创]******模拟文本滚动****** @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

第2楼　175891641	发表于 2007-09-28 13:28
初级用户　发帖 30　积分 82
可以控制速度吗/

第3楼　s11ss	发表于 2007-09-28 14:17
银牌会员　发帖 566　积分 2,098
Originally posted by 175891641 at 2007-9-28 01:28 PM: 可以控制速度吗/ 可以把这两句中的3000或2000改成其它数字来达到控制速度的目的. for /l %%a in (1,1,3000) do (echo Waiting... >nul) for /l %%a in (1,1,2000) do (echo Waiting... >nul)

第4楼　chishingchan	发表于 2007-09-29 02:18
银牌会员　发帖 538　积分 1,284
可惜太闪动了。