- 91 名前：名無しさん＠お腹いっぱい。 mailto:sage [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
|
 |
