从ini配置文件中读入字节集数据 - 精易论坛

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

变量名	类型	静态	数组	备注
配置文件	文本型
节	文本型
项	文本型
长度	整数型
偏移	整数型

底图＝ { }
配置文件＝取运行目录 () ＋ “\配置.ini”
节＝ “图片”
项＝ “背景”
读取数据信息 (配置文件, 节, 项, 长度, 偏移)
底图＝取得数据 (配置文件, 长度, 偏移)

子程序名	返回值类型	公开	备注
读取数据信息
参数名	类型	参考	可空	数组	备注
配置文件	文本型
节	文本型
项	文本型
长度	整数型				字节集长度
偏移	整数型				字节集起始位置

变量名	类型	静态	数组	备注
配置	文本型
数据长度	整数型
临时	整数型
id	整数型
txt	文本型
行偏移	整数型
段偏移	整数型

配置＝读配置项 (配置文件, 节, 项, “#” ＋节＋ “#0#” ＋项＋ “#”)
临时＝取文本长度 (“#” ＋节＋ “#”)
数据长度＝到整数 (取文本中间 (配置, 临时＋ 1, 寻找文本 (配置, “#” ＋项＋ “#”, 临时, 真) －临时))
id ＝打开文件 (配置文件, 1, )
移到文件首 (id)

循环判断首 ()

段偏移＝取读写位置 (id)

txt ＝读入一行 (id)

行偏移＝寻找字节集 (到字节集 (txt), 到字节集 (项＋ “=” ＋配置), )

如果真 (行偏移 ≠ -1)

偏移＝段偏移＋行偏移＋取字节集长度 (到字节集 (项＋ “=” ＋配置)) ＋ 1

长度＝数据长度

输出调试文本 (txt, 数据长度, 长度, “---------”)

循环判断尾 (取反 (是否在文件尾 (id, 真)))
关闭文件 (id)

子程序名	返回值类型	公开	备注
取得数据	字节集
参数名	类型	参考	可空	数组	备注
配置文件	文本型
长度	整数型				字节集长度
偏移	整数型				字节集起始位置

变量名	类型	静态	数组	备注
id	整数型
返回	字节集

id ＝打开文件 (配置文件, 1, )
移动读写位置 (id, 1, 偏移)
返回＝读入字节集 (id, 长度)
输出调试文本 (偏移, 取字节集长度 (返回), 长度)
关闭文件 (id)
返回 (返回)

.版本 2<br />
<br />
.子程序 _按钮1_被单击, , , ’读取图片<br />
.局部变量 配置文件, 文本型<br />
.局部变量 节, 文本型<br />
.局部变量 项, 文本型<br />
.局部变量 长度, 整数型<br />
.局部变量 偏移, 整数型<br />
<br />
底图 ＝ {  }<br />
配置文件 ＝ 取运行目录 () ＋ “\配置.ini”<br />
节 ＝ “图片”<br />
项 ＝ “背景”<br />
读取数据信息 (配置文件, 节, 项, 长度, 偏移)<br />
底图 ＝ 取得数据 (配置文件, 长度, 偏移)<br />
<br />
<br />
.子程序 读取数据信息<br />
.参数 配置文件, 文本型<br />
.参数 节, 文本型<br />
.参数 项, 文本型<br />
.参数 长度, 整数型, 参考 可空, 字节集长度<br />
.参数 偏移, 整数型, 参考, 字节集起始位置<br />
.局部变量 配置, 文本型<br />
.局部变量 数据长度, 整数型<br />
.局部变量 临时, 整数型<br />
.局部变量 id, 整数型<br />
.局部变量 txt, 文本型<br />
.局部变量 行偏移, 整数型<br />
.局部变量 段偏移, 整数型<br />
<br />
<br />
配置 ＝ 读配置项 (配置文件, 节, 项, “#” ＋ 节 ＋ “#0#” ＋ 项 ＋ “#”)<br />
临时 ＝ 取文本长度 (“#” ＋ 节 ＋ “#”)<br />
数据长度 ＝ 到整数 (取文本中间 (配置, 临时 ＋ 1, 寻找文本 (配置, “#” ＋ 项 ＋ “#”, 临时, 真) － 临时))<br />
id ＝ 打开文件 (配置文件, 1, )<br />
移到文件首 (id)<br />
.循环判断首 ()<br />
    段偏移 ＝ 取读写位置 (id)<br />
    txt ＝ 读入一行 (id)<br />
    行偏移 ＝ 寻找字节集 (到字节集 (txt), 到字节集 (项 ＋ “=” ＋ 配置), )<br />
<br />
    .如果真 (行偏移 ≠ -1)<br />
        偏移 ＝ 段偏移 ＋ 行偏移 ＋ 取字节集长度 (到字节集 (项 ＋ “=” ＋ 配置)) ＋ 1<br />
        长度 ＝ 数据长度<br />
        输出调试文本 (txt, 数据长度, 长度, “---------”)<br />
    .如果真结束<br />
<br />
.循环判断尾 (取反 (是否在文件尾 (id, 真)))<br />
<br />
关闭文件 (id)<br />
<br />
<br />
.子程序 取得数据, 字节集<br />
.参数 配置文件, 文本型<br />
.参数 长度, 整数型, , 字节集长度<br />
.参数 偏移, 整数型, , 字节集起始位置<br />
.局部变量 id, 整数型<br />
.局部变量 返回, 字节集<br />
<br />
id ＝ 打开文件 (配置文件, 1, )<br />
移动读写位置 (id, 1, 偏移)<br />
返回 ＝ 读入字节集 (id, 长度)<br />
输出调试文本 (偏移, 取字节集长度 (返回), 长度)<br />
<br />
关闭文件 (id)<br />
<br />
返回 (返回)