简单改错

Jmp520

我这几段代码，为什么验证第一个能成功，第二第三就不行了
改错.rar (41.01 KB, 下载次数: 11)

2010-11-22 14:10 上传

点击文件名下载附件

exit11

[e]
.版本 2
.程序集 窗口程序集1
.程序集变量 是否成功, 逻辑型, , , 新增变量
.子程序 __启动窗口_创建完毕
客户1.连接 (“127.0.0.1”, 999)
.子程序 _按钮1_被单击
客户1.发送数据 (“用户登陆” ＋ 编辑框1.内容 ＋ “|”)
.子程序 _服务器1_数据到达
.局部变量 过滤文本, 文本型
.局部变量 登陆信息, 文本型, , "0"
.局部变量 次, 整数型
.如果真 (寻找文本 (到文本 (服务器1.取回数据 ()), “用户登陆”, , 假) ≠ -1)
    过滤文本 ＝ 文本_过虑部分文本 (到文本 (服务器1.取回数据 ()), “用户登陆”)
    登陆信息 ＝ 分割文本 (过滤文本, “|”, )
    .计次循环首 (列表框1.取项目数 (), 次)
        .如果真 (列表框1.取项目文本 (次 － 1) ＝ 登陆信息 [1])
            是否成功 ＝ 真
            信息框 (“成功！”, 0, )
            跳出循环 ()
        .如果真结束
    .计次循环尾 ()
.如果真结束
' 新增代码
.如果真 (是否成功 ＝ 假)
    信息框 (“失败”, 0, )
.如果真结束
是否成功 ＝ 假
.子程序 _列表框1_列表项被选择
编辑框1.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)

[/e]