.判断循环首 (是否在文件尾 (局部_文件号, 真) = 假) ' 循环读取,直到所读文本行中,包含指定项目名称。
局部_读取内容 = 读入一行 (局部_文件号)
.如果真 (取文本左边 (删首尾空 (局部_读取内容), 1) = “[” 且 取文本右边 (删首尾空 (局部_读取内容), 1) = “]”) ' 如果读到下一个小节,则跳出循环。
跳出循环 ()
.如果真结束
.如果真 (寻找文本 (局部_读取内容, “=”, , 假) ≠ -1)
局部_取出内容 = 分割文本 (局部_读取内容, “=”, ) ' 分割项目名称与项目值。
.如果真 (取数组成员数 (局部_取出内容) ≥ 2)
.如果真 (删首尾空 (局部_取出内容 [1]) = 参数_配置项名)
关闭文件 (局部_文件号)
.如果真 (删首尾空 (取文本右边 (局部_读取内容, 取文本长度 (局部_读取内容) - 寻找文本 (局部_读取内容, “=”, , 假))) = “”)
返回 (参数_默认文本)
.如果真结束
返回 (取文本右边 (局部_读取内容, 取文本长度 (局部_读取内容) - 寻找文本 (局部_读取内容, “=”, , 假)))
.如果真 (是否为空 (参数_文件密码))
参数_文件密码 = “”
.如果真结束
.如果真 (是否为空 (参数_默认文本))
参数_默认文本 = “”
.如果真结束
.如果真 (寻找文本 (参数_配置文件名, “\”, , 假) = -1)
参数_配置文件名 = 取特定目录 (9) + “\” + 参数_配置文件名
.如果真结束
参数_配置文件名 = 子文本替换 (参数_配置文件名, “\\”, “\”, , , 真)
局部_文件号 = 打开加密文件 (参数_配置文件名, #读入, , 参数_文件密码, ) ' 用读文本行的方式来操作配置文件。配置文件小节一般用[]括起来。配置文件项目均以:项目= 项目值 的形式保存。读取小节,然后读取小节后面几行文本,以“=”分隔,即可取得项目名称及项目值。下同。
.如果真 (局部_文件号 = 0) ' 打开失败
返回 (参数_默认文本)
.如果真结束
.判断循环首 (是否在文件尾 (局部_文件号, 真) = 假)
局部_读取内容 = 读入一行 (局部_文件号)
.如果真 (到大写 (局部_读取内容) = 到大写 (“[” + 参数_配置节名 + “]”)) ' 判断是否小节名
跳出循环 ()
.如果真结束
.判断循环尾 ()
上一篇 类似WinHex一样读取硬盘扇区