@echo off
title 点名软件
echo 请将名单写在同目录下 名单.txt，写在一行，用中文逗号（，）隔开，如：
echo 小张，小王，小李，小刘
pause
set a=1
:0
for /f "delims=， tokens=%a%" %%i in (名单.txt) do (set /a a=%a%+1&goto 0)
set  /a a=%a%-1
:1
set /a b=%random%%%%a%+1
for /f "delims=， tokens=%b%" %%i in (名单.txt) do echo %%i&pause&cls
goto 1
复制代码

:1
set /a b=%random%%%%a%+1
for /f "delims=， tokens=%b%" %%i in (名单.txt) do echo %%i&pause&cls
goto 1
复制代码

@echo off
title 点名软件
echo 请将名单写在同目录下 名单.txt，写在一行，用中文逗号（，）隔开，如：
echo 小张，小王，小李，小刘
if not exist "名单.txt"  echo 小张，小王，小李，小刘>名单.txt
if exist "已点名单.txt"  del /q /f  "已点名单.txt"
pause
cls

set a=1
:0
for /f "delims=， tokens=%a%" %%i in (名单.txt) do (set /a a=%a%+1&goto 0)
set  /a a=%a%-1

:1
set /a b=%random%%%%a%+1
if exist  "已点名单.txt" (
    for /f "delims=， tokens=%b%" %%i in (名单.txt) do (
        type "已点名单.txt" |find /i "%%i" >nul 2>nul && goto :1
    )
)
set  /a c=%c%+1
for /f "delims=， tokens=%b%" %%i in (名单.txt) do (
    echo %%i >>"已点名单.txt"
    echo [%c%/%a%]%%i
    pause
    cls
)
if %c% geq %a% (
    echo 点名结束！
    if exist "已点名单.txt"  del /q /f  "已点名单.txt"
    pause
    goto :eof
)
goto 1
复制代码

@echo off
title 点名软件

echo 请将名单写在同目录下 名单.txt，写在一行，用中文逗号（，）隔开，如：
echo 小张，小王，小李，小刘
if not exist "名单.txt"  echo 小张，小王，小李，小刘>名单.txt
pause
cls

REM 启用延迟环境变量扩展 
setlocal enabledelayedexpansion 

:: 统计个数
call :_get_count

:: 生成随机变量 $n$
for /l %%i in (1,1,%nCount%) do (
  call :_rnd %%i
)

:: 随机点名，每个人只点一次
echo 点名开始！
for /l %%i in (1,1,%nCount%) do (
  REM 从随机变量中读取值
  for /f "delims=??" %%j in ('echo,!$%%i$!') do (set/p p=!$%%i$![%%i/%nCount%].  !#%%j#!  <nul)
  pause
)
echo 点名结束！
pause
goto :eof


:: 统计个数，生成升序变量 #n#
goto :eof
:_get_count
set/a nCount=1
:_count
  for /f "delims=， tokens=%nCount%" %%i in (名单.txt) do (
    set/a nCount=%nCount% + 1
    REM add env $$
    set "#%nCount%#=%%~i"
    echo %nCount%. %%~i
    goto :_count
  )
  set/a nCount=%nCount% - 1
  goto :eof

  
:: 生成随机变量 $n$
goto :eof
:_rnd
  set/a min=1
  set/a max=%nCount%
  set/a num=(%random%) %% (%max% - %min% + 1) + %min%
  if defined $%num%$ goto :_rnd
  REM add env ##
  set $%num%$=%1
  goto :eof
复制代码