[文本处理] 【已解决】批处理：如何批量提取多个文本内出现次数最多、次多与再次多的数据

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

2楼

发表于 2014-8-27 21:06 | 只看该作者

本帖最后由 apang 于 2014-8-28 10:36 编辑

更改第2行x的值

@set @n=0;/* & echo off
set "x=3"
md "文件夹2" 2>nul
pushd "文件夹1\"
dir /b *.txt|cscript -nologo -e:jscript "%~0" "%x%"
pause & exit/b & rem */

fso = new ActiveXObject("Scripting.FileSystemObject");
while (!WScript.StdIn.AtEndOfStream) {
    f = WScript.StdIn.ReadLine();
    txt = fso.OpenTextFile(f, 1).ReadAll();
    txt = getMaxNum(txt, WScript.Arguments(0));
    txt = txt.replace(/^\d+ /mg, "");
    fso.CreateTextFile("..\\文件夹2\\"+f, true).Write(txt);
}

function getMaxNum(str, arg) {
    dic = new ActiveXObject("Scripting.Dictionary");
    for (i=100; i<=199; i++) {
        num = (i + "").substr(1);
        k = str.split(num).length;
        if (k > 1) {
            if (dic.Exists(k)) {
                dic.Item(k) += " " + num
            } else dic.Add(k, k + " " + num)
        }
    }

    arItem = (new VBArray(dic.Items())).toArray();
    s = "";

    arItem.sort(function(x,y) {return y.split(" ")[0]-x.split(" ")[0]});
    if (arg > arItem.length) arg = arItem.length;
    for (i=0; i<arg; i++) {
        s += arItem[i] + "\r\n";
    }
    return s
}
复制代码

1 评分人数

思想之翼: 谢谢！圆满解决问题。技术 + 1

思想之翼

上尉

Rank: 5 Rank: 5

帖子: 659
积分: 1317
技术: 3
捐助: 0
注册时间: 2012-7-1

3楼

发表于 2014-8-27 22:19 | 只看该作者

回复 2# apang
感谢您的帮助！
代码圆满解决问题。只有一点遗憾：
因为不知道有多少重复次数，如果第二行设置不当，比如set "x=100"
就会出现如下结果
38 54 76
29 97
08 57
07 12 83
45 71
03 31 63 65 67
11 32 35 44 48 56 66 74 80 93 94
21 25 51 58
04 39 40 42 64 73 75 98
06 15 19 27 36 59 68 69 86
05 09 17 20 24 52 55 72 78 91 96
13 16 18 49 60 77 79 81 89 90 92
01 22 26 34 50 62 87 88
14 23 41 70 82
02 28 43 47 95
30 33 37 84
46 53 85
61
10
00
99
undefined
undefined
undefined
......
undefined
如何才能不显示undefined？

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

4楼

发表于 2014-8-27 22:55 | 只看该作者

回复 3# 思想之翼

在37和38行之间插入一行：

if (arg > ar.length) arg = ar.length
复制代码

1 评分人数

思想之翼: 感谢分享技术 + 1

思想之翼

上尉

Rank: 5 Rank: 5

帖子: 659
积分: 1317
技术: 3
捐助: 0
注册时间: 2012-7-1

5楼

发表于 2014-8-28 00:34 | 只看该作者

回复 4# apang
谢谢帮助！
经过测试，加上这句代码，结果出现偏差，请见附件，原本结果是：
29 59
79 98
11
26 68
32
03 42
82
33 45 50 57
08 23 37 62 69
12 30 31 49 55 63 66 74 87
04 44 48 73 77 93
02 36 39 58 61 71
09 14 18 60 84
05 15 16 19 20 27 34 43 76
01 07 22 72
06 13 24 52 65 67 75 91
21 35 47 81 85 88
25 46 51 80 83 86 96
10 17 56 94
41 53 89
64 78 95
70 97
28 40
92
90
38
00
99
undefined
...
undefined

