星罗满布升级版 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

大大改善了刷屏效果：


@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

第1楼　bat-zw	发表于 2008-07-16 11:39
金牌会员　发帖 1,276　积分 3,105
星罗满布升级版大大改善了刷屏效果： @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

第2楼　slore	发表于 2008-07-16 11:52
铂金会员　发帖 2,478　积分 5,212
先加分对BAT来说不错了…… 但是对我眼睛来说。。。还是很明显。。。

第3楼　26933062	发表于 2008-07-16 11:55
银牌会员　发帖 879　积分 2,268
用type 来显示，好办法。。。

第4楼　bat-zw	发表于 2008-07-16 11:56
金牌会员　发帖 1,276　积分 3,105
Originally posted by slore at 2008-7-16 11:52: 对BAT来说不错了…… 但是对我眼睛来说。。。还是很明显。。。把2000改为1000就没那么明显