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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX