@echo off
set n=5
set m=20
set "r=d:\文本.txt"
set "s=d:\输出.txt"
for /f "delims=:" %%a in ('findstr /n .* "%r%"') do set k=%%a
for /l %%a in (1,1,%m%) do call:a
exit
:a
setlocal
:b
set/a b=%random%%%k+1
if defined #%b% goto:b
set/a a+=1
set #%b%==
if %a% leq %n% goto:b
(
for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%r%"') do if defined #%%a set/p"=%%b"<nul
echo/
)>>"%s%"
Endlocal
复制代码

@echo off&setlocal enabledelayedexpansion
findstr /n . 2.txt>>3.txt
set n=0
:1
set /a a=%random%%%200+1
findstr /bc:"%a%:" 3.txt>>4.txt
for /f %%i in (4.txt)do (findstr /xc:"%%i" 3.txt)>>3.txt
 )
set /a n+=1
if "%n%" equ "5" (goto :2) else goto 1
echo 出现错误&pasue&goto :eof
:2
for /f "tokens=1* delims=:" %%i in (4.txt) do set /p a=%%i,<nul>>5.txt
for /f "tokens=1-5 delims=," %%1 in (5.txt) do set b=%%1%%2%%3%%4%%5
for /f "tokens=1* delims=:" %%i in (4.txt) do echo %%j >>%b%.txt
del 3.txt&del 4.txt
REM 如果感到%b%.txt有点乱,就看一下5.txt吧,原因是%b%的并不是行数从小到大的顺序
pause
 
复制代码

@echo off
set n=5
set m=20
set "p=_"
for %%a in (*.txt) do (
        for /f "delims=:" %%a in ('findstr /n .* "%%a"') do set k=%%a
        for /l %%b in (1,1,%m%) do call:a "%%a"
)
exit
:a
setlocal
:b
set/a b=%random%%%k+1
if defined #%b% goto:b
set/a a+=1
set #%b%==
if %a% leq %n% goto:b
(
for /f "tokens=1* delims=:" %%a in ('findstr /n .* %1') do if defined #%%a (
        if defined a (
                set/p"=%%b"<nul
                set a=
        ) else set/p"=%p%%%b"<nul
)
echo/
)>>"%~dp1输出_%~nx1"
Endlocal
复制代码