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

[文本处理] [已解决]请问BAT如何去除不完全匹配的重复?

[复制链接]
发表于 2012-10-19 21:38:07 | 显示全部楼层 |阅读模式
本帖最后由 每天几分 于 2012-10-19 23:48 编辑

原文本:

古古怪
古古怪的
反反复
反反复去
吞吞吐吐
吞吞吐吐的
忐忐忑忑
忐忐忑忑地

去除不完全匹配的重复,要求生成新文本如下:

古古怪
反反复
吞吞吐吐
忐忐忑忑

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2012-10-19 23:07:54 | 显示全部楼层
  1. Array.prototype.unique = function(){ //排序后去重复
  2.     this.sort();
  3.     for(var i=1; i<this.length; i++){
  4.         this[i].substr(0,this[i-1].length) === this[i-1] && this.splice(i--, 1);
  5.     }
  6.     return this;
  7. }

  8. var fso = new ActiveXObject("scripting.filesystemobject");
  9. var words = fso.OpenTextFile("a.txt",1).ReadAll().split('\r\n').unique().join('\r\n');
  10. fso.OpenTextFile("ok.txt",2,1).Write(words);
  11. WSH.echo('处理完成!');
复制代码
保存为 "处理.js" 然后双击运行即可、
如果 "处理.js" 无法运行,改成 "处理.jse" 即可、
水平有限,不会写批处理、、

评分

参与人数 1技术 +1 收起 理由
每天几分 + 1 多谢

查看全部评分

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

本版积分规则

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

GMT+8, 2026-3-19 15:22 , Processed in 0.018648 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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