'); })();

lisp读取文件并赋值，读取每行赋值lsp源码，多行读取赋值

2020年5月22日　huojibk 暂无评论　2,680次浏览

发表评论

A+

lsp读取文件，而且还按照文本里面的顺序赋值，这种只适合写死的文件，固定式样式，

绝对是你需要的代码，文件要求，一行一个数，不支持一行多个数。

代码如下


(defun C:hh (/ strh ST )
;读文件赋值

(setq fh (open "C:/01.txt" "r"));打开文件

(while

(setq strh (read-line fh))

(setq ST (cons (strcat strh )ST));读取的值转为字串符并构建一个表

)

(close fh);关闭文件
(setq H1 (nth 1 ST));截取表里的第一个值、文件里面的第一行值

(setq H2 (nth 2 ST));截取表里的第2个值、文件里面的第2行值，其他行更改前的数字即可
(princ H1);打印结果

(princ "\n")

(princ H2)
)
复制