[zhongguola]秋水 15:26:14
(defun Getdata (/ f line rtnlst)
(setq f (open (getfiled title default ext flags))
(while (setq line (read-line f))
(setq rtnlst (cons (mapcar 'read (string_to_numbers line)) rtnlst))
)
(close f)
(reverse rtnlst)
(foreach f rtnlst
(setq rtnlst (subst (cons (car f) (cons (caddr f) (cons (cadr f) (cdddr f))))
f
rtnlst
)
)
)
) |