如何读取配置文件

aeyizhan

如下格式的配置文件，需要怎么读取和写入呢
类似易语言的度配置项（） 写配置项（）

yiyuyan {

a=“1234”,
b=1000,
c=2000,
d=“bbs”,
e=false,
3389=true,
易语言=“中文编程”,
},

yiyuyan2 {

1a=“1234”,
1b=1000,
1c=2000,
1d=“bbs”,
1e=false,
13389=true,
1易语言=“中文编程”,
},

时髦猪

  

子程序名	返回值类型	公开	备 注
_按钮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)
生成文本 ＝ 生成文本 ＋ “},” ＋ #换行符 ＋ #换行符

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

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 写自定义配置项 (“aa.ini”, “yiyuyanq”, “aa”, “999”)  ' 新加<br /> 写自定义配置项 (“aa.ini”, “yiyuyan”, “a”, “987”)  ' 修改<br /> <br /> .子程序 写自定义配置项<br /> .参数 文件名, 文本型<br /> .参数 节点名, 文本型<br /> .参数 配置项名, 文本型<br /> .参数 写入职, 文本型, 可空<br /> .局部变量 配置文本, 文本型<br /> .局部变量 配置组, 文本型, , "0"<br /> .局部变量 临时数量, 整数型<br /> .局部变量 临时组, 文本型, , "0"<br /> .局部变量 生成组, 文本型, , "0"<br /> .局部变量 配置名找到, 逻辑型<br /> .局部变量 节点名找到, 逻辑型<br /> .局部变量 生成文本, 文本型<br /> .局部变量 添加文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> .如果真 (文件是否存在 (文件名) ＝ 假)<br />     写到文件 (文件名, 取空白字节集 (0))<br /> .如果真结束<br /> <br /> 配置文本 ＝ 到文本 (读入文件 (文件名))<br /> 配置组 ＝ 分割文本 (配置文本, “},”, )<br /> 重定义数组 (生成组, 假, 取数组成员数 (配置组), 30)<br /> ' 调试输出 (取数组成员数 (配置组))<br /> .计次循环首 (取数组成员数 (配置组), i)<br />     .如果真 (文本_删首尾空 (文本_取左边 (配置组 <i>, “{”, )) ＝ 节点名)<br />         节点名找到 ＝ 真<br />     .如果真结束<br />     临时组 ＝ 分割文本 (配置组 <i>, #换行符, )<br />     .计次循环首 (取数组成员数 (临时组), j)<br /> <br />         .如果 (文本_删首尾空 (文本_取左边 (临时组 [j], “=”, )) ＝ 配置项名 且 节点名找到 ＝ 真)<br />             ' 临时组 [j] ＝ 配置项名 ＋ “=” ＋ 写入职<br />             配置名找到 ＝ 真<br />             生成组 <i> [j] ＝ 配置项名 ＋ “=” ＋ 写入职 ＋ “,”<br />         .否则<br />             生成组 <i> [j] ＝ 临时组 [j]<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (配置名找到 ＝ 假 且 节点名找到 ＝ 真)<br />         生成组 <i> [取数组成员数 (临时组) ＋ 1] ＝ 配置项名 ＋ “=” ＋ 写入职 ＋ “,”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .如果真 (节点名找到 ＝ 假)<br />     添加文本 ＝ 节点名 ＋ “ {” ＋ #换行符 ＋ 配置项名 ＋ “=” ＋ 写入职 ＋ “,” ＋ #换行符 ＋ “},” ＋ #换行符<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (配置组), i)<br /> <br />     .计次循环首 (30, j)<br />         .如果真 (生成组 <i> [j] ≠ “”)<br />             生成文本 ＝ 生成文本 ＋ 生成组 <i> [j] ＋ #换行符<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     ' 调试输出 (配置组 <i>)<br />     .如果真 (寻找文本 (配置组 <i>, “=”, , 假) ≠ -1)<br />         生成文本 ＝ 生成文本 ＋ “},” ＋ #换行符 ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 生成文本 ＝ 生成文本 ＋ 添加文本 ＋ #换行符<br /> 写到文件 (文件名, 到字节集 (生成文本))<br /> 调试输出 (生成文本)

呵呵仙

取字节集中间(),替换字节集()

补充内容 (2023-8-16 18:40):
{:7_458:}正则也可以

xiaoka2018

{
    "a": "1234",
    "b": 1000,
    "c": 2000,
    "d": "bbs",
    "e": false,
    "3389": true,
    "易语言": "中文编程"
}
如果是这样的话，可以用json解析

菜鸟路过

正则替换下 在用json获取

Jannock

一定要这个格式吗

b0y

用文本操作可以的