用法
评论
建议
取 消
确 定
(defun vectra:csvfile-read (filename / r rows) (if (setq rows (vectra:file-read filename)) (progn (foreach row rows (setq row (vl-string-trim " \t\n," row)) (if (and (/= row "") (/= (vectra:string-left row 2) "//") (setq row (vectra:string-tokenize row ","))) (setq row (mapcar (function (lambda (e) (vl-string-subst "\"" "\"\"\"" e))) row) r (cons row r)))) (reverse r))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新