用法
评论
建议
取 消
确 定
(defun ini:read (filename / fp result *error*) "解析 ini 文件。" "list" (defun *error* (msg) (if (= (quote file) (type fp)) (close fp)) (@:*error* msg)) (setq fp (open filename "r")) (setq result (quote nil)) (setq sub (quote nil)) (while (setq str-line (read-line fp)) (setq str-line (car (string:parse-by-lst (vl-string-trim " " str-line) (quote (";" "#"))))) (cond ((= 91 (ascii str-line)) (if sub (setq result (cons (reverse sub) result))) (setq sub (cons (strcat "[" (vl-string-trim "[] " str-line) "]") nil))) ((setq a&v (string:to-list str-line "=")) (setq sub (cons (cons (car a&v) (cadr a&v)) sub))) (t (prompt (strcat "parse error " str-line))))) (if sub (setq result (cons (reverse sub) result))) (close fp) (reverse result))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新
冀公网安备 13050302000400号