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

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

masterlong 发表于 2022-5-16 23:09:54

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

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

yu960312 发表于 2022-5-17 03:40:59

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

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

landsat99 发表于 2022-5-17 09:16:25

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

标准接口无需自己造轮子

hebps 发表于 2023-3-21 10:17:47

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


运行不起来，缺少定义函数
no function definition:
P-STRING-LEFT
p-string-tokenize
页: 1 [2]
查看完整版本: 配置文件内容读取