[求助]请教高手,谁有这样一个函数?

userzhl

谁有这样一个函数?

(ini-get inifile section key default)

功能及参数
inifile 字符串---------寻找的INI文件名
section 字符串或nil----INI文件内部的Section名称
key 字符串或nil----section内部的Key名称.
default 字符串---------当无法查找到key时,返回的默认值.

1.如果仅给了inifile,返回section名称表.
(ini-get "d:/diy.ini" nil nil nil)
-->("ORIGIN" "OTHER")

2.如果给了inifile,section.返回key表
(ini-get "d:/diy.ini" "ORIGIN" nil nil)
("$diy_BL" "$diy_SZZG" "$diy_HZZG" )

3.如果给了inifile,section,key
(ini-get "d:/diy.ini" "ORIGIN" "$diy_bl" nil)
-->"100"
4.值不存在.则设置为默认值
(ini-get "d:/diy.ini" "ORIGIN" "abc" nil)
-->nil
(ini-get "d:/diy.ini" "ORIGIN" "abc" "500")
-->"500"

----以下为"d:/diy.ini"文件内容---

[ORIGIN]
;比例
$diy_BL=100
$diy_SZZG=350 ;数字字高
;汉字字高
$diy_HZZG=500

[OTHER]
;diy_CC交叉打断命令断开的距离.
$diy_CC_WIDTH=400

ayunger

;;;*******************************************************
;   No.4-1 *.INI 初始化文件读取 函数                     
; 参数: ini文件名(cad搜索目录下可省略路径),小节名,关键字 
;;;*******************************************************
(defun ayIniRead (IniFile Section Keys / fp IsLoop IsThisSec xString xValue)
 (vl-load-com)
 (setq Section (strcase (strcat "[" Section "]")))
 (setq Keys (strcase (strcat Keys "=*")))
 (setq IsThisSec nil)
  (setq IsLoop T)
  (if (setq IniFile (findfile IniFile))
    (progn
      (setq fp (open IniFile "r"))
      (while (and IsLoop (setq xString (read-line fp)))
    (if (= (strcase xString) Section) (setq IsThisSec T))
    (setq xstring (vl-string-trim " " xstring))
    (if (= xstring "") (setq IsThisSec nil))
    (if IsThisSec
        (if (wcmatch (strcase xString) Keys)
      (progn
       (setq xValue (vl-string-trim " " (substr xString (strlen Keys))))
       (if (= xValue "") (setq IsThisSec nil))
       (setq IsLoop nil)
      );end_progn
     );end_if
    );end_if
   );end_while
      (close fp)
    );end_progn
  );end_if
  (setq xValue (if (not xValue) "" xValue))
);end_defun

userzhl

试了不行

sailorcwx

2. (defun ini-get(inifile section key default / FILEID I KEYVALUE SECTIONS STRREAD TMPKEY TMPKEYNAME TMPKEYVALUE TMPSECTION)
3.   ;判断文件是否存在
4.   (if (and inifile (setq fileid (open inifile "R")))
5.     ;文件存在，读取文件内容构造表((section (key value)(key vlue)...)(section ....))
6.     (progn
7.       ;按行读取
8.       (while (setq strread (read-line fileid))
9. ;根据第一个字符判断是section还是key
10. (cond
11.    ;section,读取section名称
12.    ((= (substr strread 1 1) "[")
13.     ;保存之前的section表
14.     (if tmpsection (setq sections (append sections (list tmpsection))))
15.     ;构造新的section表
16.     (setq tmpsection (list (substr strread 2 (- (strlen strread) 2))))
17.     )
18.    ;key,读取keyname和value组成表添加进section表里面
19.    ((= (substr strread 1 1) "$")
20.     (setq i (vl-string-search "=" strread)
21.    tmpkeyname (substr strread 1 i)
22.    tmpkeyvalue (substr strread (+ i 2))
23.    tmpkey (list tmpkeyname tmpkeyvalue)
24.    tmpsection (append tmpsection (list tmpkey))
25.    )
26.     )
27.    )
28. )
29.       (if tmpsection (setq sections (append sections (list tmpsection))))
30.       (close fileid)
31.       ;按section，key,value一级级判断
32.       ;如果section没有值或所给值不在inifile中，按nil处理
33.       (if (or (null section)(null (setq section (assoc section sections))))
34. ;返回所有的section名称
35. (mapcar 'car sections)
36. ;找到section
37. (progn
38.    
39.    (setq section (cdr section))
40.    ;是否给出key
41.    (if key
42.      ;在section中查找key
43.      (if (setq key (assoc key section))
44.        ;找到key,返回key值
45.        (cadr key)
46.        ;找不到key,返回default值
47.        default
48.       
49.        )
50.      ;没有给出key，返回section中的所有key
51.      (mapcar 'car section)
52.      )
53.    )
54. )
55.       )
56.     )
57.   )

(defun ini-get(inifile section key default / FILEID I KEYVALUE SECTIONS STRREAD TMPKEY TMPKEYNAME TMPKEYVALUE TMPSECTION)   ;判断文件是否存在   (if (and inifile (setq fileid (open inifile "R")))     ;文件存在，读取文件内容构造表((section (key value)(key vlue)...)(section ....))     (progn       ;按行读取       (while (setq strread (read-line fileid)) ;根据第一个字符判断是section还是key (cond    ;section,读取section名称    ((= (substr strread 1 1) "[")     ;保存之前的section表     (if tmpsection (setq sections (append sections (list tmpsection))))     ;构造新的section表     (setq tmpsection (list (substr strread 2 (- (strlen strread) 2))))     )    ;key,读取keyname和value组成表添加进section表里面    ((= (substr strread 1 1) "$")     (setq i (vl-string-search "=" strread)    tmpkeyname (substr strread 1 i)    tmpkeyvalue (substr strread (+ i 2))    tmpkey (list tmpkeyname tmpkeyvalue)    tmpsection (append tmpsection (list tmpkey))    )     )    ) )       (if tmpsection (setq sections (append sections (list tmpsection))))       (close fileid)       ;按section，key,value一级级判断       ;如果section没有值或所给值不在inifile中，按nil处理       (if (or (null section)(null (setq section (assoc section sections)))) ;返回所有的section名称 (mapcar 'car sections) ;找到section (progn        (setq section (cdr section))    ;是否给出key    (if key      ;在section中查找key      (if (setq key (assoc key section))        ;找到key,返回key值        (cadr key)        ;找不到key,返回default值        default               )      ;没有给出key，返回section中的所有key      (mapcar 'car section)      )    ) )       )     )   )

秋枫

回复 sailorcwx 的帖子

谢谢 Sailorcwx。收藏。

lionguns

我也收藏.