
CODE: [Copy to clipboard]将其转换成上述数字的代码:● ● ● ●●●● ●●●●●●●●● ● ●
● ● ● ●●●●● ● ● ● ●●●●●●●●●●●
● ● ● ● ●●●● ● ● ●
●●●●●●●●● ● ● ● ● ● ● ● ●
●● ● ●●●● ● ●● ●●●●●●●●●●● ●●● ●●●
● ● ● ● ● ● ● ● ●
● ●● ●●●●●●●●● ● ● ●●●● ●●●●●
● ● ● ● ● ●
● ● ● ●●●●●●● ● ● ● ● ● ●●
● ● ● ● ● ● ● ● ● ● ●
●● ● ●●●●●●●●●●● ●● ●● ● ●●●●●● ●
● ● ● ● ● ● ● ●
● ● ●●●● ● ● ● ● ● ●
●●●●●●●●● ● ● ●●●●●●●●● ●● ● ●
●● ● ●●●●●●●●●●● ● ● ● ● ● ●●● ●
●● ● ● ● ● ● ● ●●● ● ●
● ● ●●●●● ● ●● ● ● ● ● ● ●●●●●
● ●● ● ●●● ● ● ●●●●●●●●● ●
●● ● ● ●● ● ● ● ●●●●●●●●●●●
● ● ● ● ●● ● ● ●
● ● ● ●●● ● ● ● ●
● ●●●●● ●●● ●● ● ●
CODE: [Copy to clipboard]@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=
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |