搜索配置项源码 - 精易论坛

子程序名	返回值类型	公开	备注
搜索配置项	整数型		搜索成功返回含有关键词的配置项数量，错误返回-1【注:根据配置项的符号“[”、“]”、“=”来判定配置节和配置项】
参数名	类型	参考	可空	数组	备注
配置文件名	文本型				指定配置文件的名称，通常以.ini作为文件名后缀。
关键词	文本型
所在节名	文本型				若同一个节内多个项含有关键词，那么每次搜索到这个节都会出现一次
所在项名	文本型				本参数和上一个参数成对出现，通过节名和项名可以利用读配置项读取到完整内容

变量名	类型	静态	数组	备注
文档内容	文本型
光标	整数型
左括号	整数型
右括号	整数型
限位	整数型
等号	整数型
临时文本	文本型

文档内容＝到文本 (读入文件 (配置文件名))

循环判断首 ()

光标＝寻找文本 (文档内容, 关键词, 光标＋ 1, 假)

如果真 (光标 ≠ -1)

' 需要确认是否为节

左括号＝寻找文本 (文档内容, “[”, 光标, 假)

右括号＝寻找文本 (文档内容, “]”, 光标, 假)

判断 (右括号＜左括号且右括号 ≠ -1) ' 若搜索到的文本是配置节，不做任何处理。进行下次搜索

到循环尾 ()

判断 (右括号＞左括号或左括号＝ -1) ' 找到的是内容/配置节

限位＝倒找文本 (文档内容, #换行符, 光标, 假)

等号＝倒找文本 (文档内容, “=”, 光标, 假)

如果 (等号＞限位) ' 判断搜索到的位置是否是内容

左括号＝倒找文本 (文档内容, “[”, 光标, 假)

右括号＝倒找文本 (文档内容, “]”, 光标, 假)

加入成员 (所在节名, 取文本中间 (文档内容, 左括号＋ 1, 右括号－左括号－ 1))

加入成员 (所在项名, 取文本中间 (文档内容, 限位＋ 1, 等号－限位－ 1))

到循环尾 ()

返回 (-1)

循环判断尾 (光标 ≠ -1)
返回 (取数组成员数 (所在节名))

.版本 2<br />
<br />
.子程序 搜索配置项, 整数型, 公开, 搜索成功返回含有关键词的配置项数量，错误返回-1【注:根据配置项的符号“[”、“]”、“=”来判定配置节和配置项】<br />
.参数 配置文件名, 文本型, , 指定配置文件的名称，通常以.ini作为文件名后缀。<br />
.参数 关键词, 文本型<br />
.参数 所在节名, 文本型, 参考 数组, 若同一个节内多个项含有关键词，那么每次搜索到这个节都会出现一次<br />
.参数 所在项名, 文本型, 参考 数组, 本参数和上一个参数成对出现，通过节名和项名可以利用读配置项读取到完整内容<br />
.局部变量 文档内容, 文本型<br />
.局部变量 光标, 整数型<br />
.局部变量 左括号, 整数型<br />
.局部变量 右括号, 整数型<br />
.局部变量 限位, 整数型<br />
.局部变量 等号, 整数型<br />
.局部变量 临时文本, 文本型<br />
<br />
文档内容 ＝ 到文本 (读入文件 (配置文件名))<br />
.循环判断首 ()<br />
    光标 ＝ 寻找文本 (文档内容, 关键词, 光标 ＋ 1, 假)<br />
    .如果真 (光标 ≠ -1)<br />
        ' 需要确认是否为节<br />
        左括号 ＝ 寻找文本 (文档内容, “[”, 光标, 假)<br />
        右括号 ＝ 寻找文本 (文档内容, “]”, 光标, 假)<br />
        .判断开始 (右括号 ＜ 左括号 且 右括号 ≠ -1)  ' 若搜索到的文本是配置节，不做任何处理。进行下次搜索<br />
            到循环尾 ()<br />
        .判断 (右括号 ＞ 左括号 或 左括号 ＝ -1)  ' 找到的是内容/配置节<br />
            限位 ＝ 倒找文本 (文档内容, #换行符, 光标, 假)<br />
            等号 ＝ 倒找文本 (文档内容, “=”, 光标, 假)<br />
            .如果 (等号 ＞ 限位)  ' 判断搜索到的位置是否是内容<br />
                左括号 ＝ 倒找文本 (文档内容, “[”, 光标, 假)<br />
                右括号 ＝ 倒找文本 (文档内容, “]”, 光标, 假)<br />
                加入成员 (所在节名, 取文本中间 (文档内容, 左括号 ＋ 1, 右括号 － 左括号 － 1))<br />
                加入成员 (所在项名, 取文本中间 (文档内容, 限位 ＋ 1, 等号 － 限位 － 1))<br />
            .否则<br />
                到循环尾 ()<br />
            .如果结束<br />
<br />
        .默认<br />
            返回 (-1)<br />
        .判断结束<br />
<br />
    .如果真结束<br />
<br />
.循环判断尾 (光标 ≠ -1)<br />
返回 (取数组成员数 (所在节名))