读取文本文件中的LIST数据

晨曦CAD

2. ;;list数据从文件读取
   
3. ;@晨曦 2021.3
   
4. ;输入参数：filename （list->file）函数所创建文件的路径
   
5. ;输出参数：lst 读取的list数据
   
6. (defun file->list(filename / temp ff lst)
   
7.   (setq ff (open filename "r"))
   
8.   (setq temp (read-line ff))
   
9.   (close ff)
   
10.   (setq lst (read temp))
    
11.   )

;;list数据从文件读取<br /> ;@晨曦 2021.3<br /> ;输入参数：filename （list->file）函数所创建文件的路径<br /> ;输出参数：lst 读取的list数据<br /> (defun file->list(filename / temp ff lst)<br />   (setq ff (open filename "r"))<br />   (setq temp (read-line ff))<br />   (close ff)<br />   (setq lst (read temp))<br />   )

SHUNDocker

感谢楼主分享学习！！！已收藏

hh_lj007

感谢分享！