文書から検索

現在開いているすべての文書から文字列を検索します。

var s = prompt("検索", "");
if (s == "") {
    Quit();
}

editor.NewFile();
var d = editor.ActiveDocument;
var r = new RegExp(s, "i");
for (var e = new Enumerator(editor.documents); !e.atEnd(); e.moveNext()) {
  var item = e.item();
  if (item != d) {
    d.selection.Text = Find(item, r);
  }
}
with (d.selection) {
    StartOfDocument();
    Find(s, meFindNext + meFindReplaceRegExp);
    StartOfDocument();
}

function Find(d, r) {
    var s1 = d.Text.split("\n");
    var s2  = new Array();
    var s3 = "";
    for (var i = 0; i < s1.length; i++) {
        var s3 = r.exec(s1[i]);
        if (s3) {
            s2.push((d.FullName != "" ? d.FullName : "無題") + "(" + (i + 1) + "): " + s1[i]);
        }
    }
    s3 = s2.join("\n");
    return s3 != "" ? (s3 + "\n") : "";
}