2ch板抜き出し？ | Codetter（こーどったー）

Url={"<A HREF=http://info.2ch.net/guide/>2ch総合案内</A>

<BR><BR><B>地震</B><BR>
<A HREF=http://headline.2ch.net/bbynamazu/>地震headline</A><br>
<A HREF=http://anago.2ch.net/namazuplus/>地震速報</A><br>
<A HREF=http://hayabusa.2ch.net/eq/>臨時地震</A><br>
<A HREF=http://hayabusa2.2ch.net/eqplus/>臨時地震+</A><br>
<A HREF=http://uni.2ch.net/lifeline/>緊急自然災害</A>

<BR><BR><B>おすすめ</B><BR>
<A HREF=http://engawa.2ch.net/ftax/>ふるさと納税</A><br>
<A HREF=http://anago.2ch.net/bizplus/>ビジネスnews+</A><br>
<A HREF=http://ikura.2ch.net/infection/>豚インフル</A><br>
<A HREF=http://ikura.2ch.net/localfoods/>土産物・特産物</A>

<BR><BR><B>特別企画</B><BR>
<A HREF=http://find.2ch.net/>2ch検索</A><br>
<A HREF=http://be.2ch.net/>be.2ch.net</A><br>
<A HREF=http://find.2ch.net/enq/board.php>アンケート</A><br>
<A HREF=http://2ch.tora3.net/>2chビューア</A><br>
<A HREF=http://epg.2ch.net/tv2chwiki/>テレビ番組欄</A><br>
<A HREF=http://shop.2ch.net/>2chオークション</A><br>
<A HREF=http://watch.2ch.net/>2ch観察帳</A>

<BR><BR><B>be</B><BR>
<A HREF=http://kohada.2ch.net/be/>面白ネタnews</A><br>"}
xxx=""
mesbox xxx,ginfo_winx,ginfo_winy,4 : hmes = stat
i=""
BBS=""
NowByte=0
repeat
	;板のURL
;	i +="NowByte.Start="+NowByte+"\n"
	st = instr(Url,NowByte,"<A HREF=")
	if st < 0 : break
	st += NowByte
	NowByte = st + strlen("<A HREF=")
	en = instr(Url,NowByte,">")
	en += NowByte
	NowByte = en + strlen(">")
	stc = en-st
	uri = strmid(Url,st+8,stc-8)
	i +="S="+st+"  En="+en+"\n"
;	objprm hmes,i
	i +="Url="+uri+"\n"
;	objprm hmes,i
	
	;板の名前
	st = instr(Url,NowByte,"</A>")
	st += NowByte
	NowByte = st + strlen("</A>")
	tit = strmid(Url,en+1,st-en-1)
	i +="Title="+tit+"\n"

	BBS +="Url="+uri+" Title="+tit+"\n"
	
	await 10

	i +="NowByte.End="+NowByte+"\n"
;	objprm hmes,i
	objprm hmes,BBS
loop