中国DOS联盟

@echo off

title 论坛色彩渐变代码生成器   V-1.2   by-vkill



::默认config:::::::::::::::::::::::::::::::::::::::::

::说明%txt%为临时文件,你可以随便自定义

set "起始色=FF0000"

set "结束色=0000FF"

set "显示文字=test color"

set "txt=ubb.txt"

:::::::::::::::::::::::::::::::::::::::::::::::::::::



::依赖文件完整性检查

sed.exe >nul 2>nul

if "%ERRORLEVEL%"=="9009" (

   echo 缺少程序依赖文件sed.exe

   echo 请到http://www.yx127.com/tools.html页面下载再运行此程序

   pause>nul

   goto :eof

                          )



:::::::::::::::::::::::::::::::::::::::::::::::::::::

:start

cls

endlocal

setlocal ENABLEDELAYEDEXPANSION

echo.

echo 直接回车表示默认,输入格式请遵照默认的例子

echo.

set "str=起始色;结束色;显示文字"

for %%? in (%str%) do (set/p=<nul)

echo.

echo.

for %%? in (%str%) do (set/p=%%?=<nul&set/p "%%?= ")

if "%起始色%*"=="%结束色%*" (echo 貌似没有变色哦&pause>nul&goto start)

echo.

echo 开始转换,稍等...

:::::::::::::::::::::::::::::::::::::::::::



set "显示文字= !显示文字!"



::计算%显示文字%的位数

for /f %%? in ('echo "%显示文字%"^|sed "s/^\x22//;s/\x22$//;s//&\n/g;s//&\n/g"^|sed -n "$="') do (set/a ww=%%?-1)



::转换%起始色%和%结束色%到10进制

call :h2d %起始色%

set/p ad=<%txt%

call :h2d %结束色%

set/p zd=<%txt%



::计算隔多少放一个颜色

if %ad% lss %zd% (set "max=%zd%"&set "min=%ad%"&set "顺=是") else (set "max=%ad%"&set "min=%zd%"&set "顺=否")

set/a "n1=%max%-%min%"

set/a "n2=%n1%/%ww%"





::计算出每个字的颜色并转换到16进制

for /l %%? in (1,1,%ww%) do (

   set/a #%%?=%n2%*%%?+%min%

   call :d2h !#%%?!

   set/p #%%?=<%txt%

                            )



::写*

echo "%显示文字%"|sed "s/^\x22//;s/\x22$//;s//⒈&⒉/g;s//⒈&⒉/g"|sed "s/⒈//g;s/⒉//g"|more>%txt%



::替换每个字的颜色

set/p var=<%txt%

if "%顺%*"=="是*" (call :换色 1 1 %ww%)

if "%顺%*"=="否*" (call :换色 %ww% -1 1)



echo ok,生成的代码在%txt%文件中,任意键后自动打开%txt%文件,请手动复制

pause>nul

start %txt%

goto start





::::::::::::::::::::::::::all call::::::::::::::::::::::::::::



::------------------------------------------------------------

:h2d

::16进制转10进制

endlocal

setlocal ENABLEDELAYEDEXPANSION

set hs=%1

set /a sum=0x!hs!

>%txt% echo %sum%

goto :eof



::------------------------------------------------------------

:d2h

::10进制转16进制

endlocal

setlocal enabledelayedexpansion

set "hs=%1"

:loop_d2h

set/a z=%hs%/16

set/a y=%hs%%%16

if %z% lss 16 (

   call :zh_d2h %y%

   call :zh_d2h %z%

   goto loop_end_d2h ) else (call :zh_d2h %y%)

set hs=%z%

goto loop_d2h

:loop_end_d2h

>%txt% echo %sum%

goto :eof

:zh_d2h

if %1 GEQ 10 (

if "%1*"=="10*" set var=A

if "%1*"=="11*" set var=B

if "%1*"=="12*" set var=C

if "%1*"=="13*" set var=D

if "%1*"=="14*" set var=E

if "%1*"=="15*" set var=F

             ) else (set var=%1)

set sum=!var!%sum%

goto :eof



::------------------------------------------------------------

:补位

endlocal

setlocal enabledelayedexpansion

set "hs=%1"

:loop_补位

if "!hs:~5,1!*"=="*" (

   set "hs=0!hs!"

   goto loop_补位

                     ) 

>%txt% echo !hs!

goto :eof



::-----------------------------------------------------------

:换色

endlocal

setlocal enabledelayedexpansion

for /l %%a in (%1,%2,%3) do (

  call :补位 !#%%a!

  set/p #color=<%txt%

  for /f "tokens=*" %%? in ('echo "!var!"^|sed "s/^\x22//;s/\x22$//;s/↑/!#color!/"') do (set "var=%%?")

                            )

echo "!var!"|sed "s/^*//g;s/*$//g"|more>%txt%

goto :eof

Originally posted by slore at 2007-3-11 01:37:
bbs.cn-d

望指教一二

Originally posted by vkill at 2007-3-10 13:37:
我是每隔一段10进制的数来给一个字符上色的，看来这个方法不可行

Originally posted by slore at 2007-3-11 06:58:
貌似只有2个颜色的过渡？

@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

::zh159@bbs.cn-dos.net

@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 RGB=

set /p RGB=  输入开始颜色(红橙黄绿青蓝紫): 

for /l %%n in (1,1,7) do if "%RGB%" == "%%n" goto input

echo.

echo   输入开始颜色错误！

echo.

pause

goto Main



:input

set Num=

for %%n in (1 8 16 31 46 61 76) do set /a Num+=1&if "%RGB%" == "!Num!" set RGB=%%n

echo.

set input=

set /p input=  输入文字: 

if not defined input exit



set Num=

set "str=%input%"

:Num

set "str=%str:~1%"

set /a Num+=1

if not "%str%" == "" goto Num

set step=1

for %%n in (70 40 20 10) do if %Num% lss %%n set /a step+=1



cd.>test.txt

:loop

>>test.txt set /p=%input:~0,1%<nul

set /a RGB+=%step%

set "input=%input:~1%"

if %RGB% GTR 90 set RGB=1

if not "%input%" == "" goto loop

start test.txt

goto Main

exit

Originally posted by flamey at 2007-4-9 05:54:
56dag456
貌似兄的sed有问题