中国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 ]

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

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

再配段音乐进去

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

高手啊

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

强帖留名。

天佑中华。

好样的