|
楼主 |
发表于 2011-8-14 02:04:03
|
显示全部楼层
重庆市重庆市
ldojh 发表于 2011-8-14 01:41
能的,你源码呢.看看错了没,
.版本 2
.支持库 spec
.子程序 _按钮采集_被单击
' 初始化COM库 ()
' 启动线程 (&开始采集1, 1, )
.子程序 开始采集1
.局部变量 源码, 文本型
.局部变量 计次, 整数型
.局部变量 正则表达式, 彗星正则表达式类
' ***采集网址
调试输出 (“开始采集”)
源码 = 彗星HTTP读文本 (“http://www.xx.com/”)
调试输出 (“源码:” + 源码)
' 编辑框1.内容 = 源码
正则表达式.创建 (“111(.*?)222”)
正则表达式.搜索全部 (源码)
.计次循环首 (正则表达式.取匹配数量 (), 计次)
.如果 (寻找文本 (编辑框已发地址.内容, 正则表达式.取子匹配文本 (计次, 1), , 假) = -1)
编辑框已发地址.内容 = #换行符 + 正则表达式.取子匹配文本 (计次, 1) + 编辑框已发地址.内容
.否则
.如果结束
.计次循环尾 ()
调试输出 (“采集完成”)
你好,上面是代码,不用线程能正常采集,用了线程,命令就执行不下去 |
|