标题: 天佑中华 动画 [打印本页]
作者: 26933062 时间: 2008-5-17 16:08 标题: 天佑中华 动画
@echo off&mode con: cols=100 lines=30
echo.&color 1f&title 天佑中华
set var=abcdef
set /p= <nul>●
setlocal enabledelayedexpansion
for /f "skip=22 delims=" %%a in ('type "%~0"') do (
set /a m+=1
call :loop %%a
echo.
if !m! equ 11 echo.&echo.&echo.
)
pause>nul&exit
:loop
if "%1"=="" goto :eof
set /a w=%random%%%5+1
set h=!var:~%w%,1!
for /f "tokens=1,2 delims=-" %%a in ("%~1") do (
for /l %%l in (1 1 %%a) do set /p= <nul
for /l %%l in (1 1 %%b) do findstr /a:%h% . ●*
)
shift
goto loop
7-1 4-1 14-1 6-4 6-9 12-1 4-1
7-1 4-1 2-1 6-5 2-1 4-1 14-1 12-11
5-1 6-1 4-1 6-1 8-4 14-1 18-1 6-1
5-9 4-1 8-1 4-1 14-1 16-1 2-1 2-1 4-1
3-2 6-1 12-4 2-1 2-2 4-11 4-3 4-3
1-1 2-1 6-1 20-1 21-1 16-1 2-1 4-1 2-1
5-1 6-2 10-9 12-1 2-1 12-4 2-5
5-1 4-1 4-1 16-1 20-1 2-1
5-1 4-1 4-1 10-7 12-1 6-1 10-1 2-1 2-1 4-2
5-1 2-1 8-1 14-1 16-1 10-1 8-1 2-1 4-1 2-1 2-1
5-2 12-1 2-11 2-2 14-2 2-1 4-6 2-1
5-1 6-1 18-1 2-1 2-1 16-1 18-1 4-1
5-1 6-1 10-4 4-1 4-1 14-1 16-1 6-1 4-1
5-9 8-1 4-1 12-9 6-2 6-1 2-1
3-2 6-1 10-11 4-1 6-1 6-1 4-1 2-1 4-3 4-1
3-2 4-1 18-1 4-1 12-1 6-1 6-1 8-3 2-1 6-1
1-1 2-1 4-5 10-1 2-2 4-1 6-1 6-1 6-1 8-1 6-1 0-4
5-1 2-2 6-1 8-3 2-1 2-1 8-9 14-1
5-2 2-1 6-1 4-2 2-1 6-1 18-1 12-11
5-1 4-1 6-1 10-1 4-2 4-1 12-1 22-1
5-1 4-1 6-1 10-3 4-1 2-1 12-1 22-1
5-1 4-5 6-3 10-2 12-1 22-1
echo.&color 1f&title 天佑中华
set var=abcdef
set /p= <nul>●
setlocal enabledelayedexpansion
for /f "skip=22 delims=" %%a in ('type "%~0"') do (
set /a m+=1
call :loop %%a
echo.
if !m! equ 11 echo.&echo.&echo.
)
pause>nul&exit
:loop
if "%1"=="" goto :eof
set /a w=%random%%%5+1
set h=!var:~%w%,1!
for /f "tokens=1,2 delims=-" %%a in ("%~1") do (
for /l %%l in (1 1 %%a) do set /p= <nul
for /l %%l in (1 1 %%b) do findstr /a:%h% . ●*
)
shift
goto loop
7-1 4-1 14-1 6-4 6-9 12-1 4-1
7-1 4-1 2-1 6-5 2-1 4-1 14-1 12-11
5-1 6-1 4-1 6-1 8-4 14-1 18-1 6-1
5-9 4-1 8-1 4-1 14-1 16-1 2-1 2-1 4-1
3-2 6-1 12-4 2-1 2-2 4-11 4-3 4-3
1-1 2-1 6-1 20-1 21-1 16-1 2-1 4-1 2-1
5-1 6-2 10-9 12-1 2-1 12-4 2-5
5-1 4-1 4-1 16-1 20-1 2-1
5-1 4-1 4-1 10-7 12-1 6-1 10-1 2-1 2-1 4-2
5-1 2-1 8-1 14-1 16-1 10-1 8-1 2-1 4-1 2-1 2-1
5-2 12-1 2-11 2-2 14-2 2-1 4-6 2-1
5-1 6-1 18-1 2-1 2-1 16-1 18-1 4-1
5-1 6-1 10-4 4-1 4-1 14-1 16-1 6-1 4-1
5-9 8-1 4-1 12-9 6-2 6-1 2-1
3-2 6-1 10-11 4-1 6-1 6-1 4-1 2-1 4-3 4-1
3-2 4-1 18-1 4-1 12-1 6-1 6-1 8-3 2-1 6-1
1-1 2-1 4-5 10-1 2-2 4-1 6-1 6-1 6-1 8-1 6-1 0-4
5-1 2-2 6-1 8-3 2-1 2-1 8-9 14-1
5-2 2-1 6-1 4-2 2-1 6-1 18-1 12-11
5-1 4-1 6-1 10-1 4-2 4-1 12-1 22-1
5-1 4-1 6-1 10-3 4-1 2-1 12-1 22-1
5-1 4-5 6-3 10-2 12-1 22-1
作者: slore 时间: 2008-5-17 16:24
颜色不好看……
居然。。。点阵
作者: HAT 时间: 2008-5-17 16:58
第一次在这里看到点阵，不错。
作者: plp626 时间: 2008-5-17 18:51
有创意，相比花了不少心思。。。
作者: zqz0012005 时间: 2008-5-17 20:11
findstr还能这么用，果然强悍！构思的确巧妙
作者: Batain 时间: 2008-5-18 20:55
请问最下面那些数字是什么原理？看不懂啊，其中的"%~0"又是什么意思？
7-1 4-1 14-1 6-4 6-9 12-1 4-1
7-1 4-1 2-1 6-5 2-1 4-1 14-1 12-11
5-1 6-1 4-1 6-1 8-4 14-1 18-1 6-1
............
[ Last edited by Batain on 2008-5-18 at 08:58 PM ]
作者: metoo 时间: 2008-5-18 21:26
set /p= <nul>●
这句会产生一个名为●的文件。。。。。
最后貌似没删
[ Last edited by metoo on 2008-5-18 at 09:40 PM ]
作者: everest79 时间: 2008-5-18 23:59
其实这个作品的最大亮点是采取了类似数组的存储结构
作者: 26933062 时间: 2008-5-19 00:26
呵呵
代码确实没有什么技巧可言，先用软件将字符转换成文字，再用批处理计算出每行的空格数和字符数（即：后面的数组）再显示出来，纯属无聊之作。。大家见笑了。。。
作者: terse 时间: 2008-5-19 10:58
再配段音乐进去
作者: huahua0919 时间: 2008-5-19 11:32
不一一对应好,还真不好做,应该要调试好多次才行~
作者: sunhangmail 时间: 2008-5-19 21:31
高手啊
作者: bat-zw 时间: 2008-5-19 21:49
赤心一片＋技术＋体力活，兄弟真的花了很大的心力啊！
作者: vlanmaster 时间: 2008-5-20 10:04
强帖留名。
天佑中华。
作者: pykacha 时间: 2008-5-20 10:14
好样的
作者: clian76 时间: 2008-5-20 10:34
4 个字：厉害！佩服！！
作者: utem999 时间: 2008-5-21 11:47
赤诚之心
作者: lovelymorning 时间: 2008-5-21 11:56
无语……
强大
这样也做得出，PFPF
● ● ● ●●●● ●●●●●●●●● ● ●
● ● ● ●●●●● ● ● ● ●●●●●●●●●●●
● ● ● ● ●●●● ● ● ●
●●●●●●●●● ● ● ● ● ● ● ● ●
●● ● ●●●● ● ●● ●●●●●●●●●●● ●●● ●●●
● ● ● ● ● ● ● ● ●
● ●● ●●●●●●●●● ● ● ●●●● ●●●●●
● ● ● ● ● ●
● ● ● ●●●●●●● ● ● ● ● ● ●●
● ● ● ● ● ● ● ● ● ● ●
●● ● ●●●●●●●●●●● ●● ●● ● ●●●●●● ●
● ● ● ● ● ● ● ●
● ● ●●●● ● ● ● ● ● ●
●●●●●●●●● ● ● ●●●●●●●●● ●● ● ●
●● ● ●●●●●●●●●●● ● ● ● ● ● ●●● ●
●● ● ● ● ● ● ● ●●● ● ●
● ● ●●●●● ● ●● ● ● ● ● ● ●●●●●
● ●● ● ●●● ● ● ●●●●●●●●● ●
●● ● ● ●● ● ● ● ●●●●●●●●●●●
● ● ● ● ●● ● ● ●
● ● ● ●●● ● ● ● ●
● ●●●●● ●●● ●● ● ●
作者: everlast 时间: 2008-5-21 19:13
你真行啊
作者: suntb 时间: 2008-5-21 21:35
特殊时期 特别的祝福
谢谢楼主
作者: suntb 时间: 2008-5-21 21:40
| Quote: | |
|
将pause>nul&exit这一行改为下面即可
pause>nul&del /f /q ●&exit
作者: juventus 时间: 2008-5-22 11:09
天佑中华