易语言自定义写配置项 源码

.版本 2
.支持库 spec

.子程序 _按钮1_被单击

写自定义配置项 (“aa.ini”, “yiyuyanq”, “aa”, “999”)  ' 新加
写自定义配置项 (“aa.ini”, “yiyuyan”, “a”, “987”)  ' 修改

.子程序 写自定义配置项
.参数 文件名, 文本型
.参数 节点名, 文本型
.参数 配置项名, 文本型
.参数 写入职, 文本型, 可空
.局部变量 配置文本, 文本型
.局部变量 配置组, 文本型, , "0"
.局部变量 临时数量, 整数型
.局部变量 临时组, 文本型, , "0"
.局部变量 生成组, 文本型, , "0"
.局部变量 配置名找到, 逻辑型
.局部变量 节点名找到, 逻辑型
.局部变量 生成文本, 文本型
.局部变量 添加文本, 文本型
.局部变量 i, 整数型
.局部变量 j, 整数型

.如果真 (文件是否存在 (文件名) ＝ 假)
    写到文件 (文件名, 取空白字节集 (0))
.如果真结束

配置文本 ＝ 到文本 (读入文件 (文件名))
配置组 ＝ 分割文本 (配置文本, “},”, )
重定义数组 (生成组, 假, 取数组成员数 (配置组), 30)
' 调试输出 (取数组成员数 (配置组))
.计次循环首 (取数组成员数 (配置组), i)
    .如果真 (文本_删首尾空 (文本_取左边 (配置组 <i>, “{”, )) ＝ 节点名)
        节点名找到 ＝ 真
    .如果真结束
    临时组 ＝ 分割文本 (配置组 <i>, #换行符, )
    .计次循环首 (取数组成员数 (临时组), j)

        .如果 (文本_删首尾空 (文本_取左边 (临时组 [j], “=”, )) ＝ 配置项名 且 节点名找到 ＝ 真)
            ' 临时组 [j] ＝ 配置项名 ＋ “=” ＋ 写入职
            配置名找到 ＝ 真
            生成组 <i> [j] ＝ 配置项名 ＋ “=” ＋ 写入职 ＋ “,”
        .否则
            生成组 <i> [j] ＝ 临时组 [j]
        .如果结束

    .计次循环尾 ()
    .如果真 (配置名找到 ＝ 假 且 节点名找到 ＝ 真)
        生成组 <i> [取数组成员数 (临时组) ＋ 1] ＝ 配置项名 ＋ “=” ＋ 写入职 ＋ “,”
    .如果真结束

.计次循环尾 ()

.如果真 (节点名找到 ＝ 假)
    添加文本 ＝ 节点名 ＋ “ {” ＋ #换行符 ＋ 配置项名 ＋ “=” ＋ 写入职 ＋ “,” ＋ #换行符 ＋ “},” ＋ #换行符
.如果真结束

.计次循环首 (取数组成员数 (配置组), i)

    .计次循环首 (30, j)
        .如果真 (生成组 <i> [j] ≠ “”)
            生成文本 ＝ 生成文本 ＋ 生成组 <i> [j] ＋ #换行符
        .如果真结束

    .计次循环尾 ()
    ' 调试输出 (配置组 <i>)
    .如果真 (寻找文本 (配置组 <i>, “=”, , 假) ≠ -1)
        生成文本 ＝ 生成文本 ＋ “},” ＋ #换行符 ＋ #换行符
    .如果真结束

.计次循环尾 ()
生成文本 ＝ 生成文本 ＋ 添加文本 ＋ #换行符
写到文件 (文件名, 到字节集 (生成文本))
调试输出 (生成文本)