[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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


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

本帖最后由 CrLf 于 2015-12-4 22:13 编辑

回复 4# pcl_test


    分享个简写的技巧:
  1. ['A','r','r','a','y'].sort(function(){return Math.random()-.5});
复制代码
1

评分人数

    • pcl_test: nice,又可提升下逼格了技术 + 1

TOP

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

TOP

划算^^ : )

TOP

回复 7# 523066680

ˉ\_(ツ)_/ˉ

性价比高到爆表啊!

TOP

回复 6# aa77dd@163.com


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

TOP

1000000个文件!!!

TOP

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

TOP

本帖最后由 pcl_test 于 2015-12-5 01:30 编辑
  1. /*&cls
  2. @echo off
  3. dir /b *.txt|cscript -nologo -e:jscript "%~f0"
  4. pause&exit
  5. */
  6. var str = [];
  7. var fso = new ActiveXObject('Scripting.FileSystemObject');
  8. while (!WScript.StdIn.AtEndOfStream){
  9.     var filename = WScript.StdIn.Readline();
  10.     var txt = fso.OpenTextFile(filename, 1).ReadAll().replace(/(\r?\n)+/g,'\r\n').replace(/\r?\n$/,'').split('\r\n');
  11.     for (var i=0; i<txt.length; i++){
  12.         str.push(txt[i]);
  13.     }
  14. }
  15. //总行数不足100行,扩充到100行以上
  16. //while(str.length<100)Array.prototype.push.apply(str, str);
  17. for (var i=1; i<=10000; i++){  //建立10000个文件夹
  18.     if(!fso.FolderExists(i))fso.CreateFolder(i);
  19.     for (var j=1; j<=100; j++){  //每个文件夹建立100个txt文件
  20.         //str.sort(function(a, b){return Math.random()>.5?-1:1});
  21.         var tmp = '';
  22.         for (var k=0; k<100; k++){  //每个txt文件写入100行
  23.            //tmp = tmp+String(str[k])+'\r\n';
  24.            tmp += str[Math.floor(Math.random()*str.length)]+'\r\n';
  25.         }
  26.         var file = '.\\'+i+'\\'+j+'.txt';
  27.         fso.CreateTextFile(file, 2).Write(tmp);
  28.     }
  29.    
  30. }
  31. WSH.echo('完成');
复制代码

TOP

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

TOP

联系QQ  55075138

TOP

返回列表