|
分享源码
界面截图: |
|
是否带模块: |
纯源码 |
备注说明: |
- |
本帖最后由 idchenlu 于 2016-7-15 16:25 编辑
<读配置项指定节下所有键值>
参数有三个:
1、配置项文件名
2、节名称
3、二维数组变量,来接受返回的键值。
代码如下:
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | J_Tx | 文本型 | 9999,2 |
拖放对象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.内容 = “”)返回 ()如果真 (读配置项键值 (编辑框1.内容, 编辑框2.内容, J_Tx )) 计次循环首 (取数组成员数 (J_Tx ) ÷ 2, N )编辑框3. 加入文本 (J_Tx [N ] [1 ] + “ ” + J_Tx [N ] [2 ] + #换行符 )计次循环尾 ()
|
|