[编程申请]：文件操作函数-->替换文本

浪奔

;;from wkai [www.xdcad.net]
;;20050930
;;功能   :替换文本文件中的部分文本
;;参数newstr:替换文本
;;    oldstr:被替换文本
;;     file :被操作的文件
;;返回值 :替换次数
;;示例:(xdl-file-substr "第一行" "这是替换后的第一行" "c:\\1.txt")
(defun xdl-file-substr(oldstr newstr   file / RE count)
  (setq        lst    (xdl-file->lst file)
        oldstr1 (strcat "*" oldstr "*")
        count 0
  )
  (foreach n  lst
    (if        (wcmatch n oldstr1)
      (setq n          (vl-string-subst newstr oldstr n)
            count (1+ count)
            )
      )
    (SETQ RE (CONS N RE))
    )
  (xdl-lst->file (REVERSE re) file)
  count
  )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

此程序只能替换文件中的一个字符．
如果全部替换该怎么样修改？？
例如：将"c:\\1.txt"中所有的"abc"全部换成"xyz".

雨箭风刀

看程序结构不像是只能替换一个阿

浪奔

最初由 雨箭风刀 发布
[B]看程序结构不像是只能替换一个阿 [/B]

我试过了
(xdl-file-substr "abc" "xyz" "c:\\1.txt")

确实是只换了其中一个，你有好方法吗？

zhou327

谢谢老兄！！