先上第一版的代碼，
代碼肯定還存在BUG,先發(fā)上來(lái)給大家測(cè)試.
@echo offsetlocal enabledelayedexpansion
mode con: cols=87 lines=15
title code by foxjl 2007-12-1 www.jb51.net
color 1a
set long=43,minus=43
set,=^
我們，是一群執(zhí)著的批處理愛(ài)好者^(guò)
在色彩斑斕的ＷＩＮＤＯＷＳ下，開(kāi)啟ＣＭＤ這扇深邃的窗口^
曾經(jīng)挑燈夜戰(zhàn)，曾經(jīng)徹夜不眠^(guò)
我們之所以如此似癡若狂，是因?yàn)槲覀兩钪篰
尺有所短、寸有所長(zhǎng)，ＣＭＤ不同凡響^
我們精益求精，力求完美^
所有的努力，只為了用最簡(jiǎn)潔的語(yǔ)言，編寫最具實(shí)用性的代碼^
腳本之家www.jb51.net^
高手匯聚、資料齊全、是新手入門的福地、老手晉級(jí)的樂(lè)園^
不求最大、但求最好、展現(xiàn)批處理的無(wú)窮魅力、一切精彩，盡在～～腳本之家～～ 演示完畢。再見(jiàn)！！
:start
echo.
for %%i in (8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 ， 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 ， 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 ， 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 ， 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 ， 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 ， 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 ， 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 ， 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 ， 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 ， 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8) do (
(if "%%i"=="，" (echo.ping -n 1 127.1>nul)) (set a=%%i)(set b=!a:-=!)
if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓nul)) else (for /l %%k in (1,1,%%i) do (set/p= nul)
)
)
call :delay 700
echo\echo\
for /l %%z in (1,1,255) do (
if not !long! equ 0 set /a long-=1
for /l %%j in (1,1,87) do (set/p=nul)
for /l %%k in (1,1,!long!) do (set/p= nul)
set /a longn+=1
set /a longs=longn-43
set /a remnant=255-43
if !longn! lss 43 (set/p=!,:~0,%%z!nul) else (
if !longn! geq !remnant! (
set /a minus-=1
set /a minuss=minus*2
for /l %%l in (1,1,!minus!) do (set/p= nul)
for /l %%j in (1,1,!minuss!) do (set/p=nul)
call set/p=%%,:~!longs!,43%%nul
) else (
call set/p=%%,:~!longs!,43%%nul
)
)
call :delay 40 修改這個(gè)數(shù)字可以調(diào)整走字的速度.
)
call :delay 700exit
:delay
for /l %%i in (1,1,%1) do (error>nul 2>nul)
goto :eof
動(dòng)畫效果很不錯(cuò),象電視里的飛字幕.很有觀賞性.
真是開(kāi)了眼了 set ,=^ 再把每句最后加個(gè)^符號(hào),就可以把它們都賦值給變量,?這是什么原理? 并且最后一句末尾又沒(méi)有^符號(hào)?
不過(guò),飛字幕部分,代碼似乎可以更簡(jiǎn)潔.
來(lái)看看第二版的代碼
:
@echo offsetlocal enabledelayedexpansion
title code by 泛濫棏慌° 2007-12-1 www.jb51.net
mode con: cols=87 lines=15
for /l %%l in (1 1 42) do set "ko= !ko!"
color 1aecho\set,=!ko!^
我們，是一群執(zhí)著的批處理愛(ài)好者^(guò)
在色彩斑斕的ＷＩＮＤＯＷＳ下，開(kāi)啟ＣＭＤ這扇深邃的窗口^
曾經(jīng)挑燈夜戰(zhàn)，曾經(jīng)徹夜不眠^(guò)
我們之所以如此似癡若狂，是因?yàn)槲覀兩钪篰
尺有所短、寸有所長(zhǎng)，ＣＭＤ不同凡響^
我們精益求精，力求完美^
所有的努力，只為了用最簡(jiǎn)潔的語(yǔ)言，編寫最具實(shí)用性的代碼^
腳本之家www.jb51.net^
高手匯聚、資料齊全、是新手入門的福地、老手晉級(jí)的樂(lè)園^
不求最大、但求最好、展現(xiàn)批處理的無(wú)窮魅力、一切精彩，盡在～～腳本之家～～ 演示完畢。再見(jiàn)！！
for %%i in (8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 ， 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 ， 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 ， 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 ， 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 ， 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 ， 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 ， 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 ， 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 ， 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 ， 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8) do (
(if "%%i"=="，" (echo.ping -n 1 127.1>nul)) (set a=%%i)(set b=!a:-=!)
if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓nul)) else (for /l %%k in (1,1,%%i) do (set/p= nul)
))
call :delay 700echo\echo\
for /l %%l in (1 1 255) do (
set /p=!,:~0,43!nul
call :delay 40 修改這個(gè)數(shù)字可以調(diào)整走字的速度.
for /l %%j in (1,1,87) do (set/p=nul)
set ,=!,:~1!
)
call :delay 700exit
:delay
for /l %%i in (1,1,%1) do (error>nul 2>nul)
goto :eof
您可能感興趣的文章:- bat批處理 if 命令示例詳解
- 寫一個(gè)bat批處理文件啟動(dòng)windows進(jìn)程和延時(shí)關(guān)閉的代碼
- 批處理文件 (.bat) 的幾個(gè)技巧分享
- 批處理文件(bat文件)注冊(cè)dll批量注冊(cè)dll
- 批處理BAT創(chuàng)建快捷方式
- 批處理BAT實(shí)現(xiàn)正弦曲線和拋物線代碼
