我想做一个能按你的操作移动的点,预览:
可是做出来以后,就是不能运行,代码如下:- @echo off
- color 1b
- set x=0
- set /a y=x+1
- set p=●○
- set line0=%p:~0,1%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
- set line1=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
- set line2=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
- set line3=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
- set line4=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
- :fstrn
- echo %line0%
- echo %line1%
- echo %line2%
- echo %line3%
- echo %line4%
- ckey 99 87 83 65 68
- if %errorlevel%==1 goto:pdw
- if %errorlevel%==2 goto:pds
- if %errorlevel%==3 goto:pda
- if %errorlevel%==4 goto:pdd
- goto:fstrn
- :pdw
- if %x%==0 goto:echo
- set /a x=x-1
- set /a y=x+1
- set line%x%=%line%y%%
- set line%y%=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
- goto:echo
- :pds
- if %x%==4 goto:echo
- set /a x=x+1
- set /a y=x-1
- set line%x%=%line%y%%
- set line%y%=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
- goto:echo
- :pda
- if %line%x%:~0,1%==● goto:echo
- if %line%x%%==○●○○○ set line%x%=●○○○○ & goto:echo
- if %line%x%%==○○●○○ set line%x%=○●○○○ & goto:echo
- if %line%x%%==○○○●○ set line%x%=○○●○○ & goto:echo
- if %line%x%%==○○○○● set line%x%=○○○●○ & goto:echo
- goto:echo
- :pdd
- if %line%x%:~4,5%==● goto:echo
- if %line%x%%==●○○○○ set line%x%=○●○○○ & goto:echo
- if %line%x%%==○●○○○ set line%x%=○○●○○ & goto:echo
- if %line%x%%==○○●○○ set line%x%=○○○●○ & goto:echo
- if %line%x%%==○○○●○ set line%x%=○○○○● & goto:echo
- goto:echo
- :echo
- cls
- echo %line0%
- echo %line1%
- echo %line2%
- echo %line3%
- echo %line4%
- ckey 99 87 83 65 68
- if %errorlevel%==1 goto:pdw
- if %errorlevel%==2 goto:pds
- if %errorlevel%==3 goto:pda
- if %errorlevel%==4 goto:pdd
- goto:echo
复制代码 请问:bat能像vbs那样列数组吗?代码如下:- dim a(9) '从零开始
- for i=0 to 9
- a(i)=i '填充每一个数组元素
- msgbox a(i) '输出数组元素
- next
复制代码
|