[文本处理] 【已解决】批处理如何从多个文件夹里的每个txt文本中随机提取不重复的多行行内容？

Rank: 1

帖子: 13
积分: 16
技术: 0
捐助: 0
注册时间: 2016-7-5

3楼

发表于 2016-7-5 11:50 | 只看该作者

回复 2# WHY

如果随机数难搞，你也可以帮我搞成每个TXT第5行至第20行内的数据都读取出来。拜托了！

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

4楼

发表于 2016-7-5 15:50 | 只看该作者

本帖最后由 pcl_test 于 2016-7-5 19:00 编辑

//&cls&dir /a-d/b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit
var txt='', n=5; //指定随机抽取几行
var fso=new ActiveXObject('Scripting.Filesystemobject');
while(!WSH.StdIn.AtEndOfStream) {
    try{
        var s = fso.OpenTextFile(WSH.StdIn.ReadLine(), 1).ReadAll().split(/\r\n/).sort(function(){return Math.random()-.5});
        txt += s.slice(0, n).join('\r\n')+'\r\n';
    }catch(e){}
}
WSH.echo(txt);
复制代码

Rank: 1

帖子: 13
积分: 16
技术: 0
捐助: 0
注册时间: 2016-7-5

5楼

发表于 2016-7-5 16:08 | 只看该作者

本帖最后由 pcl_test 于 2016-7-5 16:24 编辑

回复 4# pcl_test

嗯谢谢您回帖，管理论坛辛苦了。请问这个不是bat吧？我测试了不能执行。

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

6楼

发表于 2016-7-5 16:25 | 只看该作者

回复 5# 1879362421a
指定回应某楼层的在相应楼层点回复，少引用
报错么，显示什么？
直接保存为bat文件跟txt放一起运行

Rank: 1

帖子: 13
积分: 16
技术: 0
捐助: 0
注册时间: 2016-7-5

7楼

发表于 2016-7-5 16:39 | 只看该作者

回复 6# pcl_test

经过测试您写的程序完美执行，激动中又有一些小遗憾。因为您的代码我一个看不懂，我不能自己修改成自定义路径的TXT，还有生成出来的TXT位置。如：

if /f %%a in (d:\www\*.txt) do %%a>>d:\xxxx.txt

我只会改这种简单的代码。还望您抽出时间帮我加上路径。万谢！

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

8楼

发表于 2016-7-5 16:44 | 只看该作者

本帖最后由 pcl_test 于 2016-7-5 22:18 编辑

回复 7# 1879362421a

首行改为

/*&cls
@echo off
cd /d "d:\www\"
dir /a-d/b *.txt|cscript -nologo -e:jscript "%~f0">"d:\xxxx.txt"
pause&exit
*/

Rank: 1

帖子: 13
积分: 16
技术: 0
捐助: 0
注册时间: 2016-7-5

9楼

发表于 2016-7-5 17:06 | 只看该作者

回复 8# pcl_test

执行了提示：（8,15）编译错误：语法错误

路径为：C:\Users\Administrator\Desktop\ceshi\www1\*.txt

Rank: 1

帖子: 13
积分: 16
技术: 0
捐助: 0
注册时间: 2016-7-5

10楼

发表于 2016-7-5 17:16 | 只看该作者

本帖最后由 pcl_test 于 2016-7-5 18:57 编辑

奇怪了。

这个程序在服务器1执行，完美运行。服务器2提示：运行时错误：输入超出文件尾。

关于这个奇怪的问题，我认为可能是文件名有点的问题。因为服务器2文件名是xx.xxx.txt 类似的格式。而服务器1都是xx.txt

1 评分人数

pcl_test: 勿重复贴码PB -2

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

11楼

发表于 2016-7-5 19:01 | 只看该作者

回复 10# 1879362421a

已改，不要重复贴码

Rank: 1

帖子: 13
积分: 16
技术: 0
捐助: 0
注册时间: 2016-7-5

12楼

发表于 2016-7-6 00:18 | 只看该作者

回复 11# pcl_test

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

13楼

发表于 2016-7-6 00:37 | 只看该作者

回复 12# 1879362421a

自己不认真怪谁

Rank: 1

帖子: 13
积分: 16
技术: 0
捐助: 0
注册时间: 2016-7-5

14楼

发表于 2016-7-6 11:15 | 只看该作者

回复 13# pcl_test

请原谅我。我刚才今早花了很长时间，一个个字符对照。甚至重新复制了10余次您的代码，。。。。。还是不行！

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

15楼

发表于 2016-7-6 11:20 | 只看该作者

本帖最后由 pcl_test 于 2016-7-6 11:23 编辑

回复 14# 1879362421a

明显错误WSH.echo(txt)>;
这就是你说的认真对了N次代码？

直接帮你整合4L、8L代码

/*&cls
@echo off
cd /d "d:\www\"
dir /a-d/b *.txt|cscript -nologo -e:jscript "%~f0">"d:\xxxx.txt"
pause&exit
*/

var txt='', n=5; //指定随机抽取几行
var fso=new ActiveXObject('Scripting.Filesystemobject');
while(!WSH.StdIn.AtEndOfStream) {
    try{
        var s = fso.OpenTextFile(WSH.StdIn.ReadLine(), 1).ReadAll().split(/\r\n/).sort(function(){return Math.random()-.5});
        txt += s.slice(0, n).join('\r\n')+'\r\n';
    }catch(e){}
}
WSH.echo(txt);
复制代码