[求助]：如何替换文本文件中字符？？

浪奔

;;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".

wuzz

加个循环，判断文件是否结束

浪奔

"加个循环，判断文件是否结束"
--------------------------------------------------------------------------------------

"循环"方面的我还没学会,哪位哥们帮帮我解决上面的问题.

pyzwlp

文本文件出于什么目的需要采用LISP程序来替换啊？有这必要么？
在AutoCAD中已经有人编出来了很好的替换的工具chtext.lsp，只要你把文字选好，所有你想替换的字符都会自动替换成你要替换的字符的。

浪奔

最初由 pyzwlp 发布
[B]文本文件出于什么目的需要采用LISP程序来替换啊？有这必要么？
在AutoCAD中已经有人编出来了很好的替换的工具chtext.lsp，只要你把文字选好，所有你想替换的字符都会自动替换成你要替换的字符的。 [/B]

谢谢,chtext.lsp真的很好用.

xyp1964

确实没必要用lsp改变txt的内容。就如同用lsp改变doc文件内的文本的字体大小和字型一样。

xiao_longxin

就像用剪刀去砍树，虽然也能砍倒

snoopychen

不过有时候比如要把文本中的所有数字加1，一般的代替工具倒是做不到，Lisp就很简单
有时候lisp用的熟了，会拿来做批量文件重命名，结合排序什么的，挺好用的
不过这点其他软件也做的到就是，比如python就更简单一些，我觉得用lisp控制文本文件，习惯了就好