中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 程序写入动画模拟：

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『楼主』: 程序写入动画模拟：

@echo off&mode con cols=42 lines=10

title 程序写入中...

set tu=■

set code=123456789abcdef

:begin

set /a num=%random%%%2

call,set str=%str%%num%

set /a n+=1

if %n% lss 40 goto begin

set /a num1=%random%%%15

call,set a=%%code:~%num1%,1%%

set /p= <nul>%str%&findstr /a:%a% .* %str%* 2>nul

set /a m+=1&call :lp

title %x%

set x=

if %m% equ 18 set m=0

echo.

del /q %str%

set str=&set n=0&goto begin

:lp

for /l %%i in (1,1,%m%) do call,set x=%%x%%%tu%