用法
评论
建议
取 消
确 定
(defun file:merge (dist lst-files / fp-out fp-in ln) "合并多个文件内容到 dist 文件中。" (setq fp-out (open dist "w")) (foreach file% lst-files (if (findfile file%) (progn (setq fp-in (open file% "r")) (while (setq ln (read-line fp-in)) (write-line ln fp-out)) (close fp-in)))) (close fp-out))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新