表内容写到文件

Lispboy

1. ;|
   
2. 表内容写文本文件
   
3. 参数：
   
4.   fn -- 文件名， 如： "c:\\abc.txt"
   
5.   lst-- 表
   
6. 
   
7. 成功返回T，否NIL
   
8. |;
   
9. (defun XD::List:ToFile (fn lst / fl x)
   
10.   (setq fl (open fn "w"))
    
11.   (if (and
    
12.         fl
    
13.         (> (length lst) 0)
    
14.       )
    
15.     (progn
    
16.       (mapcar
    
17.         '(lambda (x)
    
18.            (write-line (vl-princ-to-string x) fl)
    
19.          )
    
20.         lst
    
21.       )
    
22.       (close fl)
    
23.       t
    
24.     )
    
25.   )
    
26. )

;|<br /> 表内容写文本文件<br /> 参数：<br />   fn -- 文件名， 如： "c:\\abc.txt"<br />   lst-- 表<br /> <br /> 成功返回T，否NIL<br /> |;<br /> (defun XD::List:ToFile (fn lst / fl x)<br />   (setq fl (open fn "w"))<br />   (if (and<br />         fl<br />         (> (length lst) 0)<br />       )<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (write-line (vl-princ-to-string x) fl)<br />          )<br />         lst<br />       )<br />       (close fl)<br />       t<br />     )<br />   )<br /> )

Lispboy

应用例子： http://bbs.xdcad.net/forum.php?m ... 200&pid=3492953

该函数一般和XDRX API 的 xdrx_system_selectFiles 对话框配合使用获得文件名

ghoust

学习了。原来是这样的啊。

sicky111

方法不错。

st788796

有BUG，princ在写出的文件中每个字符会多出""，而且不能解析控制符了，如\t，把这些都引入到文本了！

77077

求读取txt文件内容到list!