读配置项指定节下所有键值(源码分享)

idchenlu · 发表于 2016-7-15 14:12:14

本帖最后由 idchenlu 于 2016-7-15 16:25 编辑

<读配置项指定节下所有键值>
参数有三个:
1、配置项文件名
2、节名称
3、二维数组变量，来接受返回的键值。

代码如下：

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
J_Tx	文本型	9999,2

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

拖放对象1.注册拖放控件 (取窗口句柄 ())

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

如果真 (通用对话框1.打开 ())

编辑框1.内容＝通用对话框1.文件名

子程序名	返回值类型	公开	备注
_拖放对象1_得到文件
参数名	类型	参考	可空	数组	备注
接收到的文件路径	文本型

编辑框1.内容＝接收到的文件路径

子程序名	返回值类型	公开	备注
读配置项键值	逻辑型		读配置项指定关键字下所有键值
参数名	类型	参考	可空	数组	备注
配置文件名	文本型
节名称	文本型
键值	文本型				需要程序预先设置一个二维数组来接受键值

变量名	类型	静态	数组	备注
N1	整数型
N2	整数型
J_节点	整数型			统计找到的配置项"节"次数
J_Text	文本型		0
J_节	文本型
J_键值	文本型		0	单数为键名；双数为值

J_Text ＝分割文本 (到文本 (读入文件 (配置文件名)), #换行符, )

计次循环首 (取数组成员数 (J_Text), N1)

如果真 (取文本左边 (J_Text [N1], 1) ＝ “[” 且取文本右边 (J_Text [N1], 1) ＝ “]”)

J_节＝取文本中间 (J_Text [N1], 2, 取文本长度 (J_Text [N1]) － 2)

调试输出 (J_节)

如果真 (J_节点＝ 1)

跳出循环 ()

如果真 (J_节＝节名称)

J_节点＝ J_节点＋ 1

如果真 (寻找文本 (J_Text [N1], “=”, 1, 假) ≠ -1)

N2 ＝ N2 ＋ 1

J_键值＝分割文本 (J_Text [N1], “=”, )

键值 [N2] [1] ＝ J_键值 [1]

键值 [N2] [2] ＝ J_键值 [2]

输出调试文本 (“键:” ＋键值 [N2] [1] ＋ “ 值:” ＋键值 [N2] [2])

计次循环尾 ()

如果 (N2 ＞ 0)

重定义数组 (键值, 真, N2, 2)

返回 (真)

返回 (假)
输出调试文本 (“键值成员数” ＋到文本 (取数组成员数 (键值)))

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

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

如果真 (编辑框2.内容＝ “”)

返回 ()

如果真 (读配置项键值 (编辑框1.内容, 编辑框2.内容, J_Tx))

计次循环首 (取数组成员数 (J_Tx) ÷ 2, N)

编辑框3.加入文本 (J_Tx [N] [1] ＋ “ ” ＋ J_Tx [N] [2] ＋ #换行符 )

计次循环尾 ()

i支持库列表	支持库注释
edroptarget	拖放支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 edroptarget<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 J_Tx, 文本型, , "9999,2"<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
拖放对象1.注册拖放控件 (取窗口句柄 ())<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
.如果真 (通用对话框1.打开 ())<br />
    编辑框1.内容 ＝ 通用对话框1.文件名<br />
.如果真结束<br />
<br />
<br />
.子程序 _拖放对象1_得到文件<br />
.参数 接收到的文件路径, 文本型<br />
<br />
编辑框1.内容 ＝ 接收到的文件路径<br />
<br />
<br />
.子程序 读配置项键值, 逻辑型, , 读配置项指定关键字下所有键值<br />
.参数 配置文件名, 文本型<br />
.参数 节名称, 文本型<br />
.参数 键值, 文本型, 参考 数组, 需要程序预先设置一个二维数组来接受键值<br />
.局部变量 N1, 整数型<br />
.局部变量 N2, 整数型<br />
.局部变量 J_节点, 整数型, , , 统计找到的配置项"节"次数<br />
.局部变量 J_Text, 文本型, , "0"<br />
.局部变量 J_节, 文本型<br />
.局部变量 J_键值, 文本型, , "0", 单数为键名；双数为值<br />
<br />
J_Text ＝ 分割文本 (到文本 (读入文件 (配置文件名)), #换行符, )<br />
.计次循环首 (取数组成员数 (J_Text), N1)<br />
    .如果真 (取文本左边 (J_Text [N1], 1) ＝ “[” 且 取文本右边 (J_Text [N1], 1) ＝ “]”)<br />
        J_节 ＝ 取文本中间 (J_Text [N1], 2, 取文本长度 (J_Text [N1]) － 2)<br />
        调试输出 (J_节)<br />
        .如果真 (J_节点 ＝ 1)<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
    .如果真 (J_节 ＝ 节名称)<br />
        J_节点 ＝ J_节点 ＋ 1<br />
        .如果真 (寻找文本 (J_Text [N1], “=”, 1, 假) ≠ -1)<br />
            N2 ＝ N2 ＋ 1<br />
            J_键值 ＝ 分割文本 (J_Text [N1], “=”, )<br />
            键值 [N2] [1] ＝ J_键值 [1]<br />
            键值 [N2] [2] ＝ J_键值 [2]<br />
            输出调试文本 (“键:” ＋ 键值 [N2] [1] ＋ “    值:” ＋ 键值 [N2] [2])<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
.如果 (N2 ＞ 0)<br />
    重定义数组 (键值, 真, N2, 2)<br />
    返回 (真)<br />
.否则<br />
返回 (假)<br />
.如果结束<br />
输出调试文本 (“键值成员数” ＋ 到文本 (取数组成员数 (键值)))<br />
<br />
<br />
<br />
.子程序 _按钮2_被单击<br />
.局部变量 N, 整数型<br />
<br />
.如果真 (编辑框2.内容 ＝ “”)<br />
    返回 ()<br />
.如果真结束<br />
.如果真 (读配置项键值 (编辑框1.内容, 编辑框2.内容, J_Tx))<br />
    .计次循环首 (取数组成员数 (J_Tx) ÷ 2, N)<br />
        编辑框3.加入文本 (J_Tx [N] [1] ＋ “    ” ＋ J_Tx [N] [2] ＋ #换行符)<br />
    .计次循环尾 ()<br />
.如果真结束