中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-08 18:03
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 天佑中华 动画 查看 1,965 回复 21
楼 主 天佑中华 动画 发表于 2008-05-17 16:08 ·  中国 湖南 娄底 电信
银牌会员
★★★
积分 2,268
发帖 879
注册 2006-12-19 16:23
19年会员
UID 73968
性别 男
状态 离线

@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
本帖最近评分记录 (共 7 条) 点击查看详情
评分人分数时间
plp626 +5 2008-05-17 18:49
PPdos +4 2008-05-17 19:01
everest79 +15 2008-05-17 19:29
moniuming +4 2008-05-18 10:18
zh159 +12 2008-05-19 10:36
terse +15 2008-05-19 10:57
huahua0919 +7 2008-05-19 11:31
致精致简!
2 发表于 2008-05-17 16:24 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
颜色不好看……

居然。。。点阵
3 发表于 2008-05-17 16:58 ·  中国 重庆 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
第一次在这里看到点阵,不错。
4 发表于 2008-05-17 18:51 ·  中国 陕西 西安 电信
银牌会员
★★★★
钻石会员
积分 2,278
发帖 1,020
注册 2007-11-19 13:34
18年会员
UID 103127
性别 男
状态 离线
有创意,相比花了不少心思。。。
山外有山,人外有人;低调做人,努力做事。

进入网盘(各种工具)~~ 空间~~cmd学习
5 发表于 2008-05-17 20:11 ·  中国 四川 成都 联通
中级用户
★★
积分 297
发帖 135
注册 2006-10-21 12:00
19年会员
UID 67627
性别 男
状态 离线
findstr还能这么用,果然强悍!构思的确巧妙
6 发表于 2008-05-18 20:55 ·  中国 江苏 南京 电信
初级用户
积分 24
发帖 11
注册 2008-02-01 13:30
18年会员
UID 109956
性别 男
状态 离线
请问最下面那些数字是什么原理?看不懂啊,其中的"%~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 发表于 2008-05-18 21:26 ·  中国 江苏 苏州 电信
初级用户
★★
积分 195
发帖 93
注册 2006-10-28 08:20
19年会员
UID 68626
性别 男
状态 离线
set /p= <nul>●

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

[ Last edited by metoo on 2008-5-18 at 09:40 PM ]
8 发表于 2008-05-18 23:59 ·  中国 广东 广州 天河区 电信
金牌会员
★★★★
一叶枝头,万树皆春
积分 2,564
发帖 1,127
注册 2006-12-25 22:57
19年会员
UID 74552
性别 男
状态 离线
其实这个作品的最大亮点是采取了类似数组的存储结构
49206C6F766520796F752067757973 54656C3A3133383238343036373837
9 发表于 2008-05-19 00:26 ·  中国 湖南 娄底 电信
银牌会员
★★★
积分 2,268
发帖 879
注册 2006-12-19 16:23
19年会员
UID 73968
性别 男
状态 离线
呵呵
代码确实没有什么技巧可言,先用软件将字符转换成文字,再用批处理计算出每行的空格数和字符数(即:后面的数组)再显示出来,纯属无聊之作。。大家见笑了。。。
致精致简!
10 发表于 2008-05-19 10:58 ·  中国 江苏 常州 溧阳市 电信
银牌会员
★★★
积分 2,404
发帖 946
注册 2005-09-08 13:44
20年会员
UID 42345
状态 离线
再配段音乐进去
简单!简单!再简单!
11 发表于 2008-05-19 11:32 ·  中国 江苏 苏州 吴江区 电信
银牌会员
★★★
积分 1,608
发帖 780
注册 2007-10-07 10:19
18年会员
UID 99089
性别 男
状态 离线
不一一对应好,还真不好做,应该要调试好多次才行~
12 发表于 2008-05-19 21:31 ·  中国 广东 东莞 电信
初级用户
积分 27
发帖 14
注册 2008-04-18 23:32
18年会员
UID 116285
性别 男
状态 离线
高手啊
13 发表于 2008-05-19 21:49 ·  中国 湖南 株洲 电信
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
18年会员
UID 112398
性别 男
状态 离线
赤心一片+技术+体力活,兄弟真的花了很大的心力啊!
批处理之家新域名:www.bathome.net
14 发表于 2008-05-20 10:04 ·  中国 江苏 苏州 电信
初级用户
积分 100
发帖 46
注册 2006-12-19 04:57
19年会员
UID 73922
性别 男
状态 离线
强帖留名。

天佑中华。
15 发表于 2008-05-20 10:14 ·  中国 广东 广州 番禺区 电信
初级用户
★★
积分 156
发帖 73
注册 2008-05-09 10:40
18年会员
UID 118210
性别 男
状态 离线
好样的
为自己是中国人而倍感骄傲
论坛跳转: