[LISP函数]：ini文件读取函数,高手可修改败点

ywqq

ini文件读取函数,高手可修改败点

2. 
   
3. ;ini文件读取函数reini
   
4. ;reini参数:ini文件全名,小节名,关键字
   
5. (defun reini(file1 gd1 key1 / file1_id inils exst t1 t2 t3 t4 t5 tt n1 n2)
   
6. (if (findfile file1)
   
7.   (progn
   
8.    (setq file1 (findfile file1))
   
9.    (progn  ;读取ini文件,转化为表
   
10.      (setq file1_id (open file1 "r"))
    
11.      (if file1_id
    
12.        (progn
    
13.          (setq t1 (read-line file1_id))
    
14.          (while        (/= t1 nil)
    
15.            (setq inils (cons t1 inils)
    
16.                  t1    (read-line file1_id))
    
17.          )
    
18.          (setq inils (reverse inils))
    
19.          (close file1_id)
    
20.         ))
    
21.    )
    
22.    (progn  ;查找键值所在距间,并返回键值
    
23.      (setq gd1 (strcat "[" gd1 "]")
    
24.            t2 (vl-position gd1 inils))
    
25.      (if (/= t2 nil)
    
26.        (progn
    
27.          (setq t3 (vl-list-length inils)
    
28.                t4 nil
    
29.                t5 (+ t2 1))
    
30.          (while (= t4 nil)
    
31.            (if (< t5 t3)
    
32.              (progn
    
33.                 (setq tt (nth t5 inils)
    
34.                       t1 (vl-string-search "[" tt))
    
35.                 (if (/= t1 nil)(setq t4 t5
    
36.                                      t5 (+ t3 1))
    
37.                   (setq t5 (+ t5 1))
    
38.                 )
    
39.              )
    
40.              (setq t4 t3)
    
41.             )
    
42.            )
    
43.          (setq n1 t2 n2 t4);返回查找键值在表的距间
    
44.          (while (< n1 n2)
    
45.            (progn
    
46.              (setq t1 (nth n1 inils)
    
47.                    t2 (vl-string-search "=" t1))
    
48.              (if (/= t2 nil)
    
49.                (progn
    
50.                  (setq t3 (substr t1 1 t2))
    
51.                  (if (= t3 key1)(setq exst (substr t1 (+ t2 2))
    
52.                                       n1 (+ n2 1))
    
53.                    (setq n1 (+ n1 1)))
    
54.                 )
    
55.                (setq n1 (+ n1 1))
    
56.              )
    
57.             )
    
58.            )
    
59.         )
    
60.        (setq exst nil)
    
61.       )))
    
62. (setq exst nil)
    
63. )
    
64. exst  
    
65. )
    

<br /> ;ini文件读取函数reini<br /> ;reini参数:ini文件全名,小节名,关键字<br /> (defun reini(file1 gd1 key1 / file1_id inils exst t1 t2 t3 t4 t5 tt n1 n2)<br /> (if (findfile file1)<br />   (progn<br />    (setq file1 (findfile file1))<br />    (progn  ;读取ini文件,转化为表<br />      (setq file1_id (open file1 "r"))<br />      (if file1_id<br />        (progn<br />          (setq t1 (read-line file1_id)) <br />          (while        (/= t1 nil)<br />            (setq inils (cons t1 inils)<br />                  t1    (read-line file1_id))<br />          )<br />          (setq inils (reverse inils))<br />          (close file1_id)<br />         ))<br />    )<br />    (progn  ;查找键值所在距间,并返回键值<br />      (setq gd1 (strcat "[" gd1 "]")<br />            t2 (vl-position gd1 inils))<br />      (if (/= t2 nil)<br />        (progn<br />          (setq t3 (vl-list-length inils)<br />                t4 nil<br />                t5 (+ t2 1))<br />          (while (= t4 nil)<br />            (if (< t5 t3)<br />              (progn<br />                 (setq tt (nth t5 inils)<br />                       t1 (vl-string-search "[" tt))<br />                 (if (/= t1 nil)(setq t4 t5<br />                                      t5 (+ t3 1))<br />                   (setq t5 (+ t5 1))<br />                 )<br />              )<br />              (setq t4 t3)<br />             )<br />            )<br />          (setq n1 t2 n2 t4);返回查找键值在表的距间<br />          (while (< n1 n2)<br />            (progn<br />              (setq t1 (nth n1 inils)<br />                    t2 (vl-string-search "=" t1))<br />              (if (/= t2 nil)<br />                (progn<br />                  (setq t3 (substr t1 1 t2))<br />                  (if (= t3 key1)(setq exst (substr t1 (+ t2 2))<br />                                       n1 (+ n2 1))<br />                    (setq n1 (+ n1 1)))<br />                 )<br />                (setq n1 (+ n1 1))<br />              )<br />             )<br />            )<br />         )<br />        (setq exst nil)<br />       )))<br /> (setq exst nil)<br /> )<br /> exst  <br /> )<br />

