网友求助:bat设计要求:一个抽奖人数为80人的小公司抽奖。中奖人数设定为12人。中过奖的人不得重复中奖。 每次抽取3人。场景设置:显示屏,抽奖用号码牌个80,从1
@echo off&cd /d "%~dp0"
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
set choice=3
for /f "delims=:" %%a in ('type "%~f0"^|findstr /n "^exit"') do set "last=%%a"
set n=0&for /f "tokens=1* delims=:" %%a in ('type "%~f0"^|more +%last%^|findstr /n .') do (
set "_#%%~a=%%~b"&set "count=%%a"
)
set /a "m=0,n=0"
:loop
set /a "r=%random% %% count +1"
if not defined _$%r% (
setlocal enabledelayedexpansion
echo;!_#%r%!
endlocal
set /a "m+=1,n+=1"
set _$%r%=1
)
if %n% geq %choice% (
rem cls
set n=0&pause
)
if %m% geq %count% (goto end)
goto loop
:end
echo;%#% +%$%%$%/%_% %z%
pause
exit
name1
name2
name3
name4
name5
name6
namen
到80,个人随机抽取。抽取后开始运行程序公布结果。