09/09/02 01:32:56 rUv75L62
まだしばらく出せないかと。プログラムはほぼ完成しましたが、APIの堅牢性の検証やリファレンスマニュアルの作成が・・・
ActiveScriptはガベコレあるし面倒な部分はラップしてあるので、下のようにDelphiよりは簡単なコーディングで機能が追加できます。
でもやっぱり遅いのが難点で、LuaやTracemonkeyにしとけばよかったかもと思ったり。
var MenuExtractLinked = JaneScript.InsertMenu("MainWnd.MainMenu", "Find1", 0);
MenuExtractLinked.Caption = "リンクされたレスの抽出";
MenuExtractLinked.OnClick = MenuExtractLinkedClick;
function MenuExtractLinkedClick(menuObject, targetInfo) {
var activeView = JaneScript.ActiveView;
if (activeView != undefined) {
var thread = activeView.thread;
ExtractLinked(thread);
};
};
function ExtractLinked(thread) {
if (thread != undefined) {
var ReferredList = thread.GetReferredList;
var newView = JaneScript.viewList.NewView(false, false);
newView.TabText = "リンクレス抽出";
newView.ExtraTitle = "リンクレス抽出:" + thread.title;
var datOut = newView.QueryDatOut;
newView.WriteSkin("");
for (i=1; i<=thread.lines; i++) {
if (ReferredList.RefCount(i) >= 3)
datOut.WriteThread(thread, i, i, 0);
};
newView.EndDatOut;
};
};