ScriptBrowserK　とか - 暇つぶし2ch

ScriptBrowserK　とか ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

88:名無しさん＠お腹いっぱい。
 07/06/30 08:45:57 N9wA6Z0C0
ここも web ですがな ヽ(´ー`)ﾉ

89:名無しさん＠お腹いっぱい。
 07/06/30 21:55:42 OqRQJbkC0
少し前のCMネタか 
 
αマウスのオートスクロールが利かないみたい

90:名無しさん＠お腹いっぱい。
 07/07/11 02:05:31 qDZTkoob0
お前らのスクリプトを見せてけれ

91:名無しさん＠お腹いっぱい。
 07/07/11 20:11:27 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

次ページ