|

10精币
.版本 2
.支持库 spec
.支持库 iext
网址 = “http://bbs.cnnb.com.cn/forum.php?mod=forumdisplay&fid=2&filter=author&orderby=dateline”
源码 = 彗星HTTP读文本 (网址)
调试输出 (源码)
超级列表框1.全部删除 ()
正则表达式1.创建 (#常量2)
正则表达式2.创建 (#常量3)
正则表达式1.搜索全部 (源码)
正则表达式2.搜索全部 (源码)
.计次循环首 (正则表达式1.取匹配数量 (), i1)
.如果真 (到数值 (正则表达式2.取子匹配文本 (i1, 1)) < 1)
调试输出 (正则表达式2.取子匹配文本 (i1, 1))
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i1 - 1, 0, 到文本 (i1))
超级列表框1.置标题 (i1 - 1, 1, “http://bbs.cnnb.com.cn/forum.php?mod=viewthread&tid=” + 正则表达式1.取子匹配文本 (i1, 1) + “&extra=page%3D1”)
超级列表框1.置标题 (i1 - 1, 2, 正则表达式1.取子匹配文本 (i1, 2))
超级列表框1.置标题 (i1 - 1, 4, 正则表达式2.取子匹配文本 (i1 + 1, 1))
超级列表框1.置标题 (i1 - 1, 3, 正则表达式2.取子匹配文本 (i1 + 1, 2))
.如果真结束
.计次循环尾 ()
=========================================================
程序一运行就卡死,去掉如果真,就不会卡了,请高手赐教
|
最佳答案
查看完整内容
.计次循环首 (正则表达式1.取匹配数量 (), i1)
.如果真 (到数值 (正则表达式2.取子匹配文本 (i1, 1)) < 1)
调试输出 (正则表达式2.取子匹配文本 (i1, 1))
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i1 - 1, 0, 到文本 (i1))
超级列表框1.置标题 (i1 - 1, 1, “http://bbs.cnnb.com.cn/forum.php?mod=viewthread&tid=” + 正则表达式1.取子匹配文本 (i1, 1) + “&extra=pag ...
|