HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2023
1025
nennneko5787ツリービューのカテゴリ分け0未解決


nennneko5787

リンク

2023/10/25(Wed) 11:21:50|NO.100349

とりあえずツリービューモジュールで5chのbbsmenuをだそうとしているのですが、カテゴリ分けがうまく行かないです...
https://menyukko.ifdef.jp/cauldron/hmtreeview.html

//HSPINET.DLLの初期化 netinit netagent "Monazilla/1.00 (NekomimiMona/"+NekomimiMona+")" neturl "https://menu.5ch.net/" netrequest_get "bbsmenu.html" ; 結果待ちのためのループ repeat netexec res if res : break await 0 loop netgetv bbsmenu strrep bbsmenu, strf("%c", 10), "\n" notesel bbsmenu nowcat = 0 threads = 0 _catcon = 0 _cnt = 0 repeat notemax noteget _bbs,cnt matches _cat,_bbs,"<BR><BR><B>(.*)</B><BR>" if length2(_cat) != 0{ _catcon = 0 if _cat(0,1)=="チャット" or _cat(0,1)=="ツール類" or _cat(0,1)=="他のサイト" or _cat(0,1)=="運営案内" or _cat(0,1)=="おすすめ":_catcon=1:continue TreeView_InsertItem _cat(0,1),1,0,8 nowcat=nowcat+threads threads=0 logmes _cat(0,1)+"(category)->"+nowcat _cnt++ continue } if nowcat != 0{ if _catcon=1:continue matches _board,_bbs,"<A HREF=(.*)>(.*)</A><br>" if length2(_board) != 0{ split _board(0,1),"/",_split if length(_split)<=3:continue TreeView_InsertItem _board(0,2),1,nowcat,0 threads++ logmes _board(0,2)+"(bbs)->"+threads+"("+str(_cnt+threads)+")" _cnt++ continue //TreeView_InsertItem "b",2,1,0 } } loop



この記事に返信する


ONION software Copyright 1997-2025(c) All rights reserved.