易语言正则取网页不重复数的问题

夜上星

要求得到一个整数型数组——不重复数
表达式是_(\d+)x.gif
一个按钮，一个编辑框

代码：
.版本 2
.支持库 internet
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 返回信息, 文本型
提交地址 ＝ “http://www.liwu28.net/login.php?act=login”
提交数据 ＝  ≠ 到整数 (文本))
            .如果真 (k ＝ 取数组成员数 (不重复))
                加入成员 (不重复, 到整数 (文本))
            .如果真结束
        .否则
            跳出循环 ()
        .如果结束
    .计次循环尾 ()
    .如果真 (l ＝ 1)
        加入成员 (不重复, 到整数 (文本))
    .如果真结束
    .如果真 (取数组成员数 (不重复) ＞ 9)
        返回 (真)
    .如果真结束
.计次循环尾 ()
调试输出 (不重复)
返回 (假)
' 线程_取消COM库 ()

.子程序 __启动窗口_创建完毕
图片框1.图片 ＝ 网页_验证码读取 (“[url]http://www.liwu28.net/inc/code.php”)

exit11

夜上星 发表于 2012-6-1 14:46
版主，可以上传你的e文件吗?我看有什么不同？

就是这个啊，文本内容是10楼的
表达式 _(d+)\.gif
.版本 2
.支持库 internet
.支持库 spec

.子程序 取号, 逻辑型
.局部变量 文本, 文本型
.局部变量 正则, 正则表达式类
.局部变量 不重复, 文本型, , "0"
.局部变量 l, 整数型
.局部变量 临时文本, 文本型

文本 ＝#常量1
正则.创建 (#表达式, 文本)
.计次循环首 (正则.取匹配数量 (), l)
    文本 ＝ 正则.取子匹配文本 (l, 1)
    .如果真 (寻找文本 (临时文本, 文本 ＋ “,”, , 假) ＝ -1)
        临时文本 ＝ 临时文本 ＋ 文本 ＋ “,”
    .如果真结束

.计次循环尾 ()
临时文本 ＝ 取文本左边 (临时文本, 取文本长度 (临时文本) － 1)
不重复 ＝ 分割文本 (临时文本, “,”, )
调试输出 (不重复)
.如果真 (取数组成员数 (不重复) ＞ 9)
    返回 (真)
.如果真结束

返回 (假)

夜上星

.版本 2
.支持库 internet
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 返回信息, 文本型
提交地址 ＝ “http://www.liwu28.net/login.php?act=login”
提交数据 ＝  ≠ 到整数 (文本))
            .如果真 (k ＝ 取数组成员数 (不重复))
                加入成员 (不重复, 到整数 (文本))
            .如果真结束
        .否则
            跳出循环 ()
        .如果结束
    .计次循环尾 ()
    .如果真 (l ＝ 1)
        加入成员 (不重复, 到整数 (文本))
    .如果真结束
    .如果真 (取数组成员数 (不重复) ＞ 9)
        返回 (真)
    .如果真结束
.计次循环尾 ()
调试输出 (不重复)
返回 (假)
' 线程_取消COM库 ()

.子程序 __启动窗口_创建完毕
图片框1.图片 ＝ 网页_验证码读取 (“[url]http://www.liwu28.net/inc/code.php”)

夜上星

不知道为什么把代码复制到论坛后，就少了一部分了。哪位朋友能帮忙的请加QQ273395281

爱家的小懒虫

打包上传 .e

夜上星

源代码已上传

exit11

.版本 2
.支持库 internet
.支持库 spec

.子程序 取号, 逻辑型
.局部变量 文本, 文本型
.局部变量 正则, 正则表达式类
.局部变量 不重复, 文本型, , "0"
.局部变量 l, 整数型
.局部变量 临时文本, 文本型

文本 ＝ 到文本 (HTTP读文件 (“http://www.liwu28.net/game/luck/direction.php”))
正则.创建 (#表达式, 文本)
.计次循环首 (正则.取匹配数量 (), l)
    文本 ＝ 正则.取子匹配文本 (l, 1)
    .如果真 (寻找文本 (临时文本, 文本 ＋ “,”, , 假) ＝ -1)
        临时文本 ＝ 临时文本 ＋ 文本 ＋ “,”
    .如果真结束

.计次循环尾 ()
临时文本 ＝ 取文本左边 (临时文本, 取文本长度 (临时文本) － 1)
不重复 ＝ 分割文本 (临时文本, “,”, )
调试输出 (不重复)
.如果真 (取数组成员数 (不重复) ＞ 9)
    返回 (真)
.如果真结束

返回 (假)

夜上星

不知道为什么，程序执行到你发的那段代码就——被调试易程序运行完毕

夜上星

exit11 发表于 2012-6-1 11:55
.版本 2
.支持库 internet
.支持库 spec

不知道为什么，程序执行到你发的那段代码就——被调试易程序运行完毕
是易语言版本的问题吗？
版主，你可以取号10个不同的号吗/

exit11

夜上星 发表于 2012-6-1 12:36
不知道为什么，程序执行到你发的那段代码就——被调试易程序运行完毕
是易语言版本的问题吗？
版主，你 ...

程序退出可能是表达式有问题。
貌似需要登陆才能测试。

测试问题代码：
在每行代码下面加个调试输出()，如果有哪个没输出，就表示上面的一行代码有问题