[文本处理] 批处理如何从一个txt文本里随机提取指定数目的行添加到其它多个文本的末尾？

needhelp

大家好，有个问题想请各位大神帮助解决

大致是这样的，
有101个TXT文件，其中有一个all.txt里有1000行，其它100个1.txt, 2.txt,...,100.txt，每个里面都是一篇小短文。
现在我想
每次随机从all.txt这1000行里取10行，添加到其它100个TXT文件中的某一个，直到这100个TXT文件每个都被添加过一次。
（每次随机抽取的10行数据可以有重复的行）

麻烦大神们帮帮忙，先谢谢各位了，祝大家开心快乐

yjqrsyg

回复 16# Batcher


谢谢

Batcher

回复 15# yjqrsyg


    需要下载 gawk.exe http://bcn.bathome.net/s/tool/index.html?key=gawk

yjqrsyg

回复 12# pcl_test


前面没看懂，原来是第三方，不知道要怎么运行，还请指教，谢谢

yjqrsyg

回复 12# pcl_test


老大，这个代码运行后没有任何动作？

如果是取一个文件中随机的几个行加到其它文件中做内容，这个代码…………？？？？

yjqrsyg

回复 2# terse

大侠你好,看了你的这个命令以,用了一下,好好玩呀,你真厉害!
如果这个批处理命令要是改成在头部添加,怎么写,我是菜鸟,什么也不懂,请指教,谢谢!

pcl_test

第三方

#*&cls&dir /a-d/b *.txt|find /i /v "all.txt"|gawk -f "%~f0"&pause&exit
BEGIN{
    srand();
    file="all.txt";
    n=10;
    while(getline<file>0){
        m++;a[m]=$0;
    }
    while(getline>0){
        s="\n";
        for(i=1;i<=n;i++){
            r=int(rand()*m+1);
            s=s""a[r]"\n"
        }
        printf s>>$0;  
    }
}
复制代码

PCL2012

高深莫测，膜拜！

xxpinqz

或者不考虑随机数的顺序，效率会高一点
17233=50000-32767

@echo off&setlocal enabledelayedexpansion
set "fn=all.txt"
for /l %%a in (1,1,1020) do (
     set/a r=!random!+!random!%%17233+1
     set "var=!var!!r!: "
)
findstr /n .* "%fn%"|findstr /b "%var%" >tmp
(for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
    if not "%%i"=="%fn%" (
        (for /l %%a in (1 1 10) do (
             set/p str=
              echo,!str:*:=!
         ))>>"%%i"
    )
))<tmp
del tmp
复制代码

xxpinqz

回复 8# needhelp
纯P处理这么大文件可不行，换个思路试试:

@echo off&setlocal enabledelayedexpansion
findstr /n .* all.txt >tmp
for /l %%a in (1,1,1020) do (
     set/a r=!random!+!random!%%17233+1
     set "var=!var!!r!: "
)
for /f "tokens=1* delims=:" %%a in ('findstr /b "!var!" tmp') do (
    set /a n+=1
    if !n! leq 1000 set "#!n!=%%b"
)
for /f "delims=" %%i in ('dir /b /a-d *.txt ^| findstr /ivx "all\.txt"') do (
    (for /l %%a in (1 1 10) do (
        set /a n=!random!%%1000+1
        for %%b in (!n!) do echo !#%%b!
    ))>>"%%i"
)
del tmp
复制代码

needhelp

在all.txt保存接近50000行的数据，结果用这个批处理跑不动了，老半天没反应

terse

回复 4# xxpinqz
谢谢提醒 8行确实 应该  ))>>"%%i"

needhelp

刚发现添加的文本是直接跟在原有文本的最后，结果类似于:
这是原有文本内容。然后直接就接上随机的内容了。

有没有办法换一行再接上呢？例如：
这是原有文本内容。
接上随机的内容，但是换一行再接。

麻烦各位再帮我改一下，谢谢！

needhelp

回复 4# xxpinqz

谢谢xxpinqz，今天没分加了...
这论坛的人真好，乐于助人，祝大家身体健康，开心快乐

xxpinqz

纯p这样的效率应该很高了吧。
可惜findstr的结果会自动排序，要不效率应该会快点。
m取值为n不是更合理，第8行应该追加吧 ))>>"%%i"