lisp如何读取指定文件内容并赋值变量

lisp如何读取指定文件内容并赋值变量

;;文件读取样例
(defun c:loadd()
(vl-load-com)
;以读的方式打开文件 "c:/lj.txt" lj.txt的内容“h:”
(setq wjm "c:/lj.txt")
(if (findfile wjm)
;如果文件存在，就打开文件并读出第一行内容之后关闭
(progn
;读取文件中的一行，将读出来的值赋予panfu
(setq fff (open wjm "r")
panfu (read-line fff)

)
;关闭文件
(close fff)
(if (/= panfu nil)
(progn
;将变量panfu的内容与/cx/H7.dvb连接成一个字符串
(setq zfc (strcat panfu "/cx/H7.dvb"))
;加载VBA工程h:/cx/H7.dvb
(command "_vbaload" zfc)
)
)
)
;如果文件不存在就退出
(vl-exit-with-error (alert "c:/lj.txt不存在, 程序将结束!"))
)
(princ)
)

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息