ini配置文件的写入 - 精易论坛

子程序名	返回值类型	公开	备注
写基础配置项
参数名	类型	参考	可空	数组	备注
文件名	文本型
项名称	文本型
修改内容	文本型

变量名	类型	静态	数组	备注
原文本内容	文本型
新文本内容	文本型
配置项文本内容	文本型
文本长度	整数型
文本起始位置	整数型
起始位置	整数型
结束位置	整数型
文本左边	文本型
文本右边	文本型
有引号	逻辑型
新内容字节集	字节集
文件号	整数型

如果真 (是否为空 (文件名))

文件名＝ _启动窗口.编辑框1.内容＋ “\Pal\Saved\Config\WindowsServer\PalWorldSettings.ini”

如果真 (取反 (文件是否存在 (文件名)))

返回 ()
原文本内容＝编码_Utf8到Ansi (读入文件 (文件名))
文本长度＝文本_取长度 (项名称)
文本起始位置＝文本_寻找文本 (原文本内容, 项名称, 1, 真)

如果真 (文本起始位置 ≠ -1) ' 找到目标配置项了

' 先判断配置项后面的文本有没有带引号号

' 先找到配置项=后面内容的结束位置

如果 (文本_寻找文本 (原文本内容, #引号, 文本起始位置, ) ＝文本起始位置＋文本长度＋ 1)

' 调试输出 (“此配置项内容有引号”)

有引号＝真

起始位置＝文本_寻找文本 (原文本内容, #引号, 文本起始位置＋文本长度, )

结束位置＝文本_寻找文本 (原文本内容, #引号, 起始位置＋ 1, )

如果真 (结束位置＝ -1) ' 这是最后一个配置项，以")"结尾的

结束位置＝文本_寻找文本 (原文本内容, “)”, 文本起始位置＋文本长度, )

' 调试输出 (“此配置项内容无引号”)

有引号＝假

起始位置＝文本_寻找文本 (原文本内容, “=”, 文本起始位置＋文本长度, )

结束位置＝文本_寻找文本 (原文本内容, “,”, 文本起始位置＋文本长度, )

如果真 (结束位置＝ -1) ' 这是最后一个配置项，以")"结尾的

结束位置＝文本_寻找文本 (原文本内容, “)”, 文本起始位置＋文本长度, )

配置项文本内容＝取文本中间 (原文本内容, 起始位置＋ 1, 结束位置－起始位置－ 1)

文本左边＝文本_删中间 (原文本内容, 文本起始位置＋文本长度, 取文本长度 (原文本内容) －文本起始位置－文本长度)

如果 (有引号)

文本右边＝文本_删中间 (原文本内容, 1, 文本起始位置＋文本长度＋ 2 ＋取文本长度 (配置项文本内容))

文本右边＝文本_删中间 (原文本内容, 1, 文本起始位置＋文本长度＋取文本长度 (配置项文本内容))
' 调试输出 (“配置项内容：” ＋配置项文本内容)

如果 (有引号)

新文本内容＝文本左边＋ “=” ＋ #引号＋修改内容＋ #引号＋文本右边

新文本内容＝文本左边＋ “=” ＋修改内容＋文本右边
' 调试输出 (新文本内容)
新内容字节集＝编码_Ansi到Utf8 (新文本内容)
文件号＝打开文件 (_启动窗口.编辑框1.内容＋ “\Pal\Saved\Config\WindowsServer\PalWorldSettings.ini”, #重写, )

如果真 (文件号 ≠ 0)

文件_写出字节集 (文件号, 新内容字节集, 1)

关闭文件 (文件号)
程序_延时 (10, )
处理事件 ()

.版本 2<br />
<br />
.子程序 写基础配置项<br />
.参数 文件名, 文本型, 可空<br />
.参数 项名称, 文本型<br />
.参数 修改内容, 文本型<br />
.局部变量 原文本内容, 文本型<br />
.局部变量 新文本内容, 文本型<br />
.局部变量 配置项文本内容, 文本型<br />
.局部变量 文本长度, 整数型<br />
.局部变量 文本起始位置, 整数型<br />
.局部变量 起始位置, 整数型<br />
.局部变量 结束位置, 整数型<br />
.局部变量 文本左边, 文本型<br />
.局部变量 文本右边, 文本型<br />
.局部变量 有引号, 逻辑型<br />
.局部变量 新内容字节集, 字节集<br />
.局部变量 文件号, 整数型<br />
<br />
.如果真 (是否为空 (文件名))<br />
    文件名 ＝ _启动窗口.编辑框1.内容 ＋ “\Pal\Saved\Config\WindowsServer\PalWorldSettings.ini”<br />
.如果真结束<br />
.如果真 (取反 (文件是否存在 (文件名)))<br />
    返回 ()<br />
.如果真结束<br />
原文本内容 ＝ 编码_Utf8到Ansi (读入文件 (文件名))<br />
文本长度 ＝ 文本_取长度 (项名称)<br />
文本起始位置 ＝ 文本_寻找文本 (原文本内容, 项名称, 1, 真)<br />
.如果真 (文本起始位置 ≠ -1)  ' 找到目标配置项了<br />
    ' 先判断配置项后面的文本有没有带引号号<br />
    ' 先找到配置项=后面内容的结束位置<br />
    .如果 (文本_寻找文本 (原文本内容, #引号, 文本起始位置, ) ＝ 文本起始位置 ＋ 文本长度 ＋ 1)<br />
        ' 调试输出 (“此配置项内容有引号”)<br />
        有引号 ＝ 真<br />
        起始位置 ＝ 文本_寻找文本 (原文本内容, #引号, 文本起始位置 ＋ 文本长度, )<br />
        结束位置 ＝ 文本_寻找文本 (原文本内容, #引号, 起始位置 ＋ 1, )<br />
        .如果真 (结束位置 ＝ -1)  ' 这是最后一个配置项，以")"结尾的<br />
            结束位置 ＝ 文本_寻找文本 (原文本内容, “)”, 文本起始位置 ＋ 文本长度, )<br />
        .如果真结束<br />
<br />
    .否则<br />
        ' 调试输出 (“此配置项内容无引号”)<br />
        有引号 ＝ 假<br />
        起始位置 ＝ 文本_寻找文本 (原文本内容, “=”, 文本起始位置 ＋ 文本长度, )<br />
        结束位置 ＝ 文本_寻找文本 (原文本内容, “,”, 文本起始位置 ＋ 文本长度, )<br />
        .如果真 (结束位置 ＝ -1)  ' 这是最后一个配置项，以")"结尾的<br />
            结束位置 ＝ 文本_寻找文本 (原文本内容, “)”, 文本起始位置 ＋ 文本长度, )<br />
        .如果真结束<br />
<br />
    .如果结束<br />
    配置项文本内容 ＝ 取文本中间 (原文本内容, 起始位置 ＋ 1, 结束位置 － 起始位置 － 1)<br />
.如果真结束<br />
<br />
文本左边 ＝ 文本_删中间 (原文本内容, 文本起始位置 ＋ 文本长度, 取文本长度 (原文本内容) － 文本起始位置 － 文本长度)<br />
.如果 (有引号)<br />
    文本右边 ＝ 文本_删中间 (原文本内容, 1, 文本起始位置 ＋ 文本长度 ＋ 2 ＋ 取文本长度 (配置项文本内容))<br />
.否则<br />
    文本右边 ＝ 文本_删中间 (原文本内容, 1, 文本起始位置 ＋ 文本长度 ＋ 取文本长度 (配置项文本内容))<br />
.如果结束<br />
' 调试输出 (“配置项内容：” ＋ 配置项文本内容)<br />
.如果 (有引号)<br />
    新文本内容 ＝ 文本左边 ＋ “=” ＋ #引号 ＋ 修改内容 ＋ #引号 ＋ 文本右边<br />
.否则<br />
    新文本内容 ＝ 文本左边 ＋ “=” ＋ 修改内容 ＋ 文本右边<br />
.如果结束<br />
' 调试输出 (新文本内容)<br />
新内容字节集 ＝ 编码_Ansi到Utf8 (新文本内容)<br />
<br />
<br />
文件号 ＝ 打开文件 (_启动窗口.编辑框1.内容 ＋ “\Pal\Saved\Config\WindowsServer\PalWorldSettings.ini”, #重写, )<br />
.如果真 (文件号 ≠ 0)<br />
    文件_写出字节集 (文件号, 新内容字节集, 1)<br />
    关闭文件 (文件号)<br />
.如果真结束<br />
程序_延时 (10, )<br />
处理事件 ()