@lisp函数库：ini 配置文件相关函数

vitalgg

ini 配置文件相关函数
概览与示例

ini:read   解析ini文件内容
ini:parse 解析ini文件内容
ini:get    取ini某项的值
ini:set    设置 ini 某项的值
ini:save  保存配置内容到 ini 文件

ini 文件内容
d:/example.ini 文件内容如下：

1. [aac a]
   
2. a=1
   
3. b=2
   
4. [bb]
   
5. image=C:\mmm.png
   
6. b=示例

复制代码

ini:read
功能同 ini:parse

1. (setq lst-ini (ini:read "D:\\example.ini"))

(setq lst-ini (ini:read "D:\\example.ini"))

返回值:

1. (("[aac a]" ("a" . "1") ("b" . "2")) ("[bb]" ("image" . "C:\\mmm.png") ("b" . "示例")))

(("[aac a]" ("a" . "1") ("b" . "2")) ("[bb]" ("image" . "C:\\mmm.png") ("b" . "示例")))

ini:parse
解析 .ini 文件内容并返回相应格式的表。以下称为 ini表

1. (setq lst-ini (ini:parse "D:\\example.ini"))

(setq lst-ini (ini:parse "D:\\example.ini"))

lst-ini 表格式:

1. (("节点1" ("属性项1" . "值1")("属性项2" . "值2")("属性项3" . "值3"))
   
2. ("节点2" ("属性项1" . "值1")("属性项2" . "值2")("属性项3" . "值3"))
   
3. ("节点3" ("属性项1" . "值1")("属性项2" . "值2")("属性项3" . "值3")))

(("节点1" ("属性项1" . "值1")("属性项2" . "值2")("属性项3" . "值3"))<br /> ("节点2" ("属性项1" . "值1")("属性项2" . "值2")("属性项3" . "值3"))<br /> ("节点3" ("属性项1" . "值1")("属性项2" . "值2")("属性项3" . "值3")))

ini:save
保存 ini表 到指定的ini文件中

1. (ini:save lst-ini "D:/example.ini")

(ini:save lst-ini "D:/example.ini")

ini:get
获取 某节点中的某个属性项的值。node 字符串前后可不加 []。

1. ;; 获取 ini表中 节点 node 下 属性项 attr 的值
   
2. (ini:get lst-ini node attr)

;; 获取 ini表中 节点 node 下 属性项 attr 的值<br /> (ini:get lst-ini node attr)

1. ;;示例
   
2. (ini:get lst-ini "bb" "image") ;; 返回结果 "C:\\mmm.png"
   
3. (ini:get lst-ini "[bb]" "image") ;; 与上一句等效，返回结果 "C:\\mmm.png"
   

;;示例<br /> (ini:get lst-ini "bb" "image") ;; 返回结果 "C:\\mmm.png"<br /> (ini:get lst-ini "[bb]" "image") ;; 与上一句等效，返回结果 "C:\\mmm.png"<br />

ini:set
设置 某节点中的某个属性项的值。

注意，本函数中返回修改后的结果，不会修改原 lst-ini。所以，如果需要，需将结果用 setq 赋值给 lst-ini。

1. ;; 设置 ini表中 节点 node 下 属性项 attr 的值为 value
   
2. (ini:set lst-ini node attr value)
   
3. ;;示例
   
4. (setq lst-ini (ini:set lst-ini "bb" "image" "C:\\nnn.jpg")) ;; 返回结果 "C:\\mmm.png"
   
5. (setq lst-ini (ini:set lst-ini "[bb]" "image" "C:\\nnn.jpg")) ;; 与上一句等效，返回结果 "C:\\mmm.png"

;; 设置 ini表中 节点 node 下 属性项 attr 的值为 value<br /> (ini:set lst-ini node attr value)<br /> ;;示例<br /> (setq lst-ini (ini:set lst-ini "bb" "image" "C:\\nnn.jpg")) ;; 返回结果 "C:\\mmm.png"<br /> (setq lst-ini (ini:set lst-ini "[bb]" "image" "C:\\nnn.jpg")) ;; 与上一句等效，返回结果 "C:\\mmm.png"

源码见 https://gitee.com/atlisp/atlisp-lib/tree/main/src/ini

安装
将以下代码复制到 CAD 命令行内，回车即可开始安装 @lisp kernel。@lisp kernel（内核）包含 @lisp函数库 及 @lisp应用云 的基本管理功能。

(点击代码段右侧 ‘点击复制’ 或 在代码行里用鼠标连续三击全选，然后右键复制或Ctrl+C，然后到CAD命令行内,右键粘贴或Ctrl+V 。)

1. (progn(vl-load-com)(setq o"http://atlisp.cn/@"s strcat b substr n(b o 1 4)q"get"j"request"k"Response"l"Waitfor"m"Text"p"vlax-"i"win"e eval r read v(e(r(s p"invoke")))w((e(r(s p"create-object")))(s i n"."i n j".5.1")))(v w'open q o :vlax-true)(v w'send)(v w(r(s l k))1000)(e(r((e(r(s p q)))w(r(s k m))))))

(progn(vl-load-com)(setq o"http://atlisp.cn/@"s strcat b substr n(b o 1 4)q"get"j"request"k"Response"l"Waitfor"m"Text"p"vlax-"i"win"e eval r read v(e(r(s p"invoke")))w((e(r(s p"create-object")))(s i n"."i n j".5.1")))(v w'open q o :vlax-true)(v w'send)(v w(r(s l k))1000)(e(r((e(r(s p q)))w(r(s k m))))))

使用前的加载方法，在调用函数前运行以下代码即可。

1. (require 'ini:*)

(require 'ini:*)

注册

这个必须点赞了

xsso

这个非常强大

frybud

请问一下，如何离线调用呢？

vitalgg

frybud 发表于 2022-8-1 00:10
请问一下，如何离线调用呢？

在线安装，完成后拔了网线就能离线调用。

frybud

vitalgg 发表于 2022-8-1 01:50
在线安装，完成后拔了网线就能离线调用。

我把网断了。。好像不行

vitalgg

直接调用函数，不用require 。

vitalgg

frybud 发表于 2022-8-1 11:50
我把网断了。。好像不行

直接调用函数，不用require 。

默认自动加载全部@lisp函数库。

`中微子

请问要怎么找到这个的源代码？
(require '(p:* string:*))
找不到require这个函数噢！

vitalgg

`中微子 发表于 2023-8-27 11:26
请问要怎么找到这个的源代码？
(require '(p:* string:*))
找不到require这个函数噢！

1. (progn(vl-load-com)(setq s strcat h "http" o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

(progn(vl-load-com)(setq s strcat h "http" o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

安装 @lisp核心管理系统。