如何保存文字到.TXT文件指定的那一行

ymcui

;如何把282保存到指定那一行,比如要把282保存到888.TXT文件的第三行该如何做?还有如何掉用那一行的文字.谢谢
(DEFUN C:cd()
(SETQ TMPTXT (OPEN "E:/888.TXT" "W"))
(WRITE-LINE "282" TMPTXT)
(CLOSE TMPTXT)
(PRINC)
)

q3_2006

读成表插入行到到你要的位置...再写入TXT....

ymcui

q3_2006 发表于 2014-12-2 14:52
读成表插入行到到你要的位置...再写入TXT....

还是不明白,我对LISP是一知半解.还在学习中.
要写入多行文字，
比如第一行是222
第二行是333
第三行是282

wzg356

ymcui 发表于 2014-12-2 15:05
还是不明白,我对LISP是一知半解.还在学习中.
要写入多行文字，
比如第一行是222

在明经搜的

2. ;txt返回一个表，每行一个子表
   
3. (defun ayFile2List (xFileName / fp xRec sList)
   
4.   (setq fp (open xFileName "r"))
   
5.   (while (setq xRec (read-line fp))
   
6.     (setq sList (cons (read (strcat "(" xRec ")")) sList))
   
7.   );end_while
   
8.   (close fp)
   
9.   sList
   
10. );end_defun
    
11. 
    
12. ;============{ 在指定位置删除或插入元素 }===============
    
13. ;nil表示要删除。如果有值为要插入的元素---by wowan1314
    
14. ;(t11 '(1 2 3 4 5 6) 2 0);;->(1 2 0 3 4 5 6)
    
15. ;(t11 '(1 2 3 4 5 6) 2 nil);;->(1 2 4 5 6)
    
16. ;2013年7月20日 星期六
    
17. (defun t11 (lst pos mod / qlst a hlst)
    
18.     (setq a -1)
    
19.     (setq hlst (vl-member-if-not
    
20.             '(lambda(x)  (setq a (1+ a)) (if (= a pos) nil
    
21.                     (setq qlst (cons x qlst))
    
22.                 )
    
23.             )
    
24.             lst
    
25.         )
    
26.     )
    
27.     (if mod
    
28.         (apply 'append (list (reverse(cons mod qlst)) hlst))
    
29.         (apply 'append (list (reverse qlst) (cdr hlst)))
    
30.     )
    
31. )
    
32. 
    
33. ;根据表重写txt文件
    
34. (defun rewritetxt (txtfile lst / dat_file ff i ii tuan )
    
35.   (setq ff (open txtfile "w")) ;写文件,如不存在则新建文件，如存在新资料将覆盖旧资料。
    
36.   (setq i 1)
    
37.   (setq ii (length lst))
    
38.   (while (and (/= nil lst) (<=  i ii))
    
39.       (setq tuan (car lst))
    
40.       (write-line tuan ff)
    
41.       (setq lst (cdr lst))
    
42.     (setq i (+ i 1))
    
43.   )
    
44.   (close ff)
    
45. )

;txt返回一个表，每行一个子表<br /> (defun ayFile2List (xFileName / fp xRec sList)<br />   (setq fp (open xFileName "r"))<br />   (while (setq xRec (read-line fp))<br />     (setq sList (cons (read (strcat "(" xRec ")")) sList))<br />   );end_while<br />   (close fp)<br />   sList<br /> );end_defun<br /> <br /> ;============{ 在指定位置删除或插入元素 }=============== <br /> ;nil表示要删除。如果有值为要插入的元素---by wowan1314 <br /> ;(t11 '(1 2 3 4 5 6) 2 0);;->(1 2 0 3 4 5 6) <br /> ;(t11 '(1 2 3 4 5 6) 2 nil);;->(1 2 4 5 6) <br /> ;2013年7月20日 星期六 <br /> (defun t11 (lst pos mod / qlst a hlst) <br />     (setq a -1)<br />     (setq hlst (vl-member-if-not<br />             '(lambda(x)  (setq a (1+ a)) (if (= a pos) nil<br />                     (setq qlst (cons x qlst))<br />                 )<br />             )<br />             lst<br />         )<br />     )<br />     (if mod<br />         (apply 'append (list (reverse(cons mod qlst)) hlst))<br />         (apply 'append (list (reverse qlst) (cdr hlst)))<br />     )<br /> )<br /> <br /> ;根据表重写txt文件<br /> (defun rewritetxt (txtfile lst / dat_file ff i ii tuan ) <br />   (setq ff (open txtfile "w")) ;写文件,如不存在则新建文件，如存在新资料将覆盖旧资料。<br />   (setq i 1)<br />   (setq ii (length lst))<br />   (while (and (/= nil lst) (<=  i ii)) <br />       (setq tuan (car lst))<br />       (write-line tuan ff)<br />       (setq lst (cdr lst))<br />     (setq i (+ i 1))<br />   )<br />   (close ff)<br /> )

ymcui

wzg356 发表于 2014-12-2 16:37
在明经搜的

刚做了一个读取指定行的程序,看对不对.

2. (defun c:cd()
   
3. (setq b 3 s1 0)
   
4. (setq TXT (open (findfile "E:/888.TXT") "r"))
   
5. (while (<= s1 b)(setq s1 (+ s1 1))(read-line TXT))
   
6. (setq rd (read-line TXT))
   
7. (prompt(read-line TXT))
   
8. (princ)
   
9. )

(defun c:cd()<br /> (setq b 3 s1 0)<br /> (setq TXT (open (findfile "E:/888.TXT") "r"))<br /> (while (<= s1 b)(setq s1 (+ s1 1))(read-line TXT))<br /> (setq rd (read-line TXT))<br /> (prompt(read-line TXT))<br /> (princ)<br /> )

ymcui

上面是读取第三行的不知为何读到第六行去了.(setq b 3

wzg356

ymcui 发表于 2014-12-2 16:56
上面是读取第三行的不知为何读到第六行去了.(setq b 3

用地板的函数
读取第三行
(nth 2 (reverse (ayFile2List "d:\\888.TXT")))

读取第一行
(nth 0 (reverse (ayFile2List "d:\\888.TXT")))

Andyhon

read-line 调用一次 自动换一列
改用repeat 取代 while 易读些

wzg356

Andyhon 发表于 2014-12-2 17:11
read-line 调用一次 自动换一列
改用repeat 取代 while 易读些

我没用过你的这种方法，用7楼的方法很好的，试试就行了。每一行是一个子表

ymcui

wzg356 发表于 2014-12-2 17:05
用地板的函数
读取第三行
(nth 2 (reverse (ayFile2List "d:\\888.TXT")))

那写入要如何写