lisp读写txt的问题

x_s_s_1

请问，如何将下面的代码修改，达到搜索“\n\n\n\n\n\n 柱 下 端····下面还有很多字符”，然后删除这行及下面48行，谢谢了，请大家指教，程序源码为

2. (defun c:xkg()
   
3.   (setq file (getfiled "选择计算结果文件" "d:/" "out" 8))
   
4. (setq f (open file "r") txt "")
   
5. (while (setq line (read-line f))
   
6.   (setq txt (strcat txt line "\n" ))
   
7. );end while
   
8. (close f)
   
9. (while (vl-string-search " \n"  txt)
   
10.   (setq txt (vl-string-subst  "\n" " \n" txt))
    
11. );end while
    
12. (while (vl-string-search "\n\n"  txt)
    
13.   (setq txt (vl-string-subst  "\n" "\n\n" txt))
    
14. );end while
    
15. (setq f (open  file "W"))
    
16. (write-line txt f)
    
17. (close f)
    
18.   (prin1)
    
19. );enddefun

(defun c:xkg()<br />   (setq file (getfiled "选择计算结果文件" "d:/" "out" 8))<br /> (setq f (open file "r") txt "")<br /> (while (setq line (read-line f))<br />   (setq txt (strcat txt line "\n" ))<br /> );end while<br /> (close f)<br /> (while (vl-string-search " \n"  txt)<br />   (setq txt (vl-string-subst  "\n" " \n" txt))<br /> );end while<br /> (while (vl-string-search "\n\n"  txt)<br />   (setq txt (vl-string-subst  "\n" "\n\n" txt))<br /> );end while<br /> (setq f (open  file "W"))<br /> (write-line txt f)<br /> (close f)<br />   (prin1)<br /> );enddefun

x_s_s_1

哪位大侠给予指教，我尝试写了48个while，效率太低了，电脑基本属于死机状态，有什么比较好的方法没？

Gu_xl

回复 x_s_s_1 的帖子

简直不知道你的代码要干什么！太罗嗦了！要跳过48行，弄个计数器，读48行不添加到txt里即可！

x_s_s_1

呵呵，谢谢了，试试，我是搞结构的，处理计算书用，去除一些空行以及不需要的数据，节约成本