xiaoliu 发表于 2004-2-27 19:51:00

写入文件问题？

主程序中语句：(action_tile "board" "(write $key $value )")<BR>                                               (action_tile "diameter" "(write $key $value )")<BR>                                               (action_tile "tdiameter" "(write $key $value )")<BR>                                               (action_tile "thickness" "(write $key $value )")<BR>                                               (action_tile "bthickness" "(write $key $value )")


子程序：       


(defun write(k v)<BR>       (setq fi "e:/工程.PT0")<BR>       (setq f (open fi "w"))<BR>       (write-line k f)<BR>       (princ v f)<BR>       (close f)<BR>        )


为什么写入的文件中只保存最后一个数，怎么能让write-line接着上一个写，而不是覆盖原来的。

meflying 发表于 2004-2-27 20:13:00

因为你每次都打开文件，而且是"w"的方式，而这个方式就是覆盖写的

ljcgq 发表于 2004-2-27 20:25:00

因为你每次都打开文件，而且是"w"的方式，而这个方式就是覆盖写的 应是"a"方式<BR>
页: [1]
查看完整版本: 写入文件问题？