UC知道批处理做双色球随机算号器
来源：百度知道 编辑：UC知道 时间：2024/06/24 15:10:44
要求：
其实很简单，就是打开后要我输入一些数字然后随机取出6+1即可。
答案好再加分！
锐，我要的就是你后面那个批处理啊，但是能优化下吗？
为什么开始要输入<10的数前面要加0呢？太麻烦啦！
另外我精简了下上次那个批处理的代码终于可以贴出来了~哈哈！
@ECHO OFF&MODE CON LINES=9 COLS=31
CLS&SET/A N=0&TITLE 〖双色球〗
ECHO/输入排除的红码如(1,3,5)：
SET/P NOR=
ECHO/输入排除的蓝码如(2,4,6)：
SET/P NOB=
ECHO/输入一定要的红码如(6,8,10)：
SET/P YR=
:AG
CLS&SETLOCAL ENABLEDELAYEDEXPANSION
FOR /L %%A IN (1 1 6)DO CALL:CCP,"%%A"
SET/A "B=%RANDOM%%%16+1"
SET "R=%R1% %R2% %R3% %R4% %R5% %R6%"
FOR %%B IN (%R%)DO FOR %%C IN (%R%)DO (
IF %%C==%%B SET/A N+=1 & IF !N!==7 GOTO AG)
FOR %%D IN (%NOR%)DO FOR %%E IN (%R%)DO IF %%D==%%E GOTO AG
FOR %%F IN (%B%)DO FOR %%G IN (%NOB%)DO IF %%F==%%G GOTO AG
CLS&ECHO/ 红球随机号：
FOR /F "TOKENS=1-6 DELIMS=, " %%A IN ("%YR%,%R%")DO (
ECHO/ %%A %%B %%C %%D %%E
哎，我连双色球有些什么号都不知到！
首先声明：
1、我到百度是来学习的，不是为显示自己的才能而来的！（我也没才能显示，呵呵～）
2、严重鄙视那些无术而不学还看不起初学者之人！
3、本人因年岁较小的确不知道双色球怎么玩！例如：一组号码中是否可以有重号，中奖号码是否要求按出奖顺序，最后一个号是否可以和前面的6个相同等等，我现在所写的批处理双色球知识都来自楼主的题目！
楼主，我现在按你的题目要求，随机得到一组1～33，6个各不相同且排除你不要和你一定要号码，加一个1～16且排除你不要的号！
以下是批处理代码，为了方便测试代码是否正确，生成10组符合要求的代码，保存到222.txt中，请楼主测试。
本代码三项要求输入的项中只输入那一项或不输入那一项，或全部都不输入或全部输入等，都会得到符合要求的号码，即，排除不要的号既是要的号。
注：写入号码时10以下的数前加0，如1要写成01。
@echo off
set /p NOR=请输入要排除的蓝号码,用逗号隔开：
set /p BUY=请输入要排除的红号码,用逗号隔开：
set /p YD=请输入一定要的红号码,用逗号隔开：
if exist "222.txt" del /q /f /a "222.txt"
set /a m=0
:XH1
set R0=a&set R1=b&set R2=c&set R3=d&set R5=e&set R5=f&set R6=0
set /a n=0
:XH
set /a Rui=%random%%%33+1
if %Rui% LSS 10 set "Rui=0%Rui%"
if %n% GTR 5 goto Tiao
for %%a in (%BUY%) do if %Rui%==%%a goto XH
:Tiao
set "R%n%=%Rui%"
if /i "%R1%"==&quo