XML.CONFIG模块源码可以用这个格式的配置文件

.子程序 gcnew, 逻辑型, 公开, 实例化_Config_并复制数据至内存
.参数 path, 文本型
.局部变量 局_文本_s, 文本型, , "0"
.局部变量 局_计次, 整数型
.局部变量 局_数据, 字节集

' <?xml version="1.0" encoding="utf-8" ?>
' <configuration>
' <appSettings>
' <add key="this.EventA_Tags" value="Reader" />
数组清零 (static_string)
清除数组 (static_string)
重定义数组 (static_string, 假, 0)
' // 清除数组后必须重定义数组,否则默认一维
static_path ＝ path
局_数据 ＝ 读入文件 (path)
局_数据 ＝ 编码转换 (局_数据, #编码_UTF_8, #编码_GB18030, )
.如果真 (局_数据 ≠ {  })
    局_文本_s ＝ 分割文本 (到文本 (局_数据), #换行符, )
    .计次循环首 (取数组下标 (局_文本_s, ), 局_计次)
        .如果真 (删全部空 (局_文本_s [局_计次]) ≠ “”)
            .如果真 (寻找文本 (局_文本_s [局_计次], #IDN_模板_L_key, , 假) ≠ -1 且 寻找文本 (局_文本_s [局_计次], #IDN_模板_R_key, , 假) ≠ -1)
                加入成员 (static_string, 局_文本_s [局_计次])
            .如果真结束

        .如果真结束

    .计次循环尾 ()
.如果真结束
.如果真 (取数组下标 (static_string, ) ＞ 0)
    返回 (真)
.如果真结束
返回 (假)

.子程序 Write, 逻辑型, 公开, 写到指定键名
.参数 key, 文本型, 可空
.参数 value, 文本型, 可空
.局部变量 局_i
.局部变量 局_索引
.局部变量 局_文本, 文本型

.计次循环首 (取数组下标 (static_string, ), 局_索引)
    .如果真 (寻找文本 (static_string [局_索引], key, , 假) ≠ -1)
        static_string [局_索引] ＝ 子文本替换 (#IDN_模板_key, “{1}”, value, , , 真)
        static_string [局_索引] ＝ 子文本替换 (static_string [局_索引], “{0}”, key, , , 真)
        局_i ＝ 局_i ＋ 1
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
.如果真 (局_i ＝ 0)
    局_文本 ＝ 子文本替换 (#IDN_模板_key, “{1}”, value, , , 真)
    局_文本 ＝ 子文本替换 (局_文本, “{0}”, key, , , 真)
    加入成员 (static_string, 局_文本)
    返回 (真)
.如果真结束
返回 (假)

.子程序 save, 逻辑型, 公开, 保存配置文件
.局部变量 局_索引, 整数型
.局部变量 局_文本, 文本型
.局部变量 局_数据, 字节集

.计次循环首 (取数组下标 (static_string, ), 局_索引)
    局_文本 ＝ 局_文本 ＋ static_string [局_索引] ＋ #换行符
.计次循环尾 ()
局_文本 ＝ #IDN_模板_1 ＋ #换行符 ＋ 局_文本 ＋ #IDN_模板_2
局_数据 ＝ 编码转换 (到字节集 (局_文本), #编码_GB18030, #编码_UTF_8, )
返回 (写到文件 (static_path, 局_数据))