LISP 是否可以编辑TXT文本?读入修改后重新输出 如题

linheyuanpcb

%
(12ASD)
M 1 2 5 N 0 6 8
X125. Y125.
M0S
BS1
.
.
.
%
--------假设以上是1.txt 是否可用LISP读入后在每行首增加一个排序？
每行首都有一个空格
文件始和末有一个%号
输出后结果如下
%
(12ASD)
N1 M 1 2 5 N 0 6 8
N2 X125. Y125.
N3 M0S
N4 BS1
N5 .
N6 .
N7 .
%

sharetow

• 

  1. (defun jj(/ ff aa lst i)
     
  2.   (setq ff(open "d:/1.txt" "r") lst '())
     
  3.   (while
     
  4.     (setq aa (read-line ff))
     
  5.     (setq lst (cons aa lst))
     
  6.   )
     
  7.   (close ff)
     
  8.   (setq
     
  9.     m 1
     
  10.     i 0
      
  11.     lst (reverse lst)
      
  12.   )
      
  13.   (repeat (length lst)
      
  14.     (if (and (/= (nth i lst) "%") (/= (nth i lst) "% ")(/= (nth i lst) "(12ASD)"))
      
  15.       (progn
      
  16.         (setq
      
  17.           a1 (strcat "N" (itoa m) " "(nth i lst))
      
  18.           lst (subst a1(nth i lst)lst)
      
  19.           m (1+ m)
      
  20.         )
      
  21.       )
      
  22.     )
      
  23.     (setq i (1+ i))
      
  24.   )
      
  25.   (setq i 0)
      
  26.   (setq fff(open "d:/1.txt" "w"))
      
  27.   (repeat (length lst)
      
  28.     (write-line (nth i lst)  fff)
      
  29.     (setq i (1+ i))
      
  30.   )
      
  31.   (close fff)
      
  32.   (princ)
      
  33. )

  (defun jj(/ ff aa lst i)<br />   (setq ff(open "d:/1.txt" "r") lst '())<br />   (while<br />     (setq aa (read-line ff))<br />     (setq lst (cons aa lst))<br />   )<br />   (close ff)<br />   (setq<br />     m 1<br />     i 0<br />     lst (reverse lst)<br />   )<br />   (repeat (length lst)<br />     (if (and (/= (nth i lst) "%") (/= (nth i lst) "% ")(/= (nth i lst) "(12ASD)"))<br />       (progn<br />         (setq <br />           a1 (strcat "N" (itoa m) " "(nth i lst))<br />           lst (subst a1(nth i lst)lst)<br />           m (1+ m)<br />         )<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (setq i 0)<br />   (setq fff(open "d:/1.txt" "w"))<br />   (repeat (length lst)<br />     (write-line (nth i lst)  fff)<br />     (setq i (1+ i))<br />   )<br />   (close fff)<br />   (princ)<br /> )