组合框重复问题

tst80tst

我想要的是输入的内容如果重复就不保存

  

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

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

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

Num ＝ 到数值 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “Num”, ))
组合框1.清空 ()
计次循环首 (Num, i)
如果真 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (i), ) ≠ “”)
组合框1.加入项目 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (i), ), )

计次循环尾 ()

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

组合框1.加入项目 (组合框1.内容, )
写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “Num”, 到文本 (组合框1.取项目数 ()))
写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (组合框1.取项目数 ()), 组合框1.内容)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 Num, 整数型<br /> .局部变量 i, 整数型<br /> <br /> Num ＝ 到数值 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “Num”, ))<br /> 组合框1.清空 ()<br /> .计次循环首 (Num, i)<br />     .如果真 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (i), ) ≠ “”)<br />         组合框1.加入项目 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (i), ), )<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 组合框1.加入项目 (组合框1.内容, )<br /> 写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “Num”, 到文本 (组合框1.取项目数 ()))<br /> 写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (组合框1.取项目数 ()), 组合框1.内容)

亮蓝色的风

  

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

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

计次循环首 (组合框1.取项目数 (), i)
如果真 (组合框1.取项目文本 (i － 1) ＝ 组合框1.内容)
返回 ()

计次循环尾 ()
组合框1.加入项目 (组合框1.内容, )
写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “Num”, 到文本 (组合框1.取项目数 ()))
写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (组合框1.取项目数 ()), 组合框1.内容)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (组合框1.取项目数 (), i)<br />     .如果真 (组合框1.取项目文本 (i － 1) ＝ 组合框1.内容)<br />         返回 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 组合框1.加入项目 (组合框1.内容, )<br /> 写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “Num”, 到文本 (组合框1.取项目数 ()))<br /> 写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (组合框1.取项目数 ()), 组合框1.内容)

加入前判断一下，有重复的就直接返回

七彩色工作室

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_组合框项目	存取键值表

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

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

Num ＝ 到数值 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “Num”, ))
调试输出 (Num)
组合框1.清空 ()
计次循环首 (Num, i)
如果真 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (i), ) ≠ “”)
组合框1.加入项目 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (i), ), )
集_组合框项目.置整数 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (i), ), 1)

计次循环尾 ()

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

如果真 (集_组合框项目.是否存在 (组合框1.内容) ＝ 假)
组合框1.加入项目 (组合框1.内容, )
写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “Num”, 到文本 (组合框1.取项目数 ()))
写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (组合框1.取项目数 ()), 组合框1.内容)
集_组合框项目.置整数 (组合框1.内容, 1)

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件
spec	特殊功能支持库

.版本 2<br /> .支持库 e2ee<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_组合框项目, 存取键值表<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 Num, 整数型<br /> .局部变量 i, 整数型<br /> <br /> Num ＝ 到数值 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “Num”, ))<br /> 调试输出 (Num)<br /> 组合框1.清空 ()<br /> .计次循环首 (Num, i)<br />     .如果真 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (i), ) ≠ “”)<br />         组合框1.加入项目 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (i), ), )<br />         集_组合框项目.置整数 (读配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (i), ), 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (集_组合框项目.是否存在 (组合框1.内容) ＝ 假)<br />     组合框1.加入项目 (组合框1.内容, )<br />     写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “Num”, 到文本 (组合框1.取项目数 ()))<br />     写配置项 (取运行目录 () ＋ “\temp.ini”, “Config”, “data” ＋ 到文本 (组合框1.取项目数 ()), 组合框1.内容)<br />     集_组合框项目.置整数 (组合框1.内容, 1)<br /> .如果真结束

字典存起来，加入的时候判断一下就行