搜索配置项

墨影0620

萌新的源码，大佬轻喷。
如果您有更快速便捷的解决方式欢迎回帖【要晒出源码】
如果有比我这个更好的源码我会帮助置顶。

  

子程序名	返回值类型	公开	备 注
搜索配置项	整数型		搜索成功返回含有关键词的配置项数量，错误返回-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 /> 返回 (取数组成员数 (所在节名))