公司人員抽獎bat先上代碼，，，，，，，，，，，

@Echo off
Set 文件路徑=C:UsersAdministratorDesktop潤人名單.txt
IF NOT EXIST %文件路徑% Echo.找不到名單列表，按任意鍵退出！& Pause>Nul & Exit
IF EXIST %TEMP%name_bak.txt del /q /s %TEMP%name_bak.txt >Nul 
For /f delims= %%i in ('Type %文件路徑%') do ( If Not %%i== echo.%%i>>%TEMP%name_bak.txt )
For /f%%a in ('Type %TEMP%name_bak.txt ^|Find  /V /C' ) do ( Set h=%%a )
Set/p 抽獎次數=請輸入要抽獎名額：
If %抽獎次數%== Cls & Echo.沒有輸入抽獎名額，按任意鍵退出！& Pause>Nul & Exit
if %抽獎次數% gtr %h% Cls &Echo.錯誤，大于名單人數，按任意鍵退出！& Pause>Nul & Exit
Cls
:循環
Call,:數檢
Set/a 循環次數+=1
Set 查重=%查重% %R%
For /f tokens=1,2,* delims=: %%a in ('FindStr /N /O .* %TEMP%name_bak.txt ^| FindStr /B <%R%:') do ( Echo.%%c )
If not %抽獎次數%==%循環次數% goto,循環
Echo.&Echo.抽獎完畢，按任意鍵退出！
Pause>Nul
IF EXIST %TEMP%name_bak.txt del /q /s %TEMP%name_bak.txt >Nul & Exit
:數檢
Set R=%RANDOM%
if %R% lss 1 Goto,數檢
if %R% gtr %h% Goto,數檢
@ECHO %R% | FINDSTR /I %查重% >NUL 2>NUL&&GOTO,數檢
Goto,:eof
nclick="copycode($('code0'));">復制代碼

此前發表過《批處理版雙色球幸運抽獎(新改版)》...http://www.bathome.net/thread-70810-1-2.html根據思路改寫成公司人員抽獎.bat，，，，一般公司里的人員名單在HR哪里都有個 Excel 表。只要復制 縱列人員名字，粘貼到本文 ASNI編碼保存，修改路徑

Set 文件路徑=C:UsersAdministratorDesktop潤人名單.txt
nclick="copycode($('code1'));">復制代碼

即可！鄙人所在單位 百來幾十號人，年底都是實物卡片抽十來號人獎勵，身為小部門主管。鄙人也可以在部門內隨時辦一個 無紙化 抽獎，來決定哪幾個倒霉蛋留下來加班，，，哈哈。