中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]********模拟文本滚动********

s11ss
银牌会员

积分 2098
发帖 566
注册 2007-9-11
状态离线

『楼主』: [原创]********模拟文本滚动********

@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