中国DOS联盟

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

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

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-05 22:23

欢迎新会员 hello8888666　 RSS
共 48,039 主题排行 / 350,124 发帖 / 今日 2 篇 / 48,251 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

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

楼主 [原创]********模拟文本滚动******** 发表于 2007-09-27 22:29　·　中国北京电信

s11ss

银牌会员

★★★

积分 2,098
发帖 566
注册 2007-09-11 07:27
18年会员
UID 97070
性别男

状态离线

@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