Question

autolisp 里面怎样获取一个文本的内容？

Answer 1

(defun c:wj()
(setq strPath "C:/" );定义默认路径
(setq f1 (getfiled "选择数据文件" strPath "txt" 0));显示选择文件窗口并得到文件路径
(setq ss (open f1"r"));以只读方式打开文件并储存到SS中
)

Answer 2

上面回答不完整,应如下:
(defun c:wj()
(setq strPath "C:/" );定义默认路径
(setq f1 (getfiled "选择数据文件" strPath "txt" 0));显示选择文件窗口并得到文件路径
(setq ss (open f1"r"));以只读方式打开文件并储存到SS中
(setq fhz nil)
;循环读出文件中的每一行内容,并储存到fhz中
(while (setq zfc (read-line ss))
(setq fhz (cons zfc fhz))
(princ "\n")(princ zfc);显示文件中每行的内容
)
(setq fhz (reverse fhz))
(princ)
)