このファイルから検索(マッチする行)

提供: MeryWiki
移動先: 案内検索

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

// -----------------------------------------------------------------------------
// このファイルから検索(マッチする行)
//
// Copyright (c) Kuro. All Rights Reserved.
// 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();