[文本处理] [已解决]批处理怎样随机抽取不同文件中的一段组成新文章？

clcavril

文件夹下有数篇不同的文章,数量不定, 都是形如xx.txt的,文件名长度不定

现在想随机从一个txt中抽取出1段  (以换行作为段落标志)可参考此帖; http://www.bathome.net/viewthrea ... ghlight=%2Bfanfande

随机抽取8个txt文件,得到8个段落,然后把这8个段落合并为一个新的txt,保存到articles文件夹下

下面是txt样本,有40个txt文件


http://u.115.com/file/aq36fy8h

先谢谢大家了

batman

@echo off&setlocal enabledelayedexpansion
if not exist articles md articles
for %%a in (*.txt) do set "_!random!_%%~na=%%a"
(for /f "tokens=2 delims==" %%a in ('set _') do (
  set /a n+=1
  if !n! leq 8 (
    setlocal
    for /f "usebackq delims=" %%b in ("%%a") do set /a m+=1&set ".!m!=%%b"
    set /a a=!random!%%!m!+1
    for %%b in (!a!) do echo !.%%b!
    endlocal
  )
))>articles\new.txt
复制代码

clcavril

谢谢
验证可用