[讨论]：共同完成读写ini文件通用函数

wkai · 发表于 2004-11-22 13:58:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

用lisp写程序经常需要将用户设置保存到文件中，而每个人都可能用不同的方法来实现。我想能不能写一个通用的ini文件读写函数，完成这个任务。

[项目组1]
项目1=项目值1
项目2=项目值2
。。。。

[项目组2]
项目1=项目值1
项目2=项目值2
。。。。

hyx_lyn · 发表于 2004-11-22 15:15:43

楼主的想法很好,能不能说一说具体的实现方法

wkai · 发表于 2004-11-22 17:35:40

一般的ini文件大致是这个样子的.

[Class]
num=4
Class1=系统软件
Class2=辅助工具
Class3=网络工具
Class4=多媒体
StopTime=60
[REG]
Caption=系统特性
Num=100
Directory=REG
File1=1.reg
MSG1=关闭光驱的自动运行特性
File2=2.REG
MSG2=不显示登录后的Tips

复制代码

将它读入形成一个表，用assoc来查找需要的项。

自由的鱼 · 发表于 2004-11-22 20:11:49

放到注册表里我感觉更好，而且代码也简单！

wkai · 发表于 2004-11-22 21:23:14

注册表中的内容不方便转移。如果是ini文件的话可以方便的复制到其他机器上。

自由的鱼 · 发表于 2004-11-22 21:25:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

最初由 wkai 发布
[B]注册表中的内容不方便转移。如果是ini文件的话可以方便的复制到其他机器上。 [/B]

嗯，这倒是，我没有考虑转移这一点！

wkai · 发表于 2004-11-22 21:48:23

查询某项值

(defun zhf:ini_ask(fn itemgroup item / tmp re)
(setq re (zhf:ini_read fn))
(if (setq tmp (assoc itemgroup re))
(cadr (assoc item (cdr tmp)))
)
)

对ini文件到表

(defun zhf:ini_read (fn / itemgroup re lst tmp x)
(if (findfile fn)
(progn
(setq fn (open fn "r"))
(while (setq tmp (read-line fn))
(setq tmp (vl-string-right-trim
" "
(vl-string-left-trim " " tmp)
)
)
;;; (print tmp)
(cond
((= ";" (zhf:str_nth tmp "s")))
((and (= "[" (zhf:str_nth tmp "s"))
(= "]" (zhf:str_nth tmp "e"))
)
(if itemgroup
(setq lst (cons itemgroup lst)
re (append re (list lst))
)
)
(setq itemgroup (vl-string-right-trim
"]"
(vl-string-left-trim "[" tmp)
)
)
(setq lst nil)
)
((setq x (vl-string-search "=" tmp))
(setq lst (append lst
(list (list (substr tmp 1 x) (substr tmp (+ 2 x))))
)
)
)
)
)
(if itemgroup
(setq lst (cons itemgroup lst)
re (append re (list lst))
)
)
(close fn)
)
)
re
)

(defun zhf:ini_read (fn / itemgroup re lst tmp x) 
  (if (findfile fn) 
    (progn 
      (setq fn (open fn "r")) 
      (while (setq tmp (read-line fn)) 
        (setq tmp (vl-string-right-trim 
                    " " 
                    (vl-string-left-trim " " tmp) 
                  ) 
        ) 
;;;    (print tmp) 
        (cond 
          ((= ";" (zhf:str_nth tmp "s"))) 
          ((and        (= "[" (zhf:str_nth tmp "s")) 
                (= "]" (zhf:str_nth tmp "e")) 
           ) 
           (if itemgroup 
             (setq lst (cons itemgroup lst) 
                   re  (append re (list lst)) 
             ) 
           ) 
           (setq itemgroup (vl-string-right-trim 
                             "]" 
                             (vl-string-left-trim "[" tmp) 
                           ) 
           ) 
           (setq lst nil) 
          ) 
          ((setq x (vl-string-search "=" tmp)) 
           (setq lst (append lst 
                             (list (list (substr tmp 1 x) (substr tmp (+ 2 x)))) 
                     ) 
           ) 
          ) 
        ) 
      ) 
      (if itemgroup 
        (setq lst (cons itemgroup lst) 
              re  (append re (list lst)) 
        ) 
      ) 
      (close fn) 
    ) 
  ) 
  re 
)

取字符串中的特定字符

(defun zhf:str_nth(str n / re)
(cond
((= 'STR (type n ))
(setq n (strcase n))
(cond ((= n "S") (setq re (substr str 1 1)))
((= n "E") (setq re (substr str (strlen str) 1)))
)
)
((= 'INT (type n ))
(setq re (substr str n 1))
)
((= 'LIST (type n ))
(setq re (substr str n 1))
)
)
re
)

shongdragon3 · 发表于 2004-11-23 10:26:50

果然有道理，想法不错

eachy · 发表于 2004-11-23 12:01:18

用 setcfg 和 getcfg 也不错

wkai · 发表于 2004-11-25 20:27:16

把表写入ini文件

(defun zhf:ini_write(fn lst / m n )
(setq fn (open fn "w"))
(foreach n lst
(write-line (strcat "["(car n)"]") fn )
(foreach m (cdr n)
(write-line (strcat (car m)"=" (cadr m)) fn )
)
(write-line "" fn )
)
(close fn)
)

查询项目值

(defun zhf:ini_ask(fn itemgroup item / tmp re)
(setq re (zhf:ini_read fn))
(if (setq tmp (assoc itemgroup re))
(cadr (assoc item (cdr tmp)))
)
)

winabcd · 发表于 2004-12-3 10:56:12

一个很好的构想，值得使用。

turner407 · 发表于 2004-12-4 17:00:12

这些内容还是很有用的. 可以让我们文件输出规范化

kailler · 发表于 2004-12-5 15:28:56

我现在只会autolisp，和一点arx,晓东的工具箱也不太清楚，但是我认为写ini一定要用GetPrivateProfileInt，GetPrivateProfileSection，GetPrivateProfileString，WritePrivateProfileSection才标准

账号		自动登录	找回密码
密码			立即注册

[讨论]：共同完成读写ini文件通用函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子