文書から検索

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

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);
	}
}
d.selection.StartOfDocument();
d.selection.Find(s, meFindNext + meFindReplaceRegExp);
d.selection.StartOfDocument();

function Find(d, r) {
	var s1 = d.Text.split("\n");
	var s2 = [];
	var s3 = "";
	for (var i = 0; i < s1.length; i++) {
		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") : "";
}