炫酷的批處理BAT走字特效源碼
先上第一版的代碼,
代碼肯定還存在BUG,先發(fā)上來(lái)給大家測(cè)試.
@echo off&setlocal enabledelayedexpansion mode con: cols=87 lines=15 title code by foxjl 2007-12-1 www.dbjr.com.cn color 1a set long=43,minus=43 set,=^ 我們,是一群執(zhí)著的批處理愛(ài)好者^(guò) 在色彩斑斕的WINDOWS下,開(kāi)啟CMD這扇深邃的窗口^ 曾經(jīng)挑燈夜戰(zhàn),曾經(jīng)徹夜不眠^(guò) 我們之所以如此似癡若狂,是因?yàn)槲覀兩钪篰 尺有所短、寸有所長(zhǎng),CMD不同凡響^ 我們精益求精,力求完美^ 所有的努力,只為了用最簡(jiǎn)潔的語(yǔ)言,編寫最具實(shí)用性的代碼^ 腳本之家www.dbjr.com.cn^ 高手匯聚、資料齊全、是新手入門的福地、老手晉級(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 700&exit :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 off&setlocal enabledelayedexpansion title code by 泛濫棏慌° 2007-12-1 www.dbjr.com.cn mode con: cols=87 lines=15 for /l %%l in (1 1 42) do set "ko= !ko!" color 1a&echo\&set,=!ko!^ 我們,是一群執(zhí)著的批處理愛(ài)好者^(guò) 在色彩斑斕的WINDOWS下,開(kāi)啟CMD這扇深邃的窗口^ 曾經(jīng)挑燈夜戰(zhàn),曾經(jīng)徹夜不眠^(guò) 我們之所以如此似癡若狂,是因?yàn)槲覀兩钪篰 尺有所短、寸有所長(zhǎng),CMD不同凡響^ 我們精益求精,力求完美^ 所有的努力,只為了用最簡(jiǎn)潔的語(yǔ)言,編寫最具實(shí)用性的代碼^ 腳本之家www.dbjr.com.cn^ 高手匯聚、資料齊全、是新手入門的福地、老手晉級(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 700&echo\&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 700&exit :delay for /l %%i in (1,1,%1) do (error>nul 2>nul) goto :eof
相關(guān)文章
DOS命令 Interlnk、Intersvr命令使用說(shuō)明
interlnk 啟動(dòng)簡(jiǎn)易網(wǎng)客戶機(jī) [適用場(chǎng)合] 如果有兩臺(tái)電腦可以通過(guò)它和intersvr聯(lián)成簡(jiǎn)易的網(wǎng)絡(luò),這是條很有 用的命令,但不常用2008-03-03
批處理將文件俠內(nèi)的文件名導(dǎo)入表格對(duì)應(yīng)名稱中
這篇文章主要介紹了使用批處理實(shí)現(xiàn)將文件俠內(nèi)的文件名導(dǎo)入表格對(duì)應(yīng)名稱中的方法和兩個(gè)示例,推薦給大家學(xué)習(xí)下。2015-09-09
bat文件加密 bat解密腳本(讓bat亂碼現(xiàn)形)
很多朋友想把自己寫的bat加密,防止別人隨意修改,但也有人想將別人加密的bat解密,查看源碼學(xué)習(xí)等,本來(lái)就是一個(gè)矛盾體,這里腳本之家都給整理下方便需要的朋友2013-01-01
Dos下日期時(shí)間的引用實(shí)現(xiàn)代碼
經(jīng)常用到DOS日期,總結(jié)了一下,需要的朋友可以參考下2012-04-04
寫了個(gè)批量替換字符串的bat批處理(replaceChar.bat)
鑒于dos知識(shí)有限,還沒(méi)找到好的辦法來(lái)避免這兩種狀況。如果用shell腳本完成替換功能就簡(jiǎn)單多了。或者直接用ultraedit的替換功能更簡(jiǎn)單2017-04-04

