批处理版双色球幸运抽奖(新改版)

jiavip

先上代码，，，，，，，，，，，，，，

1. @Echo off&Color 0E&MODE CON: COLS=25 LINES=3&TITLE 双色球随机抽号，祝君好运!
   
2. Set "红球池=,,,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,"
   
3. Set "蓝球池=,,,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,"
   
4. Goto,红球
   
5. :Sr
   
6. Set/a "d=34-%1"
   
7. Set "R=%RANDOM%"
   
8. if %R% lss 1 Goto,Sr
   
9. if %R% gtr %d% Goto,Sr
   
10. Set/a r*=3
    
11. Goto,:eof
    
12. :EJia
    
13. Pushd %Temp%
    
14. Set "TJia=%~2"
    
15. Set/P="%~1"<Nul&Set/P="%~3  "<Nul>"%TJia%_"&FindStr /A:%~4 .* "%TJia%_*" &Del /q "%TJia%_"
    
16. Popd & Goto,:Eof
    
17. :红球
    
18. Set/a s+=1
    
19. Call,:Sr %s%
    
20. Call,Set "红球%s%=%%红球池:~%R%,3%%"
    
21. Call,Set "新红球=%%红球%s%%%"
    
22. Call,Set "红球池=%%红球池:%新红球%=%%"
    
23. Call,Set "红球%s%=%%红球%s%:~0,-1%%"
    
24. if not "%s%"=="6" Goto,红球
    
25. Call,:Sr 18
    
26. Call,Set "蓝球=%%蓝球池:~%R%,2%%"
    
27. Call,:EJia "红球=" "%红球1%" "-" 4f&Call,:EJia "" "%红球2%" "-" 4f&Call,:EJia "" "%红球3%" "-" 4f&Call,:EJia "" "%红球4%" "-" 4f&Call,:EJia "" "%红球5%" "-" 4f&Call,:EJia "" "%红球6%" "" 4f
    
28. Echo.&Call,:EJia "蓝球=" "%蓝球%" "      祝君好运!" 1f
    
29. Pause>Nul&Exit

复制代码

人啊就怕无聊，，，以前曾在论坛里发 过一个临时编写的初版，，，
http://www.bathome.net/thread-51617-1-1.html
最近无聊，，去翻了一下以前写的贴，，，
发现那时候的写法比较粗糙，生硬。
感觉可以有新的写法，，
刚好又无聊，就改写了这个新版本。
当然，也可以改写成其他的抽奖品种，，，
话说，现在的双色球 是不是33选6 +16选1 鄙人都搞不清楚了。
这里就只是改写 N年前的版本，
花了不少时间修改了不少编写时的变量错误，最后得出这个版本。
鄙人不好赌，也不相信什么运气学说。
写这类脚本，纯属的锻炼写法。
欢迎各位新旧网友们一起借鉴，讨论，批评，解答。

呵，最后还是那鄙人的那句格言，，，，
如果想知道什么是希望请买"一张彩票"，
如果想知道什么是绝望请买"一大堆彩票"！
人啊，不能太固执和认死理，否则会活得很累的！

Five66

不敢用 ,怕运气都用在bat上