visual LISP 读取文件函数

摘要:(defun c:readfileS;getfiled返回的是文件的绝对路径,是字符串(setq filepath (getfiled "选择要预览的对话框所在的文件" "C:\\Desktop\\WX15831944\\LISP\\" "txt" 2));返

(defun c:readfileS

;getfiled返回的是文件的绝对路径,是字符串

(setq filepath (getfiled "选择要预览的对话框所在的文件" "C:\\Desktop\\WX15831944\\LISP\\" "txt" 2))

;返回文件的操作符

(setq file (open filepath "r"))

;操作文件操作符

(setq fdata (read-line file))

;注意:这里演示可以把一个命令拆分成几块

(command fdata)

(setq fdata (rade-line file))

)

(command "")

(close file)

(print)

来源:铁路站场枢纽

相关推荐