|
发表于 2018-11-20 23:46:55
|
显示全部楼层
福建省泉州市
.版本 2
.支持库 iext
.局部变量 截取内容, 文本型
.局部变量 网页内容s, 文本型
.局部变量 返回内容数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 索引, 整数型
网页内容s = 到文本 (网页_访问 (“https://bbs.125.la/forum-81-1.html”, 0, , , , , , , , , ))
网页内容s = 文本_取出中间文本 (网页内容s, “separatorline”, “精易论坛 - 有你更精彩”, , )
截取内容 = 到文本 (文本_取中间_批量 (网页内容s, “<th”, “</cite>”, 返回内容数组, , , , , , , ))
.计次循环首 (取数组成员数 (返回内容数组), i)
索引 = 超级列表框1.插入表项 (, 到文本 (i), , , , )
超级列表框1.置标题 (索引, 1, 文本_取出中间文本 (返回内容数组 [i], “;” + #引号 + “>”, “</a>”, , ))
超级列表框1.置标题 (索引, 2, 文本_取出中间文本 (返回内容数组 [i], “s xst” + #引号 + “>”, “</a>”, , ))
.计次循环尾 ()
|
|