超级列框打开和保存配置文件的实例

zhx200 · 发表于 2018-7-28 21:37:28

1。用了“精易模块”，请在本论坛下。
2。结合了，精易模块中的“类_配置项”。
3。实现了，导入、导出保存功能。

.版本 2
.支持库 iext
.程序集窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
连续赋值 (取运行目录 (), 通用对话框1.初始目录, 通用对话框2.初始目录)
.子程序 _按钮_关闭_被单击
销毁 ()
.子程序 _按钮_导入_被单击
.局部变量 Go配置类, 类_配置项
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 GzTmo, 整数型
.局部变量 Gw项数组, 文本型, , "0"
.局部变量 Gw节数组, 文本型, , "0"
.局部变量 Gw值数组, 文本型, , "0"
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名＝ “”)
返回 ()
.如果真结束
Go配置类.枚举节 (通用对话框1.文件名, Gw节数组)
.如果真 (取数组成员数 (Gw节数组) ＝ 0)
信息框 (“不是配置文件”, 0, , )
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (Gw节数组), i)
GzTmo ＝超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (GzTmo, 1, Gw节数组 [i])
清除数组 (Gw项数组)
清除数组 (Gw值数组)
Go配置类.枚举项 (通用对话框1.文件名, Gw节数组 [i], Gw项数组, Gw值数组)
.计次循环首 (取数组成员数 (Gw项数组), j)
      GzTmo ＝超级列表框1.插入表项 (-1, , , , , )
      超级列表框1.置标题 (GzTmo, 1, Gw节数组 [i])
      超级列表框1.置标题 (GzTmo, 2, Gw项数组 [j])
      超级列表框1.置标题 (GzTmo, 3, Gw值数组 [j])
.计次循环尾 ()
.计次循环尾 ()

.子程序 _按钮_导出_被单击
.局部变量 Go配置类, 类_配置项
.局部变量 i, 整数型
.局部变量 GwTmo1, 文本型
.局部变量 GwTmo2, 文本型
.局部变量 GwTmo3, 文本型
通用对话框2.打开 ()
.如果真 (通用对话框1.文件名＝ “”)
返回 ()
.如果真结束
.计次循环首 (超级列表框1.取表项数 (), i)
GwTmo1 ＝超级列表框1.取标题 (i － 1, 1)
GwTmo2 ＝超级列表框1.取标题 (i － 1, 2)
GwTmo3 ＝超级列表框1.取标题 (i － 1, 3)
.如果真 (GwTmo1 ≠ “” 且 GwTmo2 ≠ “”)
      Go配置类.写项文本 (通用对话框2.文件名＋ “.txt”, GwTmo1, GwTmo2, GwTmo3)
.如果真结束
.计次循环尾 ()

posbb · 发表于 2024-3-16 20:47:09

谢谢分享

kmxddjw · 发表于 2018-8-5 21:38:26

已下载学习，谢谢！！！

kyo9766 · 发表于 2018-8-2 08:35:24

感谢分享

wangdili19822 · 发表于 2018-7-29 10:43:37

感谢分享！！！！！！

zhx200 · 发表于 2018-7-29 09:41:15

凤凰二号发表于 2018-7-29 09:17
1万条数据就会好卡

一万条数据的作法不是这样了。要一次性读入内存，然后分析完了。最后再显示。

做为一个配置文件，数据行不会很多。

淘神 · 发表于 2018-7-29 09:17:41

1万条数据就会好卡

afd · 发表于 2018-7-29 03:38:26

精易模块就有这个功能的。。。。。。。。。

zhx200 · 发表于 2018-7-29 01:09:20

xingwuzhe 发表于 2018-7-28 22:19
感谢分享，很给力！~

感谢支持！！！！

		自动登录	找回密码
密码			注册

[易源码分享] 超级列框打开和保存配置文件的实例

评分