用法
评论
建议
取 消
确 定
(defun ini:save (lst-ini filename / *error* fp) "保存 lst-ini 表 到 ini 文件。" "T or nil" (defun *error* (msg) (if (= (quote file) (type fp)) (close fp)) (@:*error* msg)) (setq fp (open filename "w")) (if (= (quote file) (type fp)) (progn (foreach sub lst-ini (foreach item sub (cond ((and (p:stringp item) (/= "" item)) (write-line (strcat "[" (vl-string-trim "[] " item) "]") fp)) ((and (listp item) (p:stringp (car item)) (/= "" (car item))) (write-line (strcat (vl-string-trim " " (car item)) "=" (if (p:stringp (cdr item)) (cdr item) (vl-prin1-to-string (cdr item)))) fp))))) (close fp) t)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新