このファイルから検索(マッチしない行)

編集中の文書から検索文字列にマッチしない行を抽出します。

// -----------------------------------------------------------------------------
// このファイルから検索(マッチしない行)
//
// Copyright (c) Kuro. All Rights Reserved.
// e-mail: kuro@haijin-boys.com
// www:    http://www.haijin-boys.com/
// -----------------------------------------------------------------------------

var r = new RegExp(prompt("検索", ""), "i");
var s1 = "";
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++) {
  var s3 = r.exec(s1[i]);
  if (!s3)
    s2.push(s1[i]);
}
document.selection.Text = s2.join("\n");
document.selection.StartOfDocument();