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

youxi01 · 发表于 2008-1-2 11:13:05

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

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

随风 · 发表于 2008-5-11 21:32:47

参照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 编辑 ]

随风 · 发表于 2008-5-11 22:42:45

再来个，最烂的霓虹灯。

@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

复制代码

随风 · 发表于 2008-5-12 14:36:44

再来一个

@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 · 发表于 2008-5-12 18:53:42

还有点小问题，测试便知

随风 · 发表于 2008-5-12 19:16:54

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

youxi01 · 发表于 2008-5-12 21:32:32

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

gavincwb · 发表于 2008-5-21 04:33:47

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

aa779 · 发表于 2008-6-15 10:46:13

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

batman · 发表于 2008-6-21 15:03:31

我也来一个，以前写的：

@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 · 发表于 2008-6-21 15:08:07

再来个更小型的：

@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

复制代码

杨风 · 发表于 2008-6-21 15:17:43

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

yyyxlxq · 发表于 2008-6-23 17:18:19

被你这个东东搞挂机了

w156445045 · 发表于 2008-6-26 13:07:20

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

cfish09 · 发表于 2008-6-27 22:16:54

不错哦xxi kl

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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

相关帖子

评分

评分

倒地！