[文本处理] 求助批处理随机抽取文件夹中的txt文件并合并

@echo off
setlocal enabledelayedexpansion
set "MergeFile=All.txt"
>"%MergeFile%" type nul
for %%a in ("a" "b" "c") do (
    pushd %%a
    for /f "delims=" %%i in ('dir /b /a-d') do (
        set "_%%~nxa_!random!=%%~nxa\%%i"
    )
    for /f "tokens=2 delims==" %%i in ('set _%%~nxa') do (
        set "RandFile=%%i"
    )
    popd
    >>"%MergeFile%" type "!RandFile!"
    >>"%MergeFile%" echo,
)
复制代码

@echo off
setlocal enabledelayedexpansion
set "MergeFile=All.txt"
>"%MergeFile%" type nul
for %%a in ("a" "b" "c") do (
    pushd %%a
    set n=0
    for /f "delims=" %%i in ('dir /b /a-d') do (
        set /a n+=1
        set "_!n!=%%~nxa\%%i"
    )
    set /a RandNum=!random!%%^(3-1+1^)+1
    call set "RandFile=%%_!RandNum!%%"
    popd
    >>"%MergeFile%" type "!RandFile!"
    >>"%MergeFile%" echo,
)
复制代码

@echo off
setlocal enabledelayedexpansion
for /d %%i in (*) do (
  set /a n=0
  for %%a in ("%%i\*.txt") do (set /a n+=1 & set r!n!=%%~fa)
  set /a s=!random!%%!n!+1
  call set "Stochastic=%%r!s!%%"
  type "!stochastic!">>all.txt
)
pause
复制代码

@echo off
type nul >"onlinetale.txt"
type nul >"onlinedata.txt"
for /f "delims=" %%i in ('dir /b /ad') do (
    dir /b /a-d "%%i\*table.txt" >>"onlinetale.txt"
    dir /b /a-d "%%i\*data.txt" >>"onlinedata.txt"
)
复制代码

@echo off
type nul >"onlinetale.txt"
type nul >"onlinedata.txt"
for /f "delims=" %%i in ('dir /b /ad') do (
    (for /f "delims=" %%j in ('dir /b /a-d "%%i\*table.txt"') do (
        type "%%j"
    ))>>"onlinetale.txt"
    (for /f "delims=" %%j in ('dir /b /a-d "%%i\*data.txt"') do (
        type "%%j"
    ))>>"onlinedata.txt"
)
复制代码