关于正则的问题，求指教~

keyway

俺用单线程很正常，用多线程正则创建的时候却返回假，为什么啊？（最下面也附上了源代码下载~）

[e]
.版本 2
.支持库 iext
.支持库 spec

.程序集 窗口程序集1
.程序集变量 总线程, 整数型
.程序集变量 线程id, 整数型
.程序集变量 正则, 正则表达式类
.程序集变量 地址, 文本型
.程序集变量 次数, 整数型
.程序集变量 n, 整数型
.程序集变量 s, 整数型
.程序集变量 线程数量, 整数型

.子程序 _按钮_代理_被单击

总线程 ＝ 线程_启动 (&采集)

.子程序 采集

超级列表框.全部删除 ()
标签_提示.标题 ＝ “正在采集代理IP...”
.计次循环首 (到整数 (编辑框_深度.内容), 次数)
线程id ＝ 线程_启动 (&多线程采集, 次数, 线程id)
线程数量 ＝ 线程数量 ＋ 1
.计次循环尾 ()

.子程序 多线程采集
.参数 参数, 整数型

地址 ＝ “http://www.xici.net.co/nn/” ＋ 到文本 (参数)
地址 ＝ 网页_访问s (地址)
正则.创建 (#正则, 地址, , , , )
调试输出 (正则.创建 (#正则, 地址, , , , ))
.计次循环首 (正则.取匹配数量 (), n)
s ＝ 超级列表框.插入表项 (, , , , , )
超级列表框.置标题 (s, 0, 到文本 (超级列表框.取表项数 ()))
超级列表框.置标题 (s, 1, 正则.取子匹配文本 (n, 1))
超级列表框.置标题 (s, 2, 正则.取子匹配文本 (n, 2))
.计次循环尾 ()
线程数量 ＝ 线程数量 － 1

[/e]


多线程 - 副本 (2).rar (176.42 KB, 下载次数: 0)

2013-12-6 02:39 上传

点击文件名下载附件

御风软件

没有让你程序崩溃就不错了，你正则，应该是声明为子程序【多线程采集】的局部变量
你现在的是程序集或者全局变量，多线程的时候，多条线程都使用这个变量来创建正则，能不出错么
来个简单点例子：
你声明个全局变量A,启动10条线程，每条线程都是给A赋值，分别为1-10，那么最后A是多少？
10条线程同时给A赋值，严重点，可以让你程序崩溃，不然就是得到一个1-10的不确定的值//、

ljmst

多线程默认是不支持多线程的   在创建正则表达式前一句加 CoInitialize (0)       本子程序结束时  加CoUninitialize ()     这样试一试    如果是新版精易模块的就不用加这两句了

laneagle007

楼上说的对，也可以把正则声明在子程序里面。线程使用的话要创建许可证的。