LISP写文件！！！急急...!!

xyp1964

2. (defun c:test ()
3.   (setq winwin (findfile "D:\\winwin.dat"))
4.   (if winwin
5.     (setq ff (open winwin "a"))
6.     (setq ff (open "D:\\winwin.dat" "w"))
7.   )
8.   (setq data "test")
9.   (write-line data ff)
10.   (close ff)
11. )

(defun c:test ()   (setq winwin (findfile "D:\\winwin.dat"))   (if winwin     (setq ff (open winwin "a"))     (setq ff (open "D:\\winwin.dat" "w"))   )   (setq data "test")   (write-line data ff)   (close ff) )

dcl1214

xyp1964 发表于 2005-8-31 19:29

很好，留个脚印吧