狂刀

麻烦给一个适用于此程序的ini文件或格式以便测试

ywqq

ini文件内容：
文件名：Txlset.ini
内容：
[Modem]
com=COM3

[data]
dataname=F:\PROJECT\project\TXL\data.yd

[tel]
Ptel=200,1,88#,33#,1,
onPtle=True

读取例：
(setq aa (reini "Txlset.ini" "Modem"  "com")
返回com值："COM3"

狂刀

奇怪，我测试怎么不行那？

ywqq

ini文件要在CAD的搜索路径里
(defun c:re ( / t1 t2 t3 t4)
  (setq t1 "Txlset.ini"
        t2 "Modem"
        t3 "com"
        t4 (reini t1 t2 t3)
        )
)

狂刀

楼主程序长，没细看，自己写了一个，效果上有什么区别？

2. 
   
3. ;ini文件读取函数reini
   
4. ;reini参数:ini文件全名（cad搜索目录下可省略路径）,小节名,关键字
   
5. (defun reini (pfn id k / roop fn a val)
   
6.   (setq        roop T
   
7.         id   (strcase(strcat "[" id "]"))
   
8.         k    (strcase(strcat k "=*"))
   
9.   )
   
10.   (if (setq pfn (findfile pfn))
    
11.     (progn
    
12.       (setq fn (open pfn "r"))
    
13.       (while (and (setq a (read-line fn))
    
14.                   roop
    
15.              )
    
16.               (if(wcmatch (strcase a) k)
    
17.                (setq roop nil
    
18.                      val  (substr a (strlen k))
    
19.                )
    
20.               )
    
21.         )
    
22.       (close fn)
    
23.     )
    
24.   )
    
25.   val
    
26. )
    
27. ;;
    
28. (setq aa (reini "test.ini" "Modem" "com"))
    
29. (setq bb (reini "test.ini" "data" "dataname"))
    
30. ;;;
    

<br /> ;ini文件读取函数reini<br /> ;reini参数:ini文件全名（cad搜索目录下可省略路径）,小节名,关键字<br /> (defun reini (pfn id k / roop fn a val)<br />   (setq        roop T<br />         id   (strcase(strcat "[" id "]"))<br />         k    (strcase(strcat k "=*"))<br />   )<br />   (if (setq pfn (findfile pfn))<br />     (progn<br />       (setq fn (open pfn "r"))<br />       (while (and (setq a (read-line fn))<br />                   roop<br />              )<br />               (if(wcmatch (strcase a) k)<br />                (setq roop nil<br />                      val  (substr a (strlen k))<br />                )<br />               )<br />         )<br />       (close fn)<br />     )<br />   )<br />   val<br /> )<br /> ;;<br /> (setq aa (reini "test.ini" "Modem" "com"))<br /> (setq bb (reini "test.ini" "data" "dataname"))<br /> ;;;<br />

test.ini文件内容：
[Modem]
com=Com3

[data]
dataname=F:\PROJECT\project\TXL\data.yd

[tel]
Ptel=200,1,88#,33#,1,
onPtle=True

netbee

不知是否想过编写一个能读能写能改INI的程序？

littlecong

我正需要读的功能
写按行顺序写就可以了，读就不能假定顺序了:)

感觉楼主的更好一点，更lisp一点，利用标的形式避免了反复读文件

fsxm

