天佑中华动画 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛


@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

颜色不好看……

居然。。。点阵

第一次在这里看到点阵，不错。

有创意，相比花了不少心思。。。

findstr还能这么用，果然强悍！构思的确巧妙

请问最下面那些数字是什么原理？看不懂啊，其中的"%~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 ]

set /p= <nul>●

这句会产生一个名为●的文件。。。。。
最后貌似没删

[ Last edited by metoo on 2008-5-18 at 09:40 PM ]

其实这个作品的最大亮点是采取了类似数组的存储结构

呵呵
代码确实没有什么技巧可言，先用软件将字符转换成文字，再用批处理计算出每行的空格数和字符数（即：后面的数组）再显示出来，纯属无聊之作。。大家见笑了。。。

再配段音乐进去

不一一对应好,还真不好做,应该要调试好多次才行~

赤心一片＋技术＋体力活，兄弟真的花了很大的心力啊！

强帖留名。

天佑中华。

第1楼　26933062	发表于 2008-05-17 16:08
银牌会员　发帖 879　积分 2,268
天佑中华动画 @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

第2楼　slore	发表于 2008-05-17 16:24
铂金会员　发帖 2,478　积分 5,212
颜色不好看…… 居然。。。点阵

第3楼　HAT	发表于 2008-05-17 16:58
版主　发帖 5,017　积分 9,023
第一次在这里看到点阵，不错。

第4楼　plp626	发表于 2008-05-17 18:51
银牌会员　发帖 1,020　积分 2,278
有创意，相比花了不少心思。。。

第5楼　zqz0012005	发表于 2008-05-17 20:11
中级用户　发帖 135　积分 297
findstr还能这么用，果然强悍！构思的确巧妙

第6楼　Batain	发表于 2008-05-18 20:55
初级用户　发帖 11　积分 24
请问最下面那些数字是什么原理？看不懂啊，其中的"%~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 ]

第7楼　metoo	发表于 2008-05-18 21:26
初级用户　发帖 93　积分 195
set /p= <nul>● 这句会产生一个名为●的文件。。。。。最后貌似没删 [ Last edited by metoo on 2008-5-18 at 09:40 PM ]

第8楼　everest79	发表于 2008-05-18 23:59
金牌会员　发帖 1,127　积分 2,564
其实这个作品的最大亮点是采取了类似数组的存储结构

第9楼　26933062	发表于 2008-05-19 00:26
银牌会员　发帖 879　积分 2,268
呵呵代码确实没有什么技巧可言，先用软件将字符转换成文字，再用批处理计算出每行的空格数和字符数（即：后面的数组）再显示出来，纯属无聊之作。。大家见笑了。。。

第10楼　terse	发表于 2008-05-19 10:58
银牌会员　发帖 946　积分 2,404
再配段音乐进去

第11楼　huahua0919	发表于 2008-05-19 11:32
银牌会员　发帖 780　积分 1,608
不一一对应好,还真不好做,应该要调试好多次才行~

第12楼　sunhangmail	发表于 2008-05-19 21:31
初级用户　发帖 14　积分 27
高手啊

第13楼　bat-zw	发表于 2008-05-19 21:49
金牌会员　发帖 1,276　积分 3,105
赤心一片＋技术＋体力活，兄弟真的花了很大的心力啊！

第14楼　vlanmaster	发表于 2008-05-20 10:04
初级用户　发帖 46　积分 100
强帖留名。天佑中华。

第15楼　pykacha	发表于 2008-05-20 10:14
初级用户　发帖 73　积分 156
好样的