今天看到同事在为买彩票选号码，一时心血来潮写了这个P。由于本人不玩彩票，因此不熟悉其中的规则，肯定还有许多要改进的地方，就有劳有心人了。
（注：有个思路将以前的中奖号码全存进txt，在批处理中加入查找所选号码，如以前有的就重选一次）
提示：17楼为更新后的不生成临时文件并加入次数限制和密码认证的完善版
[ Last edited by zw19750516 on 2008-3-29 at 04:45 AM ]
（注：有个思路将以前的中奖号码全存进txt，在批处理中加入查找所选号码，如以前有的就重选一次）
提示：17楼为更新后的不生成临时文件并加入次数限制和密码认证的完善版
@echo off&color 5f&mode con cols=50 lines=8
title 彩票号码选取器
:begin
if exist n.txt del n.txt
cd. >n.txt
cls
set a=35
echo.&echo.&echo.
set /p a=请输入在多少个数中选择（默认回车为35）：
set /a a=a+1
cls
set b=7
echo.&echo.&echo.
set /p b=请输入选择多少个数（默认回车为7）：
for /l %%i in (1,1,%b%) do call :select
cls
set /p namber=<n.txt
find "%namber%" a.txt >nul
if errorlevel 1 goto show
if errorlevel 0 goto begin
:show
echo.&echo.&echo. >n.txt
echo 选择出的号码为:%namber% >>n.txt
type n.txt
pause&del n.txt
cls
echo.&echo.&echo.
echo 选择完毕，请按任意键退出！
pause >nul&goto :eof
:select
set /p str=<n.txt
set /a n=%random%%%a
if %n% equ 0 goto select
find "%n%" n.txt >nul
if errorlevel 1 echo %str%%n% >n.txt&goto :eof
if errorlevel 0 goto select[ Last edited by zw19750516 on 2008-3-29 at 04:45 AM ]
批处理之家新域名：www.bathome.net
