批处理点名器为何只能点31个人？求帮助

1035390697

一个点名器，但是只能点31个人，不知道怎么办
求大佬们指导一下，修改一下最好了
救救孩子！

我把代码放下面

1. @echo off
   
2. title 点名软件
   
3. 
   
4. echo 请将名单写在同目录下 名单.txt，写在一行，用中文逗号（，）隔开
   
5. echo
   
6. if not exist "名单.txt"  echo 小张，小王，小李，小刘>名单.txt
   
7. pause
   
8. cls
   
9. 
   
10. REM 启用延迟环境变量扩展
    
11. setlocal enabledelayedexpansion
    
12. 
    
13. :: 统计个数
    
14. call :_get_count
    
15. 
    
16. :: 生成随机变量 $n$
    
17. for /l %%i in (1,1,%nCount%) do (
    
18.   call :_rnd %%i
    
19. )
    
20. 
    
21. :: 随机点名，每个人只点一次
    
22. echo 点名开始！
    
23. for /l %%i in (1,1,%nCount%) do (
    
24.   REM 从随机变量中读取值
    
25.   for /f "delims=??" %%j in ('echo,!$%%i$!') do (set/p p=!$%%i$![%%i/%nCount%].  !#%%j#!  <nul)
    
26.   pause
    
27. )
    
28. echo 点名结束！
    
29. pause
    
30. goto :eof
    
31. 
    
32. 
    
33. :: 统计个数，生成升序变量 #n#
    
34. goto :eof
    
35. :_get_count
    
36. set/a nCount=1
    
37. :_count
    
38.   for /f "delims=， tokens=%nCount%" %%i in (名单.txt) do (
    
39.     set/a nCount=%nCount% + 1
    
40.     REM add env $$
    
41.     set "#%nCount%#=%%~i"
    
42.     echo %nCount%. %%~i
    
43.     goto :_count
    
44.   )
    
45.   set/a nCount=%nCount% - 1
    
46.   goto :eof
    
47. 
    
48.   
    
49. :: 生成随机变量 $n$
    
50. goto :eof
    
51. :_rnd
    
52.   set/a min=1
    
53.   set/a max=%nCount%
    
54.   set/a num=(%random%) %% (%max% - %min% + 1) + %min%
    
55.   if defined $%num%$ goto :_rnd
    
56.   REM add env ##
    
57.   set $%num%$=%1
    
58.   goto :eof

复制代码

Batcher

http://bbs.bathome.net/thread-12500-1-1.html
http://bbs.bathome.net/thread-5548-1-1.html
阅读一下这两篇文章

Batcher

如果觉得超过31列不好处理，建议修改一下代码逻辑：
请将名单写在同目录下 名单.txt，每个名字一行