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

思想之翼 · 发表于 2014-8-27 17:30:04

本帖最后由思想之翼于 2014-8-29 00:24 编辑

问题1：
“文件夹1”内有210个txt文本，分别命名为001、002...210，每个txt文本记录若干数据，欲批量提取各文本数据出现次数最多的数据，并写入“文件夹2”的001.txt 002.txt ...210.txt
比如附件“文件夹1”内001.txt中，出现最多次数（都是35次）的数据是76 54 38，提取出来并写入“文件夹2”的001.txt
上述问题的解决代码是：

@echo off
cd /d "e:\123\文件夹1"
for %%i in (*.txt) do (
setlocal enabledelayedexpansion
for /f "delims=" %%a in (%%i) do (
for %%b in (%%a) do (
set/a #%%b+=1
if !#%%b! gtr !max! (
set/a max=!#%%b!
set "#=%%b"
) else if !#%%b! equ !max! set "#=!#! %%b"
)
)
echo,!#!>"e:\123\文件夹2\%%i"
endlocal
)

复制代码

问题2：
问题1是：提取出现最多次数的数据。
如果提取出现最多与次多次数的数据，代码将如何修改？
如果提取出现最多、次多与再次多次数的数据，代码将如何修改？

apang · 发表于 2014-8-27 21:06:10

本帖最后由 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
}

复制代码

思想之翼 · 发表于 2014-8-27 22:19:31

回复 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？

apang · 发表于 2014-8-27 22:55:17

回复 3# 思想之翼

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

if (arg > ar.length) arg = ar.length

复制代码

思想之翼 · 发表于 2014-8-28 00:34:39

回复 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

apang · 发表于 2014-8-28 10:37:21

回复 5# 思想之翼

2#已修改

思想之翼 · 发表于 2014-8-31 20:50:50

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

apang · 发表于 2014-8-31 21:59:06

回复 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, "")
}

复制代码

terse · 发表于 2014-8-31 23:28:02

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

apang · 发表于 2014-9-1 19:08:03

本帖最后由 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
}

复制代码

		自动登录	找回密码
密码			注册

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

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

评分

评分

评分

评分