質問一覧のＲＳＳ版をチェックする

前回チェックした最新の質問が見つかるまで20ページまでチェックし
一つの質問一覧.txtというテキストファイルにまとめて、使っているエディタにドロップし表示させます。
ファイルが存在しない場合、1ページ分だけの一覧を表示します。
メモ帳だと文字化けします。
ちなみに私はOTBeditを使って表示させてます
パラメーターに数字を与えると、前回の質問のチェックはせず、与えた数字だけページを読み込みます。
100ページ読み込んだらファイルの容量が1.3MBほどありました。

if chknum(param_str[0]) then hatena.koushin("?","","",param_str[0]) else hatena.chkfile() class hatena 　　dim msxml=createoleobj("msxml2.xmlhttp") 　　dim url_a="http://q.hatena.ne.jp/list?page=",url_b="&mode=rss" 　　dim line_a=format(chr(12307),55)+"<#cr>",line_b=format(chr(45),110)+"<#cr>"//　区切りのライン。 　　dim fname="質問一覧.txt" 　　procedure chkfile() 　　　　ifb fopen(fname,f_exists) 　　　　　　open_a=fopen(fname) 　　　　　　　　get_a=fget(open_a,-2) 　　　　　　　　geturl1=trim(betweenstr(get_a,line_b,line_b)) 　　　　　　　　geturl2=trim(betweenstr(get_a,line_b,line_b,2)) 　　　　　　fclose(open_a) 　　　　else 　　　　　　geturl1="";geturl2="";get_a="" 　　　　endif 　　　　koushin(geturl1,geturl2,get_a) 　　fend 　　procedure koushin(last_url1,last_url2,all_t,page_count=20) 　　　　open_b=fopen(fname,f_write1) 　　　　for a=1 to page_count 　　　　　　xml=getxml(url_a+a+url_b) 　　　　　　etn=xml.getelementsbytagname("item") 　　　　　　　　ifb a=1 and last_url1=etn.item[0].childnodes.item[1].text 　　　　　　　　　　fukidasi("更新はありません");sleep(1);exitexit 　　　　　　　　endif 　　　　　　for b=0 to etn.length-1 　　　　　　　　chkurl=etn.item[b].getelementsbytagname("link").item[0].text 　　　　　　　　　　if last_url1=chkurl or last_url2=chkurl then break 2 　　　　　　　　link=chkurl+"<#cr>" 　　　　　　　　decp=etn.item[b].getelementsbytagname("description").item[0].text+"<#cr>" 　　　　　　　　cate=etn.item[b].getelementsbytagname("category").item[0].text 　　　　　　　　acid=etn.item[b].getelementsbytagname("dc:creator").item[0].text 　　　　　　　　fput(open_b,line_a+decp+line_b+link+line_b+"["+acid+"]"+cate) 　　　　　　next 　　　　　　　　if last_url1="" then break 　　　　next 　　　　fclose(open_b) 　　　　drop() 　　fend 　　procedure drop() 　　　　oe=getid("otbedit")//　使っているエディタなどのウィンドウタイトルに変更 　　　　　　if oe<0 then oe=exec("C:\otbedit\otbedit.exe")//　同じく、使っているエディタなどのパスに変更 　　　　dropfile(oe,get_cur_dir,fname)//　ファイルをドロップして開けることが前提 　　fend 　　function getxml(url) 　　　　msxml.open("get",url,0) 　　　　msxml.send 　　　　result=msxml.responsexml 　　fend endclass