程序是将一个表写入文件中去,但是,在不同的电脑上产生了不同的结果。
程序如下:
......
(defun sjcr (l wj / sj f) (setq f (open wj "w")) (print l f) (close f) )
....
((setq listt '(("SZD" . 636) ("EAYG2" . 2) ("AL-XX" . 6) ("DYD" . 4) ("XYS" . 3) ))
(setq wj (getstring "\n请输入存储数据的文件名(带路径):" default))
(sjcr listt wj)
.....
;;;;;;;;;;;;;;;;;;;;;在不同电脑上运行产生了不同的结果:
结果1、(("SZD" . 636) ("EAYG2" . 2) ("AL-XX" . 6) ("DYD" . 4) ("XYS" . 3) ),表在文件(TXT文件)中未换行,光标位于表的最前端。
结果2、
(("SZD" . 636) ("EAYG2" . 2) ("AL-XX" . 6) ("DYD" . 4) ("XYS" . 3) ),表在文件(TXT文件)换行,光标位于文件最前端。 |