連続する重複行を削除

このマクロはMeryのMacrosフォルダに同梱されています。

概要

編集中の文書の重複する行を削除します。昇順・降順で並べ替えと併せて使用するとさらに効果的です。

ソースコード

// -----------------------------------------------------------------------------
// 連続する重複行を削除
//
// Copyright (c) Kuro. All Rights Reserved.
// www:    https://www.haijin-boys.com/
// -----------------------------------------------------------------------------

var sel = document.selection;
if (sel.Text == "") {
	sel.SelectAll();
}
var s1 = sel.Text.split("\n");
var s2 = [];
for (var i = 0; i < s1.length; i++) {
	if (i == 0 || s1[i-1] != s1[i]) {
		s2.push(s1[i]);
	}
}
sel.Text = s2.join("\n");
sel.StartOfDocument();