批处理动画中的字符 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

看到一些动画中乱七八糟的字符既然显示成英文或汉字
不知道是怎么弄的知道请告诉我
如下面的2个
set c1=
set c2=
set c3=
set c4=
set c5=
set c6=
set c7=
显示www.verybat.cn

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
显示天佑中华

又见点阵动画，呵呵。

是怎么弄的啊说下哦
怎么把汉字转成上面样的

那个数字可以这样得到：
a.txt的内容：

       ●    ●              ●      ●●●●      ●●●●●●●●●            ●    ●
       ●    ●  ●      ●●●●●  ●    ●              ●            ●●●●●●●●●●●
     ●      ●    ●      ●        ●●●●              ●                  ●      ●
     ●●●●●●●●●    ●        ●    ●              ●                ●  ●  ●    ●
   ●●      ●            ●●●●  ●  ●●    ●●●●●●●●●●●    ●●●    ●●●
 ●  ●      ●                    ●                     ●                ●  ●    ●  ●
     ●      ●●          ●●●●●●●●●            ●  ●            ●●●●  ●●●●●
     ●    ●    ●                ●                    ●  ●
     ●    ●    ●          ●●●●●●●            ●      ●          ●  ●  ●    ●●
     ●  ●        ●              ●                ●          ●        ●  ●    ●  ●  ●
     ●●            ●  ●●●●●●●●●●●  ●●              ●●  ●    ●●●●●●  ●



     ●      ●                  ●  ●  ●                ●                  ●    ●
     ●      ●          ●●●●    ●    ●              ●                ●      ●    ●
     ●●●●●●●●●        ●    ●            ●●●●●●●●●      ●●      ●  ●
   ●●      ●          ●●●●●●●●●●●    ●      ●      ●    ●  ●    ●●●    ●
   ●●    ●                  ●    ●            ●      ●      ●        ●●●  ●      ●
 ●  ●    ●●●●●          ●  ●●    ●      ●      ●      ●        ●      ●●●●●
     ●  ●●      ●        ●●●  ●  ●        ●●●●●●●●●              ●
     ●●  ●      ●    ●●  ●      ●                  ●            ●●●●●●●●●●●
     ●    ●      ●          ●    ●●    ●            ●                      ●
     ●    ●      ●          ●●●    ●  ●            ●                      ●
     ●    ●●●●●      ●●●          ●●            ●                      ●

将其转换成上述数字的代码：

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
  set "str=%%i"
  set flag=
  for %%j in (!str!) do (set/a flag+=1&call :out ball %%j)
  set "str=!str: =A!"&set "str=!str:●= !"
  set flag=
  for %%j in (!str!) do (set/a flag+=1&call :out space %%j)

  for /l %%j in (1,1,!flag!) do set mystr=!mystr! !space%%j!-!ball%%j!
  echo !mystr!&set mystr=
)
pause>nul

:out
set tmp=%2
:loop
set tmp=%tmp:~1%&set/a num+=1
if defined tmp goto loop
set %1%flag%=%num%&set num=

我问的不怎么写代码
我是问怎么将"字" 转成那样的数字

关键是下面的数列。。。。
7-1
七个空格1个●
4-1
然后4个空格1个●

我是问怎么将"字" 转成那样的数字

就是用那个代码把字转换成数字。你把“字”保存为a.txt，再运行代码就得到数字了。

第1楼　joytuyong1	发表于 2008-05-24 13:21
初级用户　发帖 39　积分 101
批处理动画中的字符看到一些动画中乱七八糟的字符既然显示成英文或汉字不知道是怎么弄的知道请告诉我如下面的2个 set c1= set c2= set c3= set c4= set c5= set c6= set c7= 显示www.verybat.cn 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楼　HAT	发表于 2008-05-24 17:08
版主　发帖 5,017　积分 9,023
又见点阵动画，呵呵。

第3楼　joytuyong1	发表于 2008-05-24 19:13
初级用户　发帖 39　积分 101
是怎么弄的啊说下哦怎么把汉字转成上面样的

第4楼　WANKOILZ	发表于 2008-05-24 20:50
初级用户　发帖 89　积分 198　来自重庆
那个数字可以这样得到： a.txt的内容： ● ● ● ●●●● ●●●●●●●●● ● ● ● ● ● ●●●●● ● ● ● ●●●●●●●●●●● ● ● ● ● ●●●● ● ● ● ●●●●●●●●● ● ● ● ● ● ● ● ● ●● ● ●●●● ● ●● ●●●●●●●●●●● ●●● ●●● ● ● ● ● ● ● ● ● ● ● ●● ●●●●●●●●● ● ● ●●●● ●●●●● ● ● ● ● ● ● ● ● ● ●●●●●●● ● ● ● ● ● ●● ● ● ● ● ● ● ● ● ● ● ● ●● ● ●●●●●●●●●●● ●● ●● ● ●●●●●● ● ● ● ● ● ● ● ● ● ● ● ●●●● ● ● ● ● ● ● ●●●●●●●●● ● ● ●●●●●●●●● ●● ● ● ●● ● ●●●●●●●●●●● ● ● ● ● ● ●●● ● ●● ● ● ● ● ● ● ●●● ● ● ● ● ●●●●● ● ●● ● ● ● ● ● ●●●●● ● ●● ● ●●● ● ● ●●●●●●●●● ● ●● ● ● ●● ● ● ● ●●●●●●●●●●● ● ● ● ● ●● ● ● ● ● ● ● ●●● ● ● ● ● ● ●●●●● ●●● ●● ● ● 将其转换成上述数字的代码：@echo off&setlocal enabledelayedexpansion for /f "delims=" %%i in (a.txt) do ( set "str=%%i" set flag= for %%j in (!str!) do (set/a flag+=1&call :out ball %%j) set "str=!str: =A!"&set "str=!str:●= !" set flag= for %%j in (!str!) do (set/a flag+=1&call :out space %%j) for /l %%j in (1,1,!flag!) do set mystr=!mystr! !space%%j!-!ball%%j! echo !mystr!&set mystr= ) pause>nul :out set tmp=%2 :loop set tmp=%tmp:~1%&set/a num+=1 if defined tmp goto loop set %1%flag%=%num%&set num=

第5楼　joytuyong1	发表于 2008-05-25 00:52
初级用户　发帖 39　积分 101
我问的不怎么写代码我是问怎么将"字" 转成那样的数字

第6楼　pusofalse	发表于 2008-05-25 00:56
银牌会员　发帖 646　积分 1,604
关键是下面的数列。。。。 7-1 七个空格1个● 4-1 然后4个空格1个●

第7楼　WANKOILZ	发表于 2008-05-25 13:02
初级用户　发帖 89　积分 198　来自重庆
我是问怎么将"字" 转成那样的数字就是用那个代码把字转换成数字。你把“字”保存为a.txt，再运行代码就得到数字了。