用法
评论
建议
取 消
确 定
(defun table:write-csv (lst file / fp *error*) "将 二维表 写入 csv 文件。" "" (defun *error* (msg) (if (= (quote file) (type fp)) (close fp)) (@:*error* msg)) (setq fp (open file "w")) (foreach str-line (mapcar (quote (lambda (x) (string:from-list (mapcar (quote @:to-string) x) ","))) lst) (write-line str-line fp)) (close fp) t)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新