公司人员抽奖.bat

jiavip

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

1. @Echo off
   
2. 
   
3. Set "文件路径=C:\Users\Administrator\Desktop\润人名单.txt"
   
4. 
   
5. IF NOT EXIST "%文件路径%" Echo.找不到名单列表，按任意键退出！& Pause>Nul & Exit
   
6. IF EXIST %TEMP%\name_bak.txt del /q /s %TEMP%\name_bak.txt >Nul
   
7. For /f "delims=" %%i in ('Type "%文件路径%"') do ( If Not "%%i"=="" echo.%%i>>%TEMP%\name_bak.txt )
   
8. For /f  %%a in ('Type "%TEMP%\name_bak.txt" ^|Find "" /V /C' ) do ( Set h=%%a )
   
9. 
   
10. Set/p 抽奖次数=请输入要抽奖名额：
    
11. If "%抽奖次数%"=="" Cls & Echo.没有输入抽奖名额，按任意键退出！& Pause>Nul & Exit
    
12. if %抽奖次数% gtr %h% Cls &  Echo.错误，大于名单人数，按任意键退出！& Pause>Nul & Exit
    
13. 
    
14. Cls
    
15. :循环
    
16. Call,:数检
    
17. Set/a 循环次数+=1
    
18. Set "查重=%查重% %R%"
    
19. For /f "tokens=1,2,* delims=:" %%a in ('FindStr /N /O ".*" %TEMP%\name_bak.txt ^| FindStr /B "\<%R%:"') do ( Echo.%%c )
    
20. If not "%抽奖次数%"=="%循环次数%" goto,循环
    
21. Echo.&Echo.抽奖完毕，按任意键退出！
    
22. Pause>Nul
    
23. IF EXIST %TEMP%\name_bak.txt del /q /s %TEMP%\name_bak.txt >Nul & Exit
    
24. :数检
    
25. Set "R=%RANDOM%"
    
26. if %R% lss 1 Goto,数检
    
27. if %R% gtr %h% Goto,数检
    
28. @ECHO %R% | FINDSTR /I "%查重%" >NUL 2>NUL&&GOTO,数检
    
29. Goto,:eof
    

复制代码

此前发表过《批处理版双色球幸运抽奖(新改版)》...
http://www.bathome.net/thread-70810-1-2.html

根据思路改写成  公司人员抽奖.bat  ，，，，

一般公司里的人员名单在HR哪里都有个 Excel 表。只要复制 纵列人员名字，粘贴到本文 ASNI编码保存，
修改路径

1. Set "文件路径=C:\Users\Administrator\Desktop\润人名单.txt"

复制代码

即可！
鄙人所在单位 百来几十号人，年底都是实物卡片抽十来号人奖励，
身为小部门主管。鄙人也可以在部门内随时办一个 无纸化 抽奖，来决定哪几个倒霉蛋留下来加班，，，哈哈。