最初由 狂刀 发布
[B]楼主程序长，没细看，自己写了一个，效果上有什么区别？
[code]
;ini文件读取函数reini
;reini参数:ini文件全名（cad搜索目录下可省略路径）,小节名,关键字
(defun reini (pfn id k / roop fn a val)
  (setq        r... [/B]

虽然我没试过你的程序也不知道ini的格式
但是你的程序还是有小小的问题的！
用下面这个文件吧！
(setq aa (reini "test.ini" "Modem" "cmd"))是要返回nil吧？？？
呵呵！你的可是要返回com3了的哦！！

test.ini文件内容：
[Modem]
exe=Com3

[data]
cmd=com3
dataname=F:\PROJECT\project\TXL\data.yd

[tel]
Ptel=200,1,88#,33#,1,
onPtle=True

littlecong

我认为以关联表的形式返回一个section下的所有数据因该更有用
所以我参考楼主的修改了一下

2. 
   
3.   [FONT=courier new]
   
4. ;;把某个section下的所有已关联表的形式返回
   
5. (defun read_ini        (ini_filename                 secion_name /
   
6.                  ini_filename_id         inils             
   
7.                  t1             t2                 t3             
   
8.                  t5             tt                 n1             
   
9.                  assoc_list  key_name         key_value   key_value_pair line
   
10.                  list_length
    
11.                  sec_begin
    
12.                 )
    
13.   (if (findfile ini_filename)
    
14.     (progn
    
15.       (setq ini_filename (findfile ini_filename))
    
16.       (progn                               
    
17.         (setq ini_filename_id (open ini_filename "r"))
    
18.         (if ini_filename_id
    
19.           (progn
    
20.             (setq line (read-line ini_filename_id))
    
21.             (while (/= line nil)
    
22.               (setq inils (cons line inils)
    
23.                     line          (read-line ini_filename_id)
    
24.               )
    
25.             )
    
26.             (setq inils (reverse inils))
    
27.             (close ini_filename_id)
    
28.           )
    
29.         )
    
30.       )
    
31.       (progn                               
    
32.         (setq  
    
33.               sec_begin          (vl-position (strcat "[" secion_name "]") inils)
    
34.         )
    
35.         (if (/= sec_begin nil)
    
36.           (progn
    
37.             (setq list_length (vl-list-length inils)
    
38.                   sec_end nil
    
39.                   t5 (+ sec_begin 1)
    
40.             )
    
41.             (while (= sec_end nil)
    
42.               (if (< t5 list_length)
    
43.                 (progn
    
44.                   (setq        tt (nth t5 inils)
    
45.                         t1 (vl-string-search "[" tt)
    
46.                   )
    
47.                   
    
48.                   (if (/= t1 nil)
    
49.                     (setq sec_end t5
    
50.                           t5 (+ list_length 1)
    
51.                     )
    
52.                     (setq t5 (+ t5 1))
    
53.                   )
    
54.                 )
    
55.                 (setq sec_end list_length)
    
56.               )
    
57.             )
    
58.             (setq n1 sec_begin
    
59.             )                               
    
60.             (while (< n1 sec_end)
    
61.               (progn
    
62.                 (setq key_value_pair (nth n1 inils)
    
63.                       t2             (vl-string-search "=" key_value_pair)
    
64.                 )
    
65.                 (if (/= t2 nil)
    
66.                   (progn
    
67.                     (setq key_name (substr key_value_pair 1 t2))
    
68.                     (setq key_value (substr key_value_pair (+ t2 2)))
    
69.                     (setq assoc_list (cons (list key_name key_value) assoc_list))
    
70.                     (setq n1 (+ n1 1))
    
71.                   )
    
72.                   (setq n1 (+ n1 1))
    
73.                 )
    
74.               )
    
75.             )
    
76.           )
    
77.           (setq assoc_list nil)
    
78.         )
    
79.       )
    
80.     )
    
81.     (setq assoc_list nil)
    
82.   )
    
83.   assoc_list
    
84. )
    
85.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;把某个section下的所有已关联表的形式返回 <br /> (defun read_ini        (ini_filename                 secion_name /<br />                  ini_filename_id         inils             <br />                  t1             t2                 t3             <br />                  t5             tt                 n1             <br />                  assoc_list  key_name         key_value   key_value_pair line<br />                  list_length<br />                  sec_begin<br />                 )<br />   (if (findfile ini_filename)<br />     (progn<br />       (setq ini_filename (findfile ini_filename))<br />       (progn                                <br />         (setq ini_filename_id (open ini_filename "r"))<br />         (if ini_filename_id<br />           (progn<br />             (setq line (read-line ini_filename_id))<br />             (while (/= line nil)<br />               (setq inils (cons line inils)<br />                     line          (read-line ini_filename_id)<br />               )<br />             )<br />             (setq inils (reverse inils))<br />             (close ini_filename_id)<br />           )<br />         )<br />       )<br />       (progn                                <br />         (setq  <br />               sec_begin          (vl-position (strcat "[" secion_name "]") inils)<br />         )<br />         (if (/= sec_begin nil)<br />           (progn<br />             (setq list_length (vl-list-length inils)<br />                   sec_end nil<br />                   t5 (+ sec_begin 1)<br />             )<br />             (while (= sec_end nil)<br />               (if (< t5 list_length)<br />                 (progn<br />                   (setq        tt (nth t5 inils)<br />                         t1 (vl-string-search "[" tt)<br />                   )<br />                   <br />                   (if (/= t1 nil)<br />                     (setq sec_end t5<br />                           t5 (+ list_length 1)<br />                     )<br />                     (setq t5 (+ t5 1))<br />                   )<br />                 )<br />                 (setq sec_end list_length)<br />               )<br />             )<br />             (setq n1 sec_begin<br />             )                                <br />             (while (< n1 sec_end)<br />               (progn<br />                 (setq key_value_pair (nth n1 inils)<br />                       t2             (vl-string-search "=" key_value_pair)<br />                 )<br />                 (if (/= t2 nil)<br />                   (progn<br />                     (setq key_name (substr key_value_pair 1 t2))<br />                     (setq key_value (substr key_value_pair (+ t2 2)))<br />                     (setq assoc_list (cons (list key_name key_value) assoc_list))<br />                     (setq n1 (+ n1 1))<br />                   )<br />                   (setq n1 (+ n1 1))<br />                 )<br />               )<br />             )<br />           )<br />           (setq assoc_list nil)<br />         )<br />       )<br />     )<br />     (setq assoc_list nil)<br />   )<br />   assoc_list<br /> )<br />   [/FONT]<br />

fsxm

如果是读一个值的内容
用表就大才小用了
也严重影响了读值速度！还是 狂刀 写的好用一点！
我也来一个哦！
参考了前面狂刀的程序并修正了原程序错误的一点小错误！
[php]
(defun reini (file idd idd2 / id id2 fn a ok)
  (setq        id  (strcase (strcat "[" idd "]"))
        id2 (strcase (strcat idd2 "=*"))
  )
  (setq fn (open file "r"))
  (while (and (setq a (read-line fn))
              (/= (strcase a) id)
         )
  )
  (while (and (setq a (read-line fn))
              (not (or (setq ok (wcmatch (strcase a) id2))
                       (= (VL-STRING-SEARCH "[" (strcase a)) 0)
                   )
              )
         )
  )
  (close fn)
  (if ok (substr a (+ (vl-string-search "=" a) 2)) nil)
)
[/php]

梦断江南

我也贴一个.
[php]
(defun reini (fn id key / A F K VAL)
  (setq  id  (strcase (strcat "[" id "]"))
         key (strcase (strcat key "=*"))
  )
  (if (setq fn (findfile fn))
    (progn
      (setq f (open fn "r"))
      (while (and (setq a (read-line f))
                  (setq a (strcase a))
                  (cond
                    ((= a id) (setq k T) T)
                    ((and k (wcmatch a "`[*`]")) nil)
                    ((and k (wcmatch a key)) (setq val a) nil)
                    (T T)
                  )
             )
      )
      (close f)
    )
  )
  (if val (substr val (+ (vl-string-search "=" val) 2)) nil)
)
[/php]

王咣生

用arx写一句话就可以了,这样用lisp写不合理,windows系统api函数
GetPrivateProfileString用于读取ini

附件中readini.arx,加载到autocad2004

使用方法:

(GetPrivateProfileString section key default file)

如:

(GetPrivateProfileString "APP" "name2" "***" "c:\\aaa.ini")

------------------------------------------------------------
aaa.ini内容:
[APP]
name1=zhangsan
name2=lisi
name3=wangwu

cutechun

是啊，ARX中直接用API函数，还可以指定任意思文件！

DWORD GetPrivateProfileString(
  LPCTSTR lpAppName,        // section name
  LPCTSTR lpKeyName,        // key name
  LPCTSTR lpDefault,        // default string
  LPTSTR lpReturnedString,  // destination buffer
  DWORD nSize,              // size of destination buffer
  LPCTSTR lpFileName        // initialization file name
);

littlecong

lisp属于轻量解决方法，当在首选之列