連続する重複行を削除

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

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

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