用法
评论
建议
取 消
确 定
(defun file:subst-all (newstr oldstr lspfile new-suffix / newfile vf zf text) "替换文件中的字符串。" (setq newfile (strcat (vl-filename-directory lspfile) "\\" (vl-filename-base lspfile) new-suffix (vl-filename-extension lspfile))) (if (findfile newfile) (vl-file-delete (findfile newfile))) (setq vf (open lspfile "r")) (setq zf (open newfile "w")) (while (setq text (read-line vf)) (write-line (string:subst-all newstr oldstr text) zf)) (close vf) (close zf))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新