两个小说网页正则提取采集程序源码

.子程序 _按钮_采集_被单击
.局部变量 返回文本, 文本型
.局部变量 正则, 正则表达式类
.局部变量 章数, 整数型
.局部变量 章变量, 整数型
.局部变量 索引, 整数型

超级列表框_文章.全部删除 ()
超级列表框_章节.全部删除 ()
编辑框_正文.内容 ＝ “”
返回文本 ＝ 网页_访问S (“http://www.******.cn/daquan/”)
正则.创建 (“(.*?)”, 返回文本, , , , )
章数 ＝ 正则.取匹配数量 ()
.计次循环首 (章数, 章变量)
索引 ＝ 超级列表框_文章.插入表项 (, , , , , )
超级列表框_文章.置标题 (索引, 0, 正则.取子匹配文本 (章变量, 2, ))
超级列表框_文章.置标题 (索引, 1, “http://www.******.cn/reader/” ＋ 正则.取子匹配文本 (章变量, 1, ))
.计次循环尾 ()

.子程序 _超级列表框_文章_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 返回文本, 文本型
.局部变量 正则, 正则表达式类
.局部变量 章数, 整数型
.局部变量 章变量, 整数型
.局部变量 索引, 整数型

超级列表框_章节.全部删除 ()
编辑框_正文.内容 ＝ “”
返回文本 ＝ 网页_访问S (超级列表框_文章.取标题 (超级列表框_文章.现行选中项, 1))
正则.创建 (“(.*?)”, 返回文本, )
章数 ＝ 正则.取匹配数量 ()
.计次循环首 (章数, 章变量)
索引 ＝ 超级列表框_章节.插入表项 (, , , , , )
超级列表框_章节.置标题 (索引, 0, 正则.取子匹配文本 (章变量, 2, ))
超级列表框_章节.置标题 (索引, 1, “http://www.******.cn/reader/” ＋ 正则.取子匹配文本 (章变量, 1, ))
.计次循环尾 ()