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

[文本处理] [已解决]批处理搜索重复行,第二、三、四...重复行尾分别添加(2)(3)(4)...以示区别

如题文本文件如下
  1. aa
  2. bb
  3. cc
  4. aa
  5. dd
  6. bb
  7. aa
  8. ee
  9. ff
  10. ...
复制代码
处理后
  1. aa
  2. bb
  3. cc
  4. aa (2)
  5. dd
  6. bb (2)
  7. aa (3)
  8. ee
  9. ff
  10. ...
复制代码
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

  1. gawk "!/^$/ {$0 = (a[$0]++ ? $0\"(\"a[$0]\")\" : $0)} 1" a.txt
复制代码

TOP

test.js
  1. var map = [];
  2. var fso = new ActiveXObject('Scripting.FileSystemObject');
  3. var str = fso.OpenTextFile('a.txt').ReadAll().replace(
  4.     /[^\r\n]+/g,
  5.     function(s0){
  6.         if (map[s0]){s0 += '(' + (++map[s0]) + ')'} else map[s0] = 1;
  7.         return s0;
  8.     }
  9. )
  10. fso.CreateTextFile('b.txt',2).Write(str)
复制代码
1

评分人数

TOP

谢谢WHY,完美解决。

TOP

返回列表