真诚有偿求助，RMB300，支付宝，工作遇到问题，急需帮助

55075138

读取该目录下的每个TXT文件，TXt文件都是类似图内有规律一行一行的，获取每行，复制到汇总.txt，再随机从汇总.txt读取100行，要求随机，生成新的txt文件，名称无要求，再保存到名称为1,2,3，，4.。10000的文件夹内，文件夹名称固定的是从1到10000，每个文件夹存放100个新生成的txt文本。


已解决，感谢pcl_test 兄弟的帮忙

55075138

联系QQ  55075138

CrLf

生成的总数是这样吗？
10000个文件夹 * 100个文件 * 100行

pcl_test

/*&cls
@echo off
dir /b *.txt|cscript -nologo -e:jscript "%~f0"
pause&exit
*/

var str = [];
var fso = new ActiveXObject('Scripting.FileSystemObject');
while (!WScript.StdIn.AtEndOfStream){
    var filename = WScript.StdIn.Readline();
    var txt = fso.OpenTextFile(filename, 1).ReadAll().replace(/(\r?\n)+/g,'\r\n').replace(/\r?\n$/,'').split('\r\n');
    for (var i=0; i<txt.length; i++){
        str.push(txt[i]);
    }
}

//总行数不足100行，扩充到100行以上
//while(str.length<100)Array.prototype.push.apply(str, str);

for (var i=1; i<=10000; i++){  //建立10000个文件夹
    if(!fso.FolderExists(i))fso.CreateFolder(i);
    for (var j=1; j<=100; j++){  //每个文件夹建立100个txt文件
        //str.sort(function(a, b){return Math.random()>.5?-1:1});
        var tmp = '';
        for (var k=0; k<100; k++){  //每个txt文件写入100行
           //tmp = tmp+String(str[k])+'\r\n';
           tmp += str[Math.floor(Math.random()*str.length)]+'\r\n';
        }
        var file = '.\\'+i+'\\'+j+'.txt';
        fso.CreateTextFile(file, 2).Write(tmp);
    }
    
}

WSH.echo('完成');
复制代码

55075138

是的。10000X100X100应该是用变量，方便以后修改

aa77dd@163.com

1000000个文件!!!

523066680

回复 6# aa77dd@163.com


    这个悬赏比那个打卡机划算吧

aa77dd@163.com

回复 7# 523066680

ˉ\_(ツ)_/ˉ

性价比高到爆表啊!

terse

划算^^ : )

CrLf

早上在外办事，不然就把 pcl 截胡了哈哈，哥就是这么个见钱眼开的货

CrLf

回复 4# pcl_test


    分享个简写的技巧：

['A','r','r','a','y'].sort(function(){return Math.random()-.5});
复制代码