找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 26502|回复: 10

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

  [复制链接]
发表于 2015-12-4 08:01:30 | 显示全部楼层 |阅读模式
读取该目录下的每个TXT文件,TXt文件都是类似图内有规律一行一行的,获取每行,复制到汇总.txt,再随机从汇总.txt读取100行,要求随机,生成新的txt文件,名称无要求,再保存到名称为1,2,3,,4.。10000的文件夹内,文件夹名称固定的是从1到10000,每个文件夹存放100个新生成的txt文本。


已解决,感谢pcl_test 兄弟的帮忙
 楼主| 发表于 2015-12-4 08:01:48 | 显示全部楼层
联系QQ  55075138
发表于 2015-12-4 09:33:57 | 显示全部楼层
生成的总数是这样吗?
10000个文件夹 * 100个文件 * 100行
发表于 2015-12-4 09:58:56 | 显示全部楼层
本帖最后由 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('完成');
复制代码
 楼主| 发表于 2015-12-4 10:04:26 | 显示全部楼层
是的。10000X100X100应该是用变量,方便以后修改
发表于 2015-12-4 13:27:00 | 显示全部楼层
1000000个文件!!!
发表于 2015-12-4 19:15:59 | 显示全部楼层
回复 6# aa77dd@163.com


    这个悬赏比那个打卡机划算吧
发表于 2015-12-4 20:07:57 | 显示全部楼层
回复 7# 523066680

ˉ\_(ツ)_/ˉ

性价比高到爆表啊!
发表于 2015-12-4 20:30:19 | 显示全部楼层
划算^^ : )
发表于 2015-12-4 21:27:11 | 显示全部楼层
早上在外办事,不然就把 pcl 截胡了哈哈,哥就是这么个见钱眼开的货
发表于 2015-12-4 22:09:36 | 显示全部楼层
本帖最后由 CrLf 于 2015-12-4 22:13 编辑

回复 4# pcl_test


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

评分

参与人数 1技术 +1 收起 理由
pcl_test + 1 nice,又可提升下逼格了

查看全部评分

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 05:26 , Processed in 0.025655 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表