中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-09 03:01
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 星罗满布升级版 查看 783 回复 3
楼 主 星罗满布升级版 发表于 2008-07-16 11:39 ·  中国 湖南 株洲 电信
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
18年会员
UID 112398
性别 男
状态 离线

大大改善了刷屏效果:

@echo off&color 1f&setlocal enabledelayedexpansion
set "code= abcdefghij "&set "s=┃"
set "codes=☆⊙★◎◇◆□■△▲"
:begin
echo.>temp.txt
set /a a=%random%%%10+1,b=%random%%%10+1,c=%random%%%10
set "b=!code:~%b%,1!"&set "tu=!codes:~%c%,1!"
if not defined _%a%%b% (set "_%a%%b%=%tu%") else (goto begin)
echo ┏━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┓>>temp.txt
for /l %%a in (1,1,10) do (
for /l %%i in (1,1,10) do (
set "str=!code:~%%i,1!"
if defined _%%a!str! (call :lp %%a) else (set /p=%s% <nul>>temp.txt)
)
set /p=%s% %%a<nul>>temp.txt&echo.>>temp.txt
if %%a neq 10 (
echo ┣━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━┫>>temp.txt
) else (
echo ┗━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┛>>temp.txt
))
for /l %%i in (1,1,10) do set /p= !code:~%%i,1! <nul>>temp.txt
echo %a%%b%>>temp.txt&set /a n+=1
cls&type temp.txt
if %n% lss 100 (for /l %%i in (1,1,2000) do echo>nul&goto begin) else (del /q temp.txt&pause>nul&goto :eof)
:lp
set "var=!_%1%str%!"
set /p=%s% %var% <nul>>temp.txt

本帖最近评分记录 (共 4 条) 点击查看详情
评分人分数时间
slore +6 2008-07-16 11:51
26933062 +5 2008-07-16 11:55
pusofalse +5 2008-07-16 14:11
yishanju +2 2008-07-17 12:58
批处理之家新域名:www.bathome.net
2 先加分 发表于 2008-07-16 11:52 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
对BAT来说不错了……

但是对我眼睛来说。。。还是很明显。。。
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
3 发表于 2008-07-16 11:55 ·  中国 湖南 娄底 电信
银牌会员
★★★
积分 2,268
发帖 879
注册 2006-12-19 16:23
19年会员
UID 73968
性别 男
状态 离线
用type 来显示,好办法。。。
致精致简!
4 发表于 2008-07-16 11:56 ·  中国 湖南 株洲 电信
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
18年会员
UID 112398
性别 男
状态 离线
Originally posted by slore at 2008-7-16 11:52:
对BAT来说不错了……

但是对我眼睛来说。。。还是很明显。。。

把2000改为1000就没那么明显
批处理之家新域名:www.bathome.net
论坛跳转: