Question

易语言读取ini文件内容？

如何当Account_ID=2时，3个编辑框里分别显示B1，B2，B3。分割线内是ini内容
--------------------------------------------------------------------------------------------------------
[Account]
ID1=A1
USER1=A1
PASS1=A2

ID2=B1
USER2=B2
PASS2=B3

ID3=CX
USER3=CX
PASS3=CX

ID4=DD
USER4=DD
PASS4=DD

Account_ID=2
--------------------------------------------------------------------------------------------------------

Answer 1

.版本 2

.程序集 窗口程序集1
.程序集变量 配置, 文本型

.子程序 __启动窗口_创建完毕

配置 ＝ 读配置项 (取运行目录 () ＋ “\1.ini”, “Account”, “Account_ID”, )
.如果真 (配置 ＝ “2”)
编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\1.ini”, “Account”, “ID2”, )
编辑框2.内容 ＝ 读配置项 (取运行目录 () ＋ “\1.ini”, “Account”, “USER2”, )
编辑框3.内容 ＝ 读配置项 (取运行目录 () ＋ “\1.ini”, “Account”, “PASS2”, )
.如果真结束

追问

如果有100 项，Account_ID=100，是不是太繁琐。有没有简洁的方法？

追答

.版本 2

.程序集 窗口程序集1
.程序集变量 配置, 文本型

.子程序 __启动窗口_创建完毕

配置 ＝ 读配置项 (取运行目录 () ＋ “\1.ini”, “Account”, “Account_ID”, )
编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\1.ini”, “Account”, “ID” ＋ 配置, )
编辑框2.内容 ＝ 读配置项 (取运行目录 () ＋ “\1.ini”, “Account”, “USER” ＋ 配置, )
编辑框3.内容 ＝ 读配置项 (取运行目录 () ＋ “\1.ini”, “Account”, “PASS” ＋ 配置, )

我以为你只需要读取2呢

Answer 2

　　一个关键命令取配置节名()，即可实现；
　　参考实例如下：
　　.版本 2
　　.支持库 spec
　　.子程序 _按钮1_被单击
　　.局部变量 所有节名数组, 文本型, , "0", 此数组存储的就是配置文件内所有的节
　　.局部变量 i, 整数型
　　所有节名数组 ＝ 取配置节名 (“D:\1.ini”) ' 根据自己的需要自己更改路径，
　　调试输出 (所有节名数组)

Answer 3

留个邮箱？还是我粘上？纠结啊。。。分割线内是源码，窗口也发不上来，自己研究一下吧。。
有事请加群，我们虽然人少，但是有问必答，答不上来再百度。。。197.065.095
注明百度，合作愉快！
--------------------------------------------------------------------------------------------------------
.版本 2

.程序集 窗口程序集1
.程序集变量 配置文件名, 文本型
.程序集变量 索引, 整数型

.子程序 __启动窗口_创建完毕

配置文件名 ＝ “.\p.ini”

.子程序 _按钮1_被单击

.判断开始 (索引 ≠ 1)
索引 ＝ 索引 － 1
.默认
信息框 (“已经是第一个了”, 0, )
.判断结束
编辑框1.内容 ＝ 取所在组 (索引, “ID”)
编辑框2.内容 ＝ 取所在组 (索引, “USER”)
编辑框3.内容 ＝ 取所在组 (索引, “PASS”)

.子程序 取所在组, 文本型, , 返回你想要的。。呵呵
.参数 ID, 整数型, , 提供你想要找的ID，如2
.参数 节名, 文本型, , 提供“ID”或“USER”或“PASS”，后面的数字不必要添加

返回 (读配置项 (配置文件名, “Account”, 节名 ＋ 到文本 (ID), ))

.子程序 _按钮2_被单击

.判断开始 (索引 ＜ 4)
索引 ＝ 索引 ＋ 1
.默认
信息框 (“已经是最后一个了”, 0, )
.判断结束
编辑框1.内容 ＝ 取所在组 (索引, “ID”)
编辑框2.内容 ＝ 取所在组 (索引, “USER”)
编辑框3.内容 ＝ 取所在组 (索引, “PASS”)

--------------------------------------------------------------------------------------------------------