@echo off &setlocal enabledelayedexpansion
for /f "delims=" %%i in (111.txt) do (
	call :rd
	set f_!rd!=%%i
	)
)
set n=5
for /f "delims==" %%i in ('set f_') do (
	set /a "x+=1, 1/( x%%(n+1) )" 2>nul &&echo !%%i! || goto end
)
:end
pause
goto :eof
:rd
set /a rd=%random%
if defined f_%rd% goto rd
goto :eof
复制代码

@echo off&setlocal enabledelayedexpansion
set N=12
for /f "delims=" %%a in (a.txt) do (
  set /a L+=1
  set "_!L!=%%a"
)
if %N% gtr %L% set N=%L%
(for /l %%a in (1 1 %N%) do call :Loop)>b.txt
goto :eof

:Loop
set /a r=%random% %% L + 1
if defined .%r% (goto :Loop) else set .%r%=1&echo,!_%r%!
复制代码

N = 6
Set FSO = CreateObject("Scripting.FileSystemObject")
Text = FSO.OpenTextFile("a.txt",1).ReadAll
Arr = Split(Text,vbCrLf)
ReDim B(Ubound(Arr))
If N > UBound(Arr) + 1 Then N = UBound(Arr) + 1
Do Until N = i
   Randomize
   r = Int((Ubound(Arr) + 1)* Rnd)
   If B(r) = "" Then
      Str = Str & Arr(r) & vbCrLf
      B(r) = "1" : i = i + 1
   End If
Loop
FSO.OpenTextFile("b.txt",2,True).Write Str
MsgBox "OK"
复制代码

@echo off & setlocal enabledelayedexpansion
for /f %%i in (a.txt) do (
   set /a n+=1
   set _!n!=%%i
)
echo 共有%n%行

for /l %%i in (1 1 5) do (
   set /a m=!random!%%%n%+1
   call echo %%_!m!%%
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
  set /a n+=1
  set "_!random!_!n!=%%a"
)
(for /f "tokens=1* delims==" %%a in ('set _') do (
  set /a m+=1
  if !m! leq 5 echo,%%b
))>new.txt
start new.txt
复制代码

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("a.txt",1)
Do Until File.AtEndOfStream
   ReDim Preserve Arr(i)
   Arr(i) = File.ReadLine
   i = i + 1
Loop

Do Until N = 6
   Randomize
   r = Int((UBound(Arr) + 1) * Rnd)
   If InStr(Str,Arr(r)) = 0 Then
      Str = Str & Arr(r) & vbCrLf
      N = N + 1
   End If
Loop
FSO.OpenTextFile("b.txt",2,True).Write Str
MsgBox "OK"
复制代码