文本类文件内容替换

iLisp

lst --- '((newstr1 oldstr1) ...)

2. 
   
3. (defun _replace        (fn lst / f l ll)
   
4.   (if (and
   
5.         (setq f (findfile fn))
   
6.         (setq f (open f "r"))
   
7.       )
   
8.     (progn
   
9.       (while (setq l (read-line f))
   
10.         (foreach x lst
    
11.           (setq l (vl-string-subst (car x) (cadr x) l))
    
12.         )
    
13.         (setq ll (cons l ll))
    
14.       )
    
15.       (close f)
    
16.       (setq f (open fn "w"))
    
17.       (foreach x (reverse ll)
    
18.         (write-line x f)
    
19.       )
    
20.       (close f)
    
21.       t
    
22.     )
    
23.   )
    
24. )

<br /> (defun _replace        (fn lst / f l ll)<br />   (if (and<br />         (setq f (findfile fn))<br />         (setq f (open f "r"))<br />       )<br />     (progn<br />       (while (setq l (read-line f))<br />         (foreach x lst<br />           (setq l (vl-string-subst (car x) (cadr x) l))<br />         )<br />         (setq ll (cons l ll))<br />       )<br />       (close f)<br />       (setq f (open fn "w"))<br />       (foreach x (reverse ll)<br />         (write-line x f)<br />       )<br />       (close f)<br />       t<br />     )<br />   )<br /> )

sicky111

正需要，谢谢！

434939575

(defun _replace        (fn lst / f l ll)请问下  lst --- '((newstr1 oldstr1) ...) 这个参数是表能我成功，能写个文件内容直接替换某文件内容不 ，a文件内所有包含aaaa的部分, 置换为b文件内容  谢谢

muwind

纠结了很久跨行替换

janshyl

感謝樓主分享

hh_lj007

感谢分享源码