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

Rank: 3Rank: 3

帖子
202 
积分
245 
技术
0  
捐助
0  
注册时间
2010-5-25 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2016-7-7 22:17 | 只看该作者

[文本处理] 批处理如何删除txt中每行行首/开头指定字符前的字符串重复出现超过指定次数的行？

本帖最后由 pcl_test 于 2016-7-8 22:08 编辑

现在遇到一个文本，里面有重复的，行数各不同，想把多次出现的删掉。处理的内容如下：


111-ewqrewe
111-erqwrqew111
111-ffwefawe
111-fewfawef
222-efqawfa
222-eqfawf
333-fewafa
333-ewafqaw
333-wefqaf
333-ewfqfw
333-ewfqawf

=================
就是想把分隔符【-】前面的内容如果重复5次以上的，就全部删掉，不知道该怎么写批处理
1

评分人数

收藏 分享

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2016-7-7 22:36 | 只看该作者
嗯，你以前的贴
http://www.bathome.net/viewthread.php?tid=25488

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
3楼
发表于 2016-7-8 22:07 | 只看该作者
本帖最后由 pcl_test 于 2016-7-9 01:36 编辑 
  1. //&cls&cscript -nologo -e:jscript "%~f0"<"1.txt"&pause&exit

  2. 

  3. var n=5;

  4. var c='-';  //指定分隔符

  5. var txt = WSH.StdIn.ReadAll().split(/\r\n/), a={}, b={}, s='';

  6. for(var i=0;i<txt.length; i++){

  7.     var str = txt[i].split(c)[0];

  8.     a[str]?a[str]++:a[str]=1;

  9.     b[str]?b[str]+=txt[i]+'\r\n':b[str]=txt[i]+'\r\n';

  10. }

  11. for(var i in a){if(a[i] < n)s+=b[i];}

  12. //(new ActiveXObject('Scripting.FileSystemObject')).OpenTextFile('结果.txt', 2, true).Write(s);

  13. WSH.echo(s);
复制代码

TOP

返回列表