[LISP程序]：lisp程序可否读写ini文件

ywqq

请教:
lisp程序可否读写ini文件,有没有读写ini文件的函数,谢了.

戴戴

我也有这样的困惑，望大虾赐教！！

nore

我对lisp也是菜鸟，不过ini文件也是二进制格式的，应该是可以的


我都说过我是菜鸟了，楼下不要见怪

zxq0220

ini文件什么时候变二进制格式了？用记事本能看的文件不可能是二进制文件。
用LISP是可以读写，但要知道文件的书写顺序和结构，或者想要替换什么内容。

ywqq

如有函数就好,像在delphi里用函数控制,很方便,

wangxj2002

偶也想知道这个问题如何解决！！

下回每贴都是这句话，扣50            By Aeo

urljit

lisp提供了文件的读写功能，函数有read-line write-line 等，ini文件是程序的特定定义的文件，怎样读写是各不相同的。

我签名里面的按钮关联的程序就有ini文件，可以参考一下。（时间长了签名可能会改变的）

这是例子：

2. (if (findfile file4)
   
3.     (progn
   
4.       (setq file4_id (open file4 "r"))
   
5.       (read-line file4_id)
   
6.       (setq add_ci (read-line file4_id))
   
7.       (read-line file4_id)
   
8.       (setq forcet (read-line file4_id))
   
9.       (read-line file4_id)
   
10.       (setq dir_mkt (read-line file4_id))
    
11.       (read-line file4_id)
    
12.       (setq laynm_crt (read-line file4_id))
    
13.     )
    
14.     (progn
    
15.       (setq file4_id (open file4 "w"))
    
16.       (write-line "add_ci" file4_id)
    
17.       (setq add_ci (write-line "0" file4_id))
    
18.       (write-line "forcet" file4_id)
    
19.       (setq forcet (write-line "1" file4_id))
    
20.       (write-line "dir_mkt" file4_id)
    
21.       (setq dir_mkt (write-line "0" file4_id))
    
22.       (write-line "laynm_crt" file4_id)
    
23.       (setq laynm_crt (write-line "0" file4_id))
    
24.     )
    
25.   )

(if (findfile file4)<br />     (progn<br />       (setq file4_id (open file4 "r"))<br />       (read-line file4_id)<br />       (setq add_ci (read-line file4_id))<br />       (read-line file4_id)<br />       (setq forcet (read-line file4_id))<br />       (read-line file4_id)<br />       (setq dir_mkt (read-line file4_id))<br />       (read-line file4_id)<br />       (setq laynm_crt (read-line file4_id))<br />     )<br />     (progn<br />       (setq file4_id (open file4 "w"))<br />       (write-line "add_ci" file4_id)<br />       (setq add_ci (write-line "0" file4_id))<br />       (write-line "forcet" file4_id)<br />       (setq forcet (write-line "1" file4_id))<br />       (write-line "dir_mkt" file4_id)<br />       (setq dir_mkt (write-line "0" file4_id))<br />       (write-line "laynm_crt" file4_id)<br />       (setq laynm_crt (write-line "0" file4_id))<br />     )<br />   )

jyzas

论坛里有，自己搜索下:)