易语言组合框如何保存历史记录

Question

请教大虾组合框在输入内容后如何用写配置项的方式保存下来,是要保存所有输入过的记录,
一楼的为什么说到汉语编程就 天啊! 做为中国人自已的语言软件应该自豪才对!

Answer 1

版本 2
.程序集 窗口程序集1
.子程序 _按钮_保存_被单击
.局部变量 局部_计次, 整数型
.计次循环首 (组合框1.取项目数 (), 局部_计次)
写配置项 (取运行目录 () ＋ “\配置.ini”, “组合框”, 到文本 (局部_计次), 组合框1.取项目文本 (局部_计次 － 1))
.计次循环尾 ()
.子程序 _按钮_读取_被单击
.局部变量 局部_配置节名数组, 文本型, , "0"
.局部变量 局部_临时文本, 文本型
.局部变量 局部_位置1, 整数型
.局部变量 局部_位置2, 整数型
.局部变量 局部_返回内容, 文本型
.局部变量 局部_计次, 整数型
.局部变量 局部_配置名, 文本型
.如果 (文件是否存在 (取运行目录 () ＋ “\配置.ini”))
局部_配置节名数组 ＝ 取配置节名 (取运行目录 () ＋ “\配置.ini”)
.如果 (取数组成员数 (局部_配置节名数组) ＞ 0)
局部_临时文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\配置.ini”))
局部_位置1 ＝ 寻找文本 (局部_临时文本, “[组合框]”, , 假)
.如果 (局部_位置1 ≠ -1)
局部_位置2 ＝ 寻找文本 (局部_临时文本, “[”, 局部_位置1 ＋ 1, 假)
.如果 (局部_位置2 ≠ -1)
局部_返回内容 ＝ 取文本中间 (局部_临时文本, 局部_位置1 ＋ 取文本长度 (“[组合框]”), 局部_位置2 － 局部_位置1 － 取文本长度 (“[组合框]”))
.否则
局部_返回内容 ＝ 取文本中间 (局部_临时文本, 局部_位置1, 取文本长度 (局部_临时文本) － 局部_位置1)
.如果结束
局部_返回内容 ＝ 子文本替换 (局部_返回内容, #换行符, , , , 真)
清除数组 (局部_配置节名数组)
.如果真 (寻找文本 (局部_返回内容, “=”, , 假) ≠ -1)
局部_配置节名数组 ＝ 分割文本 (局部_返回内容, “=”, )
组合框1.清空 ()
.计次循环首 (取数组成员数 (局部_配置节名数组) － 1, 局部_计次)
局部_配置名 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “组合框”, 到文本 (局部_计次), )
组合框1.加入项目 (局部_配置名, )
.计次循环尾 ()
.如果真结束
.否则
信息框 (“找不到配置节名:[组合框]”, 0, )
.如果结束
.否则
信息框 (“配置节名不存在”, 0, )
.如果结束
.否则
信息框 (“文件:” ＋ 取运行目录 () ＋ “\配置.ini 不存在”, 0, )
.如果结束

Answer 2

保存数据的源码如下，按步骤调试就行了：
-----------------------------------------------------------------------------------------------------------------

.版本 2
.程序集 窗口程序集1
.子程序 _按钮_保存_被单击
.局部变量 局部_计次, 整数型
.计次循环首 (组合框1.取项目数 (), 局部_计次)
写配置项 (取运行目录 () ＋ “\配置.ini”, “组合框”, 到文本 (局部_计次), 组合框1.取项目文本 (局部_计次 － 1))
.计次循环尾 ()
.子程序 _按钮_读取_被单击
.局部变量 局部_配置节名数组, 文本型, , "0"
.局部变量 局部_临时文本, 文本型
.局部变量 局部_位置1, 整数型
.局部变量 局部_位置2, 整数型
.局部变量 局部_返回内容, 文本型
.局部变量 局部_计次, 整数型
.局部变量 局部_配置名, 文本型
.如果 (文件是否存在 (取运行目录 () ＋ “\配置.ini”))
局部_配置节名数组 ＝ 取配置节名 (取运行目录 () ＋ “\配置.ini”)
.如果 (取数组成员数 (局部_配置节名数组) ＞ 0)
局部_临时文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\配置.ini”))
局部_位置1 ＝ 寻找文本 (局部_临时文本, “[组合框]”, , 假)
.如果 (局部_位置1 ≠ -1)
局部_位置2 ＝ 寻找文本 (局部_临时文本, “[”, 局部_位置1 ＋ 1, 假)
.如果 (局部_位置2 ≠ -1)
局部_返回内容 ＝ 取文本中间 (局部_临时文本, 局部_位置1 ＋ 取文本长度 (“[组合框]”), 局部_位置2 － 局部_位置1 － 取文本长度 (“[组合框]”))
.否则
局部_返回内容 ＝ 取文本中间 (局部_临时文本, 局部_位置1, 取文本长度 (局部_临时文本) － 局部_位置1)
.如果结束
局部_返回内容 ＝ 子文本替换 (局部_返回内容, #换行符, , , , 真)
清除数组 (局部_配置节名数组)
.如果真 (寻找文本 (局部_返回内容, “=”, , 假) ≠ -1)
局部_配置节名数组 ＝ 分割文本 (局部_返回内容, “=”, )
组合框1.清空 ()
.计次循环首 (取数组成员数 (局部_配置节名数组) － 1, 局部_计次)
局部_配置名 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “组合框”, 到文本 (局部_计次), )
组合框1.加入项目 (局部_配置名, )
.计次循环尾 ()
.如果真结束
.否则
信息框 (“找不到配置节名:[组合框]”, 0, )
.如果结束
.否则
信息框 (“配置节名不存在”, 0, )
.如果结束
.否则
信息框 (“文件:” ＋ 取运行目录 () ＋ “\配置.ini 不存在”, 0, )
.如果结束

Answer 3

.版本 2

.局部变量 计次, 整数型
.局部变量 加入的项目文本, 文本型, , "0"

.计次循环首 (10, 计次)
组合框1.加入项目 (加入的项目文本, 计次)
写配置项 (取运行目录 () ＋ “\txt.ini”, “项目”, “项目文本” ＋ 到文本 (计次), )
.计次循环尾 ()本回答被提问者采纳

Answer 4

.版本 2

.局部变量 计次, 整数型
.局部变量 加入的项目文本, 文本型, , "0"

.计次循环首 (10, 计次)
组合框1.加入项目 (加入的项目文本, 计次)
写配置项 (取运行目录 () ＋ “\txt.ini”, “项目”, “项目文本” ＋ 到文本 (计次), )
.计次循环尾 ()

Answer 5

.版本 2
.局部变量 计次, 整数型
.局部变量 x, 整数型
组合框2.加入项目 (编辑框1.内容, )

.计次循环首 (x, 计次)
批量_组合框_保存配置 (_启动窗口, 取运行目录 () ＋ “/本地/问题.ini”, “引擎选择”)
.计次循环尾 ()
需要支持库
精易模块

测试成功
如果要读取的话
批量_组合框_读取配置 (_启动窗口, 取运行目录 () ＋ “/本地/问题.ini”)
“”里面的内容自己改