ScriptBrowserK　とか

91 ：名無しさん＠お腹いっぱい。：2007/07/11(水) 20:11:27 ID:4LD2Sf9I0

暇なので、Rubyで2ch簡易あぼーん&抽出スクリプト作った
役には立たないだろね、ソース見にくいし全板動くかどうかも知らん
スクリプトファイルに保存しないと動かないのはブラウザの仕様らしい

@doc = @ScriptBrowserK.ActiveDocument

params = ["text: title=ワード, name=word, width=20", "radio: title=type, name=type, item=NGワード;ignore;selected, item=絞り込み;focus"]
@SBKScriptItem.InputParams("", params, [])
@word = @SBKScriptItem.GetVariableValue("word")
@type = @SBKScriptItem.GetVariableValue("type")

@thread = @doc.getElementsByTagName("dl").item(0)
@dt = @thread.getElementsByTagName("dt")
@dd = @thread.getElementsByTagName("dd")

if @type == "ignore"
@dt.length.times{|i|
unless (@dt.item(i).innerHTML[@word] == nil) and (@dd.item(i).innerHTML[@word] == nil)
temp = @dt.item(i).innerHTML
@dt.item(i).innerHTML = temp[0..temp.index('：')]
@dd.item(i).innerHTML = ""
end
}
elsif @type == "focus"
@dt.length.times{|i|
if (@dt.item(i).innerHTML[@word] == nil) and (@dd.item(i).innerHTML[@word] == nil)
@dt.item(i).innerHTML = ""
@dd.item(i).innerHTML = ""
end
}
end