超级列表框查找内容，在编辑框显示问题

milest

想实现功能
编辑框输入内容
在超级列表框号码列查找
查找到，编辑框内容显示：号码----未出售
查找不到，编辑框内容显示：号码----已出售


我自己做的可以判定未出售，， 但是还把已出售加上了，求大牛改下


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

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

创建目录 (“代理文档提取”)

.子程序 _按钮1_被单击
.局部变量 临时文本, 文本型
.局部变量 文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 局部文本, 文本型

临时文本 ＝ 到文本 (HTTP读文件 (编辑框1.内容))
文本 ＝ 分割文本 (临时文本, #换行符, )

.计次循环首 (取数组成员数 (文本), i)
局部文本 ＝ 局部文本 ＋ 文本 ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\代理文档提取” ＋ “\代理文档提取” ＋ 到文本 (取现行时间 ()) ＋ “.txt”, 到字节集 (局部文本))
信息框 (“提取完毕”, 0, )


.子程序 _按钮2_被单击
.局部变量 账号密码数组, 文本型, , "0"
.局部变量 行数, 整数型
.局部变量 账号密码数组2, 文本型, , "0"
.局部变量 I, 整数型
.局部变量 临时文本_局部, 文本型
.局部变量 i2, 整数型


临时文本_局部 ＝ 到文本 (HTTP读文件 (编辑框1.内容))
账号密码数组 ＝ 分割文本 (临时文本_局部, #换行符, ) ' 按行数分割
行数 ＝ 取数组成员数 (账号密码数组)

.计次循环首 (行数, I)
超级列表框1.插入表项 (, , , , , )
账号密码数组2 ＝ 分割文本 (账号密码数组 [I], “----”, )
超级列表框1.置标题 (I － 1, 0, 到文本 (I))
.计次循环首 (取数组成员数 (账号密码数组2), i2)
超级列表框1.置标题 (I － 1, i2, 账号密码数组2 [i2])
.计次循环尾 ()
.计次循环尾 ()


.计次循环首 (行数, I)
.如果真 (编辑框2.内容 ＝ 超级列表框1.取标题 (I － 1, 1))
编辑框2.内容 ＝ 超级列表框1.取标题 (I － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (I － 1, 2) ＋ “----” ＋ 超级列表框1.取标题 (I － 1, 3) ＋ “----” ＋ “未出售”
跳出循环 ()
.如果真结束



.计次循环尾 ()

编辑框2.内容 ＝ 编辑框2.内容 ＋ “----” ＋ “已出售”

[/e]

君不见

[e]
.版本 2
.支持库 xplib
.支持库 internet
.支持库 iext

.程序集 窗口程序集1
.程序集变量 账号密码数组, 文本型, , "0"
.程序集变量 行数, 整数型
.程序集变量 账号密码数组2, 文本型, , "0"
.程序集变量 I, 整数型
.程序集变量 临时文本_局部, 文本型
.程序集变量 i2, 整数型
.程序集变量 文本1, 文本型, , "0"
.程序集变量 文本2, 文本型, , "0"
.程序集变量 文本3, 文本型, , "0"
.程序集变量 文本4, 文本型, , "0"
.程序集变量 pd, 逻辑型
.程序集变量 文本, 文本型

.子程序 __启动窗口_创建完毕

XP风格 (4)
创建目录 (“代理文档提取”)

.子程序 _按钮1_被单击
.局部变量 临时文本, 文本型
.局部变量 文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 局部文本, 文本型

临时文本 ＝ 到文本 (HTTP读文件 (编辑框1.内容))
文本 ＝ 分割文本 (临时文本, #换行符, )

.计次循环首 (取数组成员数 (文本), i)
局部文本 ＝ 局部文本 ＋ 文本 ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\代理文档提取” ＋ “\代理文档提取” ＋ 到文本 (取现行时间 ()) ＋ “.txt”, 到字节集 (局部文本))
临时文本_局部 ＝ 到文本 (HTTP读文件 (编辑框1.内容))
账号密码数组 ＝ 分割文本 (临时文本_局部, #换行符, ) ' 按行数分割
行数 ＝ 取数组成员数 (账号密码数组)

.计次循环首 (行数, I)
超级列表框1.插入表项 (, , , , , )
账号密码数组2 ＝ 分割文本 (账号密码数组 [I], “----”, )
超级列表框1.置标题 (I － 1, 0, 到文本 (I))
.计次循环首 (取数组成员数 (账号密码数组2), i2)
超级列表框1.置标题 (I － 1, i2, 账号密码数组2 [i2])
.计次循环尾 ()
.计次循环尾 ()


.子程序 _按钮2_被单击

pd ＝ 假
.计次循环首 (超级列表框1.取表项数 (), I)
加入成员 (文本1, 超级列表框1.取标题 (I － 1, 0))
加入成员 (文本2, 超级列表框1.取标题 (I － 1, 1))
加入成员 (文本3, 超级列表框1.取标题 (I － 1, 2))
加入成员 (文本4, 超级列表框1.取标题 (I － 1, 3))
.计次循环尾 ()

.计次循环首 (取数组成员数 (文本2), I)
.如果真 (编辑框2.内容 ＝ 文本2 [I])
pd ＝ 真
文本 ＝ 文本1 [I] ＋ “--” ＋ 文本2 [I] ＋ “--” ＋ 文本3 [I] ＋ “--” ＋ 文本4 [I]

跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果 (pd)
编辑框2.内容 ＝ 文本 ＋ “还未售出”
.否则
编辑框2.内容 ＝ 编辑框2.内容 ＋ “已经售出”
.如果结束


[/e]

君不见

随手用别的例子改的 你可以把文本改成数组 那样可以寻找多个
[e]
.版本 2
.支持库 iext

.程序集 窗口程序集1
.程序集变量 a, 整数型, , "0"
.程序集变量 b, 文本型
.程序集变量 c, 整数型, , "0"
.程序集变量 aa, 整数型

.子程序 _窗口1_创建完毕

置随机数种子 ()
.计次循环首 (20, )
加入成员 (a, 取随机数 (1, 99))
.计次循环尾 ()
数组_去重复 (, a)
.计次循环首 (取数组成员数 (a), aa)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (aa － 1, 0, 到文本 (aa))
超级列表框1.置标题 (aa － 1, 1, 到文本 (a [aa]))
.计次循环尾 ()


.子程序 _按钮1_被单击

.计次循环首 (取数组成员数 (a), aa)
.如果真 (a [aa] ＝ 到整数 (编辑框1.内容))
b ＝ b ＋ 到文本 (a [aa])

.如果真结束

.计次循环尾 ()
信息框 (b, 0, “找到的数”)


[/e]

milest

secend 发表于 2013-11-1 17:16
随手用别的例子改的 你可以把文本改成数组 那样可以寻找多个
[e]
.版本 2

我的代码可以实现找到内容，编辑框内容也可以改变为未出售，，，但是下面的代码  已出售老加进去

君不见

哥们 你看你代码最后一句吧 无任何判定 编辑框2.内容 ＝ 编辑框2.内容 ＋ “----” ＋ “已出售”

milest

secend 发表于 2013-11-1 17:24
哥们 你看你代码最后一句吧 无任何判定 编辑框2.内容 ＝ 编辑框2.内容 ＋ “----” ＋ “已出售”

是啊怎么改呢 不会了

君不见

删除了就OK

milest

secend 发表于 2013-11-1 17:29
删除了就OK

- -我是2个判断啊，查到显示未出售，，，没找到显示已出售

君不见

你可以这样 加个逻辑变量
在寻找售出那里 如果真下面加个 判断=真
然后在你最后那里 如果判断=真 编辑框2内容=什么什么 未售出
否则 编辑框2内容=什么什么 已售出

milest

secend 发表于 2013-11-1 17:40
你可以这样 加个逻辑变量
在寻找售出那里 如果真下面加个 判断=真
然后在你最后那里 如果判断=真 编辑框2 ...

.版本 2
.支持库 iext

    .如果真 (编辑框2.内容 ＝ 超级列表框1.取标题 (I － 1, 1))
        .判断开始 (编辑框2.内容 ＝ 超级列表框1.取标题 (I － 1, 1))
            编辑框2.内容 ＝ 超级列表框1.取标题 (I － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (I － 1, 2) ＋ “----” ＋ 超级列表框1.取标题 (I － 1, 3) ＋ “----” ＋ “未出售”
        .默认
            编辑框2.内容 ＝ “已出售”
        .判断结束

我这样改下了不行呀