超级列表框问题

q838210720

怎么让超级列表框某子项包含“1”就导出来，导出包含1的内容，是包含不是等于，来个简单的例子

克里斯托

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
计次	整数型
项文本	文本型

计次循环首 (超级列表框1.取表项数 (), 计次)
项文本 ＝ 超级列表框1.取标题 (计次 － 1, 0)
如果真 (寻找文本 (项文本, “1”, , 假) ≠ -1)
调试输出 (“第” ＋ 到文本 (计次) ＋ “行,内容：” ＋ 项文本)

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 项文本, 文本型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 计次)<br />     项文本 ＝ 超级列表框1.取标题 (计次 － 1, 0)<br />     .如果真 (寻找文本 (项文本, “1”, , 假) ≠ -1)<br />         调试输出 (“第” ＋ 到文本 (计次) ＋ “行,内容：” ＋ 项文本)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

补充内容 (2019-7-1 10:11):
调试输出 (“第” ＋ 到文本 (计次-1) ＋ “行,内容：” ＋ 项文本)

寒潮

  

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_输出文本	文本型

局_输出文本 ＝ “”
计次循环首 (超级列表框1.取表项数 (), 局_计次)
如果真 (寻找文本 (超级列表框1.取标题 (局_计次 － 1, 0), “1”, , 假) ≠ -1)
如果 (局_输出文本 ＝ “”)
局_输出文本 ＝ 超级列表框1.取标题 (局_计次 － 1, 0)
局_输出文本 ＝ 局_输出文本 ＋ #换行符 ＋ 超级列表框1.取标题 (局_计次 － 1, 0)


计次循环尾 ()
写到文件 (“文件目录”, 到字节集 (局_输出文本))

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_输出文本, 文本型<br /> <br /> 局_输出文本 ＝ “”<br /> .计次循环首 (超级列表框1.取表项数 (), 局_计次)<br />     .如果真 (寻找文本 (超级列表框1.取标题 (局_计次 － 1, 0), “1”, , 假) ≠ -1)<br />         .如果 (局_输出文本 ＝ “”)<br />             局_输出文本 ＝ 超级列表框1.取标题 (局_计次 － 1, 0)<br />         .否则<br />             局_输出文本 ＝ 局_输出文本 ＋ #换行符 ＋ 超级列表框1.取标题 (局_计次 － 1, 0)<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (“文件目录”, 到字节集 (局_输出文本))

寒潮

三生因果伴孤灯

新建 易程序 (3).e (865.88 KB, 下载次数: 1)

2019-7-1 10:08 上传

点击文件名下载附件

寻找文本（）

计次循环取出每个子项
循环一次就用 寻找文本 判断一次

aa731118539

不错不错 厉害啊