对于一些初学者来说，这个编写起来比较困难。
文章源自楠竹林-https://www.nanzl.com/archives/575
.版本 2
.支持库 iext
.支持库 HtmlView
.子程序 __启动窗口_创建完毕
' 该源码例程来自亦行（yx）博客，由yx编写发布，如有转载请注明来源www.yxblog.cn
功能_板块处理显示 ()
载入 (窗口1, , 假)
窗口1.可视 ＝ 假
' 功能_帖子处理显示 (“https://bbs.125.la/forum-121-1.html”)
.子程序 功能_板块处理显示
.局部变量 板块网页内容, 文本型
.局部变量 取出中间代码, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 索引, 整数型
板块网页内容 ＝ 网页_访问S (“https://bbs.125.la/”, 0, , , , , , , , , )
板块网页内容 ＝ 文本_取出中间文本 (板块网页内容, “会员互动区”, “在线会员”, , )
文本_取中间_批量 (板块网页内容, “
”, “”, 取出中间代码, , , , , , , )
.计次循环首 (取数组成员数 (取出中间代码), i)
输出调试文本 (取出中间代码 [i])
索引 ＝ 超级列表框_显示.插入表项 (-1, 到文本 (i), , , , )
超级列表框_显示.置标题 (索引, 1, 文本_取出中间文本 (取出中间代码 [i], #引号 ＋ “>”, “”, , ))
超级列表框_显示.置标题 (索引, 2, “https://bbs.125.la” ＋ 文本_取出中间文本 (取出中间代码 [i], “
[”, 取出代码, , , , , , , )
.计次循环首 (取数组成员数 (取出代码), i)
' 输出调试文本 (取出代码 [i])
索引 ＝ 超级列表框_显示2.插入表项 (-1, 到文本 (i), , , , )
超级列表框_显示2.置标题 (索引, 1, 文本_取出中间文本 (取出代码 [i], “s xst” ＋ #引号 ＋ “>”, “”, , ))
超级列表框_显示2.置标题 (索引, 2, “https://bbs.125.la” ＋ 文本_取出中间文本 (取出代码 [i], “
文章源自楠竹林-https://www.nanzl.com/archives/575文章源自楠竹林-https://www.nanzl.com/archives/575
评论