论坛色彩渐变代码生成器.bat - 中国DOS联盟论坛

@echo off
setlocal EnableDelayedExpansion
set Num=1
for /l %%i in (1,1,6) do (
if !Num! LEQ 16 for %%n in (0 1 2 3 4 5 6 7 8 9 a b c d e f) do set color!Num!=ff%%n%%n00&set /a Num+=1
if !Num! GTR 16 if !Num! LEQ 31 for %%n in (e d c b a 9 8 7 6 5 4 3 2 1 0) do set color!Num!=%%n%%n!color16:~-4!&set /a Num+=1
if !Num! GTR 31 if !Num! LEQ 46 for %%n in (1 2 3 4 5 6 7 8 9 a b c d e f) do set color!Num!=!color31:~0,4!%%n%%n&set /a Num+=1
if !Num! GTR 46 if !Num! LEQ 61 for %%n in (e d c b a 9 8 7 6 5 4 3 2 1 0) do set color!Num!=!color46:~0,2!%%n%%n!color46:~-2!&set /a Num+=1
if !Num! GTR 61 if !Num! LEQ 76 for %%n in (1 2 3 4 5 6 7 8 9 a b c d e f) do set color!Num!=%%n%%n!color61:~-4!&set /a Num+=1
if !Num! GTR 76 if !Num! LEQ 90 for %%n in (e d c b a 9 8 7 6 5 4 3 2 1) do set color!Num!=!color76:~0,4!%%n%%n&set /a Num+=1
)

:Main
cls
echo.
set Num=
set input=
set /p Num= 输入开始颜色(红绿蓝):
for %%n in (R G B) do if /i "%Num%" == "%%n" goto input
goto Main
:input
set /p input= 输入文字:
if not defined input exit
if /i "%Num%" == "R" set Num=0
if /i "%Num%" == "G" set Num=30
if /i "%Num%" == "B" set Num=60

cd.>test.txt
:loop
set /a Num+=1
>>test.txt set /p=%input:~0,1%<nul
set "input=%input:~1%"
if %num% GEQ 90 set Num=
if not "%input%" == "" goto loop
start test.txt
goto Main
exit

第31楼　HUNRYBECKY	发表于 2007-03-14 21:22
银牌会员　发帖 442　积分 1,179
VKILL 真牛，实验下效果..................^_^...............

第32楼　vkill	发表于 2007-03-16 01:39
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
zh159 兄的很不错

第33楼　wxzsky	发表于 2007-03-16 06:33
新手上路　发帖 4　积分 10
看看是什么啊!~

第34楼　qasa	发表于 2007-04-04 11:29
高级用户　发帖 311　积分 959　来自广东-LianJiang
不错不错，这么好的贴子顶上来让大家学习下！！！不错不错，这么好的贴子顶上来让大家学习下！！！ [ Last edited by qasa on 2007-4-3 at 10:41 PM ]

第35楼　hkymadmin	发表于 2007-04-04 14:17
初级用户　发帖 19　积分 44
挺有意思啊，收下这个了，大家一起来顶

第36楼　baomaboy	发表于 2007-04-04 14:23
银牌会员　发帖 554　积分 1,513
我也玩一把试试看……呵呵——_ 我也玩一把试试看……呵呵——^_^ [ Last edited by baomaboy on 2007-4-4 at 02:25 PM ]

第37楼　lcy360	发表于 2007-04-08 09:30
新手上路　发帖 2　积分 4
@echo off setlocal EnableDelayedExpansion set Num=1 for /l %%i in (1,1,6) do ( if !Num! LEQ 16 for %%n in (0 1 2 3 4 5 6 7 8 9 a b c d e f) do set color!Num!=ff%%n%%n00&set /a Num+=1 if !Num! GTR 16 if !Num! LEQ 31 for %%n in (e d c b a 9 8 7 6 5 4 3 2 1 0) do set color!Num!=%%n%%n!color16:~-4!&set /a Num+=1 if !Num! GTR 31 if !Num! LEQ 46 for %%n in (1 2 3 4 5 6 7 8 9 a b c d e f) do set color!Num!=!color31:~0,4!%%n%%n&set /a Num+=1 if !Num! GTR 46 if !Num! LEQ 61 for %%n in (e d c b a 9 8 7 6 5 4 3 2 1 0) do set color!Num!=!color46:~0,2!%%n%%n!color46:~-2!&set /a Num+=1 if !Num! GTR 61 if !Num! LEQ 76 for %%n in (1 2 3 4 5 6 7 8 9 a b c d e f) do set color!Num!=%%n%%n!color61:~-4!&set /a Num+=1 if !Num! GTR 76 if !Num! LEQ 90 for %%n in (e d c b a 9 8 7 6 5 4 3 2 1) do set color!Num!=!color76:~0,4!%%n%%n&set /a Num+=1 ) :Main cls echo. set Num= set input= set /p Num= 输入开始颜色(红绿蓝): for %%n in (R G B) do if /i "%Num%" == "%%n" goto input goto Main :input set /p input= 输入文字: if not defined input exit if /i "%Num%" == "R" set Num=0 if /i "%Num%" == "G" set Num=30 if /i "%Num%" == "B" set Num=60 cd.>test.txt :loop set /a Num+=1 >>test.txt set /p=%input:~0,1%<nul set "input=%input:~1%" if %num% GEQ 90 set Num= if not "%input%" == "" goto loop start test.txt goto Main exit

第38楼　zh159	发表于 2007-04-08 09:36
金牌会员　发帖 1,467　积分 3,687
LS的干啥？

第39楼　flamey	发表于 2007-04-09 05:51
初级用户　发帖 74　积分 152
bbs.cn-dos.net 爱你~

第40楼　flamey	发表于 2007-04-09 05:52
初级用户　发帖 74　积分 152
5456ga4ds56fg4asd564fg56asd4gf

第41楼　flamey	发表于 2007-04-09 05:54
初级用户　发帖 74　积分 152
56dag4564sg564asd6g

第42楼　vkill	发表于 2007-04-09 07:45
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
Originally posted by flamey at 2007-4-9 05:54: 56dag456 貌似兄的sed有问题

第43楼　LONGWJR	发表于 2007-04-12 20:36
新手上路　发帖 5　积分 12
123345

第44楼　djq103	发表于 2007-04-25 06:08
新手上路　发帖 3　积分 8
我爱你啊

第45楼　flandy	发表于 2007-04-30 06:14
初级用户　发帖 40　积分 94
试验下。哈哈