请问如何对一个文件夹下的所有txt文本进行批量操作

peraperson

比如将该文件夹下所有的txt文本的第一行删除之类的
麻烦大神们提供下大概的框架 谢谢

gaoheli_2008

有没有

alin

用lisp里Open, read, write-line, close几个命令

lisperado

请先备份！ 原始文件将被覆盖！

1. (defun c:tt (/ *error* f fd fl fn l out str tmp)
   
2.   (defun *error* (msg) (if f (close f)) )
   
3.   (alert "\n文本的第一行删除!后果自负!")
   
4.   (prompt "\n请选择文件夹 \n")
   
5.   (if
   
6.     (and (princ (setq fd (acet-ui-pickdir)))
   
7.        (setq fl (vl-directory-files fd "*.txt"))
   
8.        (foreach x fl
   
9.          (and
   
10.                 (setq l nil fn (strcat fd "\\" x)
    
11.                       f  (open fn "r")
    
12.                       )
    
13.                 (while (setq str (read-line f)) (setq l (cons str l)))
    
14.                 (progn (if f (close f))
    
15.        (setq tmp (vl-filename-mktemp))
    
16.        (setq out (open tmp "w"))
    
17.        (foreach x (cdr (reverse l)) (write-line x out))
    
18.               (if out
    
19.                 (close out)
    
20.                 )
    
21.               (vl-file-delete fn)
    
22.               (vl-file-rename tmp fn)
    
23.               (terpri)
    
24.               (princ x)
    
25.               ) ;progn
    
26.        ); and
    
27.        ); foreach
    
28.        ); and
    
29.     (princ "\n执行完毕!")
    
30.     (princ "\n无文件?")
    
31.     )
    
32.    (textscr)
    
33.   (princ)
    
34.   )
    

(defun c:tt (/ *error* f fd fl fn l out str tmp)<br />   (defun *error* (msg) (if f (close f)) )<br />   (alert "\n文本的第一行删除!后果自负!")<br />   (prompt "\n请选择文件夹 \n")<br />   (if<br />     (and (princ (setq fd (acet-ui-pickdir)))<br />        (setq fl (vl-directory-files fd "*.txt"))<br />        (foreach x fl<br />          (and<br />                 (setq l nil fn (strcat fd "\\" x)<br />                       f  (open fn "r")<br />                       )<br />                 (while (setq str (read-line f)) (setq l (cons str l)))<br />                 (progn (if f (close f))<br />        (setq tmp (vl-filename-mktemp))<br />        (setq out (open tmp "w"))<br />        (foreach x (cdr (reverse l)) (write-line x out))<br />               (if out<br />                 (close out)<br />                 )<br />               (vl-file-delete fn)<br />               (vl-file-rename tmp fn)<br />               (terpri)<br />               (princ x)<br />               ) ;progn<br />        ); and<br />        ); foreach<br />        ); and<br />     (princ "\n执行完毕!")<br />     (princ "\n无文件?")<br />     )<br />    (textscr)<br />   (princ)<br />   )<br />

xink

小生有礼了，前来学习下

yoyoho

谢谢! lisperado 分享学习!!!!!!