Board logo

标题: [特效代码] 批处理怎样列数组(像vbs那样) [打印本页]

作者: dengyuli    时间: 2013-9-13 19:25     标题: 批处理怎样列数组(像vbs那样)

我想做一个能按你的操作移动的点,预览:
可是做出来以后,就是不能运行,代码如下:
  1. @echo off
  2. color 1b
  3. set x=0
  4. set /a y=x+1
  5. set p=●○
  6. set line0=%p:~0,1%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
  7. set line1=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
  8. set line2=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
  9. set line3=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
  10. set line4=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
  11. :fstrn
  12. echo %line0%
  13. echo %line1%
  14. echo %line2%
  15. echo %line3%
  16. echo %line4%
  17. ckey 99 87 83 65 68
  18. if %errorlevel%==1 goto:pdw
  19. if %errorlevel%==2 goto:pds
  20. if %errorlevel%==3 goto:pda
  21. if %errorlevel%==4 goto:pdd
  22. goto:fstrn
  23. :pdw
  24. if %x%==0 goto:echo
  25. set /a x=x-1
  26. set /a y=x+1
  27. set line%x%=%line%y%%
  28. set line%y%=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
  29. goto:echo
  30. :pds
  31. if %x%==4 goto:echo
  32. set /a x=x+1
  33. set /a y=x-1
  34. set line%x%=%line%y%%
  35. set line%y%=%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%%p:~1,2%
  36. goto:echo
  37. :pda
  38. if %line%x%:~0,1%==● goto:echo
  39. if %line%x%%==○●○○○ set line%x%=●○○○○ & goto:echo
  40. if %line%x%%==○○●○○ set line%x%=○●○○○ & goto:echo
  41. if %line%x%%==○○○●○ set line%x%=○○●○○ & goto:echo
  42. if %line%x%%==○○○○● set line%x%=○○○●○ & goto:echo
  43. goto:echo
  44. :pdd
  45. if %line%x%:~4,5%==● goto:echo
  46. if %line%x%%==●○○○○ set line%x%=○●○○○ & goto:echo
  47. if %line%x%%==○●○○○ set line%x%=○○●○○ & goto:echo
  48. if %line%x%%==○○●○○ set line%x%=○○○●○ & goto:echo
  49. if %line%x%%==○○○●○ set line%x%=○○○○● & goto:echo
  50. goto:echo
  51. :echo
  52. cls
  53. echo %line0%
  54. echo %line1%
  55. echo %line2%
  56. echo %line3%
  57. echo %line4%
  58. ckey 99 87 83 65 68
  59. if %errorlevel%==1 goto:pdw
  60. if %errorlevel%==2 goto:pds
  61. if %errorlevel%==3 goto:pda
  62. if %errorlevel%==4 goto:pdd
  63. goto:echo
复制代码
请问:bat能像vbs那样列数组吗?代码如下:
  1. dim a(9) '从零开始
  2. for i=0 to 9
  3. a(i)=i '填充每一个数组元素
  4. msgbox a(i) '输出数组元素
  5. next
复制代码

作者: batman    时间: 2013-9-13 19:43

回复 1# dengyuli


    这种特效,论坛有很多,批模拟的数组比vbs还方便。。。
作者: batman    时间: 2013-9-13 19:49

http://www.bathome.net/viewthrea ... hlight=%B5%E3%D5%F3




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2