配置文件内容读取

vectra

1. ;;;_$ (p-ini-read "D:\\Profile\\desktop\\新建文本文档.ini")
   
2. ;;;(("LL" "1.2") ("WW" "1.5") ("RR" "3.0") ("TT" "5.0") ("......"))
   
3. (defun p-ini-read (filename / file line content)
   
4.   (if (and (setq filename (findfile filename))
   
5.            (setq file (open filename "r"))
   
6.       )
   
7.     (progn
   
8.       (while (setq line (read-line file))
   
9.         (if (and (setq line (vl-string-trim " \t\n" line))
   
10.                  (/= line "")
    
11.                  (/= (p-string-left line 1) ";")
    
12.                  (/= (p-string-left line 2) "\\\\")
    
13.                  (setq line (p-string-tokenize line "="))
    
14.             )
    
15.           (setq        line        (mapcar '(lambda (e) (vl-string-trim " \t\n" e)) line)
    
16.                 content        (cons line content)
    
17.           )
    
18.         )
    
19.       )
    
20.       (close file)
    
21.       (reverse content)
    
22.     )
    
23.   )
    
24. )

;;;_$ (p-ini-read "D:\\Profile\\desktop\\新建文本文档.ini")<br /> ;;;(("LL" "1.2") ("WW" "1.5") ("RR" "3.0") ("TT" "5.0") ("......"))<br /> (defun p-ini-read (filename / file line content)<br />   (if (and (setq filename (findfile filename))<br />            (setq file (open filename "r"))<br />       )<br />     (progn<br />       (while (setq line (read-line file))<br />         (if (and (setq line (vl-string-trim " \t\n" line))<br />                  (/= line "")<br />                  (/= (p-string-left line 1) ";")<br />                  (/= (p-string-left line 2) "\\\\")<br />                  (setq line (p-string-tokenize line "="))<br />             )<br />           (setq        line        (mapcar '(lambda (e) (vl-string-trim " \t\n" e)) line)<br />                 content        (cons line content)<br />           )<br />         )<br />       )<br />       (close file)<br />       (reverse content)<br />     )<br />   )<br /> )

masterlong

vectra 发表于 2022-5-16 22:25
也许楼主不能接受lsp文件格式保存

如果这个文件是自己生成的
啥格式有啥关系嘛
方便读取不影响使用就好了

yu960312

masterlong 发表于 2022-5-16 22:17
我这源码都贴了
另一种方法也讲了
还搞不定？

新手正在摸索,什么函数都不知道,只能看看大佬的代码学习学习

landsat99

配置文件建议标准格式，数据表达能力 扩展性通用型都有严格保障。yaml Json或XML都可选择

标准接口无需自己造轮子

hebps

vectra 发表于 2022-5-16 22:36

运行不起来，缺少定义函数
no function definition:
P-STRING-LEFT
p-string-tokenize