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

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

概要

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

ソースコード

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