加上判断的代码，结果是：
29 59
79 98
11
26 68
32
03 42
82
33 45 50 57
08 23 37 62 69
12 30 31 49 55 63 66 74 87
04 44 48 73 77 93
02 36 39 58 61 71
09 14 18 60 84
05 15 16 19 20 27 34 43 76
01 07 22 72
06 13 24 52 65 67 75 91
21 35 47 81 85 88
25 46 51 80 83 86 96
10 17 56 94
41 53 89
64 78 95

少了：
70 97
28 40
92
90
38
00
99

附件: 您需要登录才可以下载或查看附件。没有帐号？注册

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

6楼

发表于 2014-8-28 10:37 | 只看该作者

回复 5# 思想之翼

2#已修改

思想之翼

上尉

Rank: 5 Rank: 5

帖子: 659
积分: 1317
技术: 3
捐助: 0
注册时间: 2012-7-1

7楼

发表于 2014-8-31 20:50 | 只看该作者

回复 2# apang
感谢您的帮助！
如果文本001.txt为空，运行该代码得不到任何文本。实际运用中，需要输出一个名称为001.txt的空文本。有劳您再费神了，谢谢！

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

8楼

发表于 2014-8-31 21:59 | 只看该作者

回复 7# 思想之翼

好吧，以后请把要求一次性说清楚

@set @n=0;/* & echo off
set "x=3"
md "文件夹2" 2>nul
pushd "文件夹1\"
dir /b *.txt|cscript -nologo -e:jscript "%~0" "%x%"
pause & exit/b & rem */

fso = new ActiveXObject("Scripting.FileSystemObject");
while (!WScript.StdIn.AtEndOfStream) {
    f = WScript.StdIn.ReadLine();
    try {
        txt = fso.OpenTextFile(f, 1).ReadAll();
        txt = getMaxNum(txt, WScript.Arguments(0));
    } catch(e) { txt = "" }
    fso.CreateTextFile("..\\文件夹2\\"+f, true).Write(txt);
}

function getMaxNum(str, arg) {
    dic = new ActiveXObject("Scripting.Dictionary");
    for (i=100; i<=199; i++) {
        num = (i + "").substr(1);
        k = str.split(num).length;
        if (k > 1) {
            if (dic.Exists(k)) {
                dic.Item(k) += " " + num;
            } else dic.Add(k, k + " " + num)
        }
    }

    arItem = (new VBArray(dic.Items())).toArray();
    s = "";

    arItem.sort(function(x,y) {return y.split(" ")[0]-x.split(" ")[0]});
    if (arg > arItem.length) arg = arItem.length;
    for (i=0; i<arg; i++) {
        s += arItem[i] + "\r\n";
    }
    return s.replace(/^\d+ /mg, "")
}
复制代码

1 评分人数

思想之翼: 圆满解决问题。感谢帮助！技术 + 1

terse

中将

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

9楼

发表于 2014-8-31 23:28 | 只看该作者

回复 8# apang
这里的最后取值直接取 Item 是否简洁点呢这样的话排序也就直接排序了

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

10楼

发表于 2014-9-1 19:08 | 只看该作者

本帖最后由 apang 于 2014-9-1 19:12 编辑

回复 9# terse

请教terse，如何直接取Item值呢？
上面确实绕弯了

function getMaxNum(str, arg) {
    dic = new ActiveXObject("Scripting.Dictionary");
    for (i=100; i<=199; i++) {
        num = (i + "").substr(1);
        k = str.split(num).length;
        if (k > 1) {
            if (dic.Exists(k)) {
                dic.Item(k) += " " + num;
            } else dic.Add(k, num)
        }
    }

    ar = (new VBArray(dic.Keys())).toArray();
    s = "";

    ar.sort(function(x,y){return y-x});
    if (arg > ar.length) arg = ar.length;
    for (i=0; i<arg; i++) {
        s += dic(ar[i]) + "\r\n";
    }
    return s
}
复制代码

1 评分人数

思想之翼: 感谢技术 + 1