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

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

概要

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

ソースコード

// -----------------------------------------------------------------------------
// このファイルから検索(マッチする行)
//
// Copyright (c) Kuro. All Rights Reserved.
// www:    https://www.haijin-boys.com/
// -----------------------------------------------------------------------------

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