批处理实现 “霓虹灯” 效果

youxi01

该效果本人也没去尝试过（因为没接触过批处理中 彩色字符 的实现代码），至于代码编写的可行性我也不知道...

至于所谓的 霓虹灯 效果可以这样解释（比较粗陋的霓虹灯效果）,举例说明：
假设有这样的一段字符串（黑底红字）：批处理之家bbs.bathome.net
然后第一个字符 批 变为白色，其它的仍为：红色；
再接下来：第二个字符 处 为白色，其它的仍为：红色；
依次类推，形成类 霓虹灯 的效果.

随风

参照cn-dos此帖
http://www.cn-dos.net/forum/viewthread.php?tid=39727###
利用临时文件和findstr /a 参数。
若是想显示字母的话，则所有显示字母都必须是合法的文件名。

@echo off&echo.&echo.&color 0c
::code 随风 @bbs.bathome.net 2008-0511
set /p= <nul>●
for /l %%a in (1 1 30) do (
   call set str=●%%str%%
   call set t=%%t%%
)
set /p=       %str%<nul
set /p=%t%<nul
for %%a in (a b c d e f) do (
   setlocal
   call :loop %%a
   endlocal
)
pause>nul&exit
:loop
set wjm=%str:~0,1%
if "%str:~1%"=="" (set bu=　) else set bu=●
findstr /a:%1 .* ●*
set /p=%bu%<nul
for /l %%a in (1 1 100) do ver>nul
set str=%str:~1%
if defined str goto loop
set /p=%t%<nul
goto :eof
复制代码

[ 本帖最后由 随风 于 2008-5-11 21:34 编辑 ]

随风

再来个，最烂的霓虹灯。

@echo off&echo.&echo.&color 0c
::code 随风 @bbs.bathome.net 2008-0511
set /p= <nul>●
for /l %%a in (1 1 30) do (
   call set str=●%%str%%
   call set t=%%t%%
)
set /p=       %str%<nul
set /p=%t%<nul
set ys=abcdefa
setlocal EnableDelayedExpansion
for %%a in (a b c d e f) do (
   set /a m+=1&call set b2=%%ys:~!m!,1%%
   call :loop %%a !b2!
)
pause>nul&exit
:loop
set /a n+=1,h+=1
if "%str:~1%"=="" (set bu=　) else set bu=●
findstr /a:%1 .* ●*
set /p=%bu%<nul
if %n% geq 5 call :list %1 %2 %2&set n=2
title %2
set str=%str:~1%
if %h% lss 30 goto loop
set /p=%t%<nul
set /a h=0,n=0
goto :eof
:list
if "%2"=="" goto :eof
set /p=<nul
findstr /a:%2 .* ●*
set /p=%bu%<nul
findstr /a:%1 .* ●*
set /p=%bu%<nul
findstr /a:%1 .* ●*
set /p=%bu%<nul
findstr /a:%1 .* ●*
set /p=%bu%<nul
findstr /a:%1 .* ●*
set /p=%bu%<nul
shift
goto list
复制代码

随风

再来一个

@echo off&echo.&echo.&color 0c
set _1=●&set "_2=●●"
set /p= <nul>●
copy /y ● ●● >nul
set ys=abdef123456789
::code 随风 @bbs.bathome.net 2008-0511
for /l %%a in (1 1 30) do (
   call set str=●%%str%%
   call set t=%%t%%
)
set /p=       %str%<nul
:loop
set /a n=%random%%%27+3,w=%random%%%2+1,m=n-4+w,h=%random%%%14,h2=(h2+1)%%10
call set y=%%ys:~%h%,1%%
call set w=%%_%w%%%
for /l %%a in (1 1 %n%) do set /p=<nul
findstr /a:%y% . %w%*
for /l %%a in (1 1 %m%) do set /p=●<nul
for /l %%a in (1 1 500) do ver>nul
if %h2% geq 5 (color 0c) else color 0%y%
goto loop
复制代码

youxi01

还有点小问题，测试便知

随风

哦？
4 楼的吗？我测试没问题啊？

youxi01

呵呵，没事了，似乎是原来的感觉错误，呵呵，不好意思

gavincwb

不是很清楚
只有慢慢来学习了

aa779

开眼界了，原来可以这样弄，如果能想霓虹灯广告那样，那就好看了

batman

我也来一个，以前写的：

@echo off&mode con cols=41 lines=5
title 权当打发无聊的小动画
set a=★&set b=☆&set c=0123456789abcdef
echo.&echo.
:begin
set /a n=%random%%%20+1,m=40-2*n,x=%random%%%16
call,color 1%%c:~%x%,1%%
for /l %%i in (1,1,20) do set /p=%b%<nul&ping /n 127.1>nul
for /l %%i in (1,1,100) do set /p=<nul
for /l %%i in (1,1,%m%) do set /p= <nul&ping /n 127.1>nul
for /l %%i in (1,1,%n%) do set /p=%a%<nul&ping /n 127.1>nul
for /l %%i in (1,1,100) do set /p=<nul
goto begin
复制代码

batman

再来个更小型的：

@echo off&mode con cols=30 lines=5
echo.&echo.
:begin
set str=bbs.bathome.net&set b=123456789abcdef
set /a a=%random%%%14
call,color 1%%b:~%a%,1%%
call,set var=%%str:~%a%,1%%
call,set str=%%str:%var%= %%
set /p=       %str%<nul
for /l %%i in (1,1,1000) do set /p=<nul
goto begin
复制代码

杨风

哇哦~~~TI is beautiful  ~~~~~~

yyyxlxq

被你这个东东搞挂机了

w156445045

好东西啊~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

cfish09

不错 哦xxi kl