【INI】解析配置文件

kucha007

不保证通用性，只是自己的程序需要：http://bbs.mjtd.com/thread-187339-1-1.html

;配置文件内部是这样的，第一个分号后面的是注释，前面的是值。更新也是这个逻辑。

1. 1;PlotStyle
   
2. 0;PaperSize
   
3. 0;PrintName

复制代码

相关的三个函数：

2. ;串联用分隔符字符串@LeeMac
   
3. (defun K:Lst2Str (Lst Del / itm str)
   
4.   (setq str (car Lst))
   
5.   (foreach itm (cdr Lst)
   
6.     (setq str (strcat str del itm))
   
7.   )
   
8.   str
   
9. )
   
10. ;新建配置文件并获取数据
    
11. (defun K:ReadPtVar (FPath / Lst FName des lin)
    
12.   (setq Lst '())
    
13.   (if (not (setq FName (findfile FPath)));文件不存在
    
14.     (progn
    
15.       (setq des (open FPath "w"))
    
16.       (princ
    
17.         (K:Lst2Str '("1;PrintName" "0;PaperSize" "0;PlotStyle") "\n")
    
18.         des
    
19.       )
    
20.       (close des)
    
21.     )
    
22.   )
    
23.   (if (setq FName (findfile FPath))
    
24.     (progn
    
25.       (setq des (open FName "r"))
    
26.       (while (setq lin (read-line des))
    
27.         (setq lin (substr lin 1 (vl-string-position (ascii ";") lin)))
    
28.         (setq Lst (cons lin Lst))
    
29.       )
    
30.       (close des)
    
31.     )
    
32.   )
    
33.   (reverse Lst)
    
34. )
    
35. ;将最新的设置记录到配置文件
    
36. (defun K:RecordPtVar (FPath NewLst / NewData FName des Nam lin)
    
37.   (setq NewData '())
    
38.   (if (setq FName (findfile FPath));文件存在
    
39.     (progn
    
40.       (setq des (open FName "r"))
    
41.       (setq Nam 0)
    
42.       (while (setq lin (read-line des))
    
43.         (setq lin (strcat
    
44.                     (nth Nam (reverse NewLst))
    
45.                     (substr lin (1+ (vl-string-position (ascii ";") lin)))
    
46.                   )
    
47.         )
    
48.         (setq NewData (cons lin NewData))
    
49.         (setq Nam (1+ Nam))
    
50.       )
    
51.       (close des)
    
52.       (setq des (open FPath "w"))
    
53.       (princ (K:Lst2Str NewData "\n") des)
    
54.       (close des)
    
55.     )
    
56.   )
    
57. )

;串联用分隔符字符串@LeeMac<br /> (defun K:Lst2Str (Lst Del / itm str) <br />   (setq str (car Lst))<br />   (foreach itm (cdr Lst) <br />     (setq str (strcat str del itm))<br />   )<br />   str<br /> )<br /> ;新建配置文件并获取数据<br /> (defun K:ReadPtVar (FPath / Lst FName des lin) <br />   (setq Lst '())<br />   (if (not (setq FName (findfile FPath)));文件不存在<br />     (progn<br />       (setq des (open FPath "w"))<br />       (princ <br />         (K:Lst2Str '("1;PrintName" "0;PaperSize" "0;PlotStyle") "\n")<br />         des<br />       )<br />       (close des)<br />     )<br />   )<br />   (if (setq FName (findfile FPath))<br />     (progn <br />       (setq des (open FName "r"))<br />       (while (setq lin (read-line des)) <br />         (setq lin (substr lin 1 (vl-string-position (ascii ";") lin)))<br />         (setq Lst (cons lin Lst))<br />       )<br />       (close des)<br />     )<br />   )<br />   (reverse Lst)<br /> )<br /> ;将最新的设置记录到配置文件<br /> (defun K:RecordPtVar (FPath NewLst / NewData FName des Nam lin)<br />   (setq NewData '())<br />   (if (setq FName (findfile FPath));文件存在<br />     (progn<br />       (setq des (open FName "r"))<br />       (setq Nam 0)<br />       (while (setq lin (read-line des))<br />         (setq lin (strcat <br />                     (nth Nam (reverse NewLst))<br />                     (substr lin (1+ (vl-string-position (ascii ";") lin)))<br />                   )<br />         )<br />         (setq NewData (cons lin NewData))<br />         (setq Nam (1+ Nam))<br />       )<br />       (close des)<br />       (setq des (open FPath "w"))<br />       (princ (K:Lst2Str NewData "\n") des)<br />       (close des)<br />     )<br />   )<br /> )

yu960312

dcl1214 发表于 2023-3-15 14:48
ini的配置文件如果很多，或者是很大，当用户修改界面上的勾选项或者是默认项的时候，每次修改ini速度是很慢 ...

大佬，最近正在寻找用数据库代替ini配置文件的资料，能不能写一个示例程序
1 . 创建数据库
2 . 链接数据库
3 . 查询数据库指定项的值
4 . 修改数据库指定项的值
5 . 新增数据库指定项

dcl1214

yu960312 发表于 2023-10-9 06:17
大佬，最近正在寻找用数据库代替ini配置文件的资料，能不能写一个示例程序
1 . 创建数据库
2 . 链接数 ...

针对数据库我做过直播的，同时也在明经发布了很多示例，明经群里很多人在用我分享的exe


【金山文档】 数据库DBO接口函数说明
https://kdocs.cn/l/cnRzPSRIaCJ9

kucha007

dcl1214 发表于 2023-3-15 14:48
ini的配置文件如果很多，或者是很大，当用户修改界面上的勾选项或者是默认项的时候，每次修改ini速度是很慢 ...

感谢回复，目前用的比较简单，只是几个参数而已。
你说的数据库蛮有意思，不过我不会，请教一下那里可以找到案例吗？有时间学习一下

fangmin723

为啥要解析ini文件，直接把list转成字符串然后打印到文件不香吗，直接用assoc和subst就可以实现查找和替换

kucha007

fangmin723 发表于 2023-3-14 07:15
为啥要解析ini文件，直接把list转成字符串然后打印到文件不香吗，直接用assoc和subst就可以实现查找和替换

现在就是这样的啊

vitalgg

.ini 文件是有专门格式的。由多个节点 node 和 关键字 值 组成。
当然 你自用的话，怎么定义格式都无所谓。

[node]
keyid = value # 说明
# 注释说明

kucha007

vitalgg 发表于 2023-3-14 09:21
.ini 文件是有专门格式的。由多个节点 node 和 关键字 值 组成。
当然 你自用的话，怎么定义格式都无所谓 ...

感谢回复，有看到你的帖子。自用的话只是需要有一个文件储存信息，所以不需要太复杂

d1742647821

kucha007 发表于 2023-3-14 09:24
感谢回复，有看到你的帖子。自用的话只是需要有一个文件储存信息，所以不需要太复杂

主要是你这ini文件不满足通用的ini文件格式标准，建议自己起个后缀名

kucha007

d1742647821 发表于 2023-3-14 10:50
主要是你这ini文件不满足通用的ini文件格式标准，建议自己起个后缀名

明白，直接改txt

hzyhzjjzh

谢谢分享

dcl1214

ini的配置文件如果很多，或者是很大，当用户修改界面上的勾选项或者是默认项的时候，每次修改ini速度是很慢的，建议改成数据库模式读取，一个20M的ini文件，修改其中一个小小的地方，只需要0.001秒