[文本处理] 批处理如何不断随机取n个txt文本另存？

@echo off
setlocal enabledelayedexpansion
:loop
set /a folder+=1
md folder
for /f "delims=" %%i in ('dir /b *.txt') do (
    set /a n+=1
    set "#!n!=%%~fi"
)
for /l %%i in (1 1 40) do (
    set /a num=!random!%%n+1
    for %%j in (!num!) do copy "!#%%j!" ".\!folder!"
)
ping -n 5 localhost>nul
rem 大概延时5s
rem 如果系统为win7以上可以用 timeout /t 5代替之
goto loop
复制代码

@echo off&setlocal enabledelayedexpansion
dir /b /s *.txt>$
for /f "tokens=2 delims=:" %%a in ('find /c /v "" $') do set/al=%%a
:loop
set/an+=1
set str=
title copy number !n!
md !n! 2>nul
for /l %%a in (1,1,40) do (
     set/a s=!random!%%l+1
     set "str=!str!!s!: "
)
for /f "tokens=1* delims=:" %%a in ('findstr /n . $^|findstr /b "!str!"') do copy "%%b" ".\!n!"
ping -n 5 localhost>nul
goto loop
复制代码