求助！！！易语言的超级列表框问题！！

爱世界梦

急急急！！！我想问比如说一个超级列表框里已经有N个表项，还有再增加一个表项，但是这N个表项中已经有一个相同的表项了就不增加那个表项怎么写？？？求大佬给例子源码！！！

走一回

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
i	整数型
局_标题	文本型
sy
局_真	逻辑型

计次循环首 (超级列表框1.取表项数 (), i)
局_标题 ＝ 超级列表框1.取标题 (i － 1, )
如果真 (编辑框1.内容 ＝ “”)
返回 ()
如果真 (编辑框1.内容 ＝ 局_标题)
局_真 ＝ 真

计次循环尾 ()
如果 (局_真 ＝ 真)
信息框 (“内容相同,不能插入”, 0, , )
sy ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (sy, 0, 编辑框1.内容)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型
sy

超级列表框1.类型 ＝ 3
超级列表框1.插入列 (0, “第一列”, 100, , , )
计次循环首 (5, i)
sy ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (sy, 0, 到文本 (i) ＋ “行”)
计次循环尾 ()
' 自己添加一个超级列表框和一个按钮

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 局_标题, 文本型<br /> .局部变量 sy<br /> .局部变量 局_真, 逻辑型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     局_标题 ＝ 超级列表框1.取标题 (i － 1, )<br />     .如果真 (编辑框1.内容 ＝ “”)<br />         返回 ()<br />     .如果真结束<br />     .如果真 (编辑框1.内容 ＝ 局_标题)<br />         局_真 ＝ 真<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果 (局_真 ＝ 真)<br />     信息框 (“内容相同,不能插入”, 0, , )<br /> .否则<br />     sy ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (sy, 0, 编辑框1.内容)<br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> .局部变量 sy<br /> <br /> 超级列表框1.类型 ＝ 3<br /> 超级列表框1.插入列 (0, “第一列”, 100, , , )<br /> .计次循环首 (5, i)<br />     sy ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (sy, 0, 到文本 (i) ＋ “行”)<br /> .计次循环尾 ()<br /> '自己添加一个超级列表框和一个按钮

补充内容 (2018-5-12 13:03):
怎么有乱码?md

易正易则

超级列表框.取标题  判断  如果一样就返回，不一样就添加

alfaa3

先循环查找，找到不要插入，找不到插入就可以

杜子鳄

对象．查找表项 （文本型 标题，［整数型 起始查找位置］，［逻辑型 是否精确匹配］，［整数型 列索引］）

走一回

上面不用模块与用模块的方法都有了.一用就灵啦

杜子鳄

  

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

变量名	类 型	静态	数组	备 注
i	整数型
是否找到	整数型
索引	整数型

计次循环首 (超级列表框1.取表项数 (), i)
是否找到 ＝ 超级列表框1.查找表项 (“要查找的数据”, , 真, 1)
如果 (是否找到 ＝ -1)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, “要查找的数据”)
跳出循环 ()

输出调试文本 (到文本 (是否找到 ＋ 1) ＋ “已有相同”)

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 是否找到, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     是否找到 ＝ 超级列表框1.查找表项 (“要查找的数据”, , 真, 1)<br />     .如果 (是否找到 ＝ -1)<br />         索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br />         超级列表框1.置标题 (索引, 1, “要查找的数据”)<br />         跳出循环 ()<br /> <br />     .否则<br />         输出调试文本 (到文本 (是否找到 ＋ 1) ＋ “已有相同”)<br />     .如果结束<br /> <br /> .计次循环尾 ()

补充内容 (2018-5-12 12:48):
哦，错了。 别用。

补充内容 (2018-5-12 12:51):
计次循环删掉~~

杜子鳄

  

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

变量名	类 型	静态	数组	备 注
i	整数型
是否找到	整数型
索引	整数型

是否找到 ＝ 超级列表框1.查找表项 (“要查找的数据”, , 真, 1)
如果 (是否找到 ＝ -1)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, “要查找的数据”)
输出调试文本 (到文本 (是否找到 ＋ 1) ＋ “已有相同”)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 是否找到, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 是否找到 ＝ 超级列表框1.查找表项 (“要查找的数据”, , 真, 1)<br /> .如果 (是否找到 ＝ -1)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br />     超级列表框1.置标题 (索引, 1, “要查找的数据”)<br /> .否则<br />     输出调试文本 (到文本 (是否找到 ＋ 1) ＋ “已有相同”)