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

wzg356 · 发表于 2014-12-2 17:34:02

本帖最后由 wzg356 于 2014-12-2 17:36 编辑

ymcui 发表于 2014-12-2 17:22
那写入要如何写

(defun c:cd (/ nn lst);取得"d:\\ee.TXT"第三行
 (setq lst (reverse (ayFile2List "d:\\ee.TXT")));读取文件成表，每一行一个子表
 (setq hh 3); 行号
 (if (<= hh (length lst))
 (nth (- hh 1) lst)
 )
)
;返回:表==== (第三行内容)

假如第三行内容是：3 4 5 "a"
返回：(3 4 5 "a")

819534890 · 发表于 2014-12-2 17:56:55

帮你写了一个

(defun c:test()
(write_line_n "d:\\aaa.txt" 5 "acbefg") ;将“abcefg”写进第5行
)
(defun write_line_n (file n str / file_lst opfile i)
(if (findfile file)
(setq file_lst (read_file file))
)
(setq file_line_num (length file_lst))
(if (< file_line_num n) ;如果源文件行数小于n，则插入空格直至n行处插入str
(progn
(repeat (- n file_line_num 1)
(setq file_lst (append file_lst (list "")))
)
(setq file_lst (append file_lst (list str)))
)
(setq file_lst (ch-lst str (1- n) file_lst)) ;如果源文件行数不小于n，则n行处替换为str
)
(setq opfile (open file "w"))
(setq i 0)
(repeat (length file_lst)
(write-line (nth i file_lst) opfile) ;重写文件
(setq i (1+ i))
)
(close opfile)
)
(defun ch-lst (new i lst) ;; 用新元素new替换表lst中第i项元素
(if (null lst)
nil
(if (zerop i)
(cons new (cdr lst))
(cons (car lst) (ch-lst new (- i 1) (cdr lst)))
) ))
(defun read_file (file / line_str file_lst opfile path) ;将文件内容读取为list表
(setq opfile (open file "r"))
(while (setq line_str (read-line opfile))
(setq file_lst (cons line_str file_lst)))
(close opfile)
(reverse file_lst)
)

(defun c:test() 
(write_line_n "d:\\aaa.txt" 5 "acbefg") ;将“abcefg”写进第5行 
) 
(defun write_line_n (file n str / file_lst opfile i) 
(if (findfile file) 
(setq file_lst (read_file file)) 
) 
(setq file_line_num (length file_lst)) 
(if (< file_line_num n) ;如果源文件行数小于n，则插入空格直至n行处插入str 
(progn 
(repeat (- n file_line_num 1) 
(setq file_lst (append file_lst (list ""))) 
) 
(setq file_lst (append file_lst (list str))) 
) 
(setq file_lst  (ch-lst str (1- n) file_lst)) ;如果源文件行数不小于n，则n行处替换为str 
) 
 (setq opfile (open file "w")) 
 (setq i 0) 
 (repeat (length file_lst) 
  (write-line (nth i file_lst) opfile) ;重写文件 
(setq i (1+ i)) 
)        
   (close opfile) 
 ) 
 (defun ch-lst (new i lst) ;; 用新元素new替换表lst中第i项元素 
  (if (null lst) 
    nil 
    (if (zerop i) 
      (cons new (cdr lst)) 
      (cons (car lst) (ch-lst new (- i 1) (cdr lst))) 
    ) )) 
(defun read_file (file / line_str file_lst opfile path) ;将文件内容读取为list表 
     (setq opfile (open file "r")) 
 (while (setq line_str (read-line opfile)) 
 (setq file_lst (cons line_str file_lst))) 
     (close opfile) 
 (reverse file_lst) 
)

wzg356 · 发表于 2014-12-2 18:22:54

本帖最后由 wzg356 于 2014-12-2 21:00 编辑

试试，这个可以了，读文件的函数与地板不同，改为通用函数

;在文件files第pos行插入行内容str
;(rewritefile1 "d:\\ee.TXT" 3 "第四行内容")
(defun rewritefile1 (files pos str / lst);
(setq lst (mc_getfile files));读取文件成表，每一行为表的一个子项
(if (> pos (setq lenlst (length lst)))
(setq lst (t11 lst lenlst str));插入最后
(setq lst (t11 lst pos str));插入第pos行
)
(rewritetxt files lst ) ;重写文件
)
;删除文件files第pos行
;(rewritefile2 "d:\\ee.TXT" 3 )
(defun rewritefile2 (files pos / lst);
(setq lst (mc_getfile files));读取文件成表，每一行为表的一个子项
(if (<= pos (length lst))
(setq lst (t11 lst pos nil));删除第pos行
)
(rewritetxt files lst ) ;重写文件
)
;文件files第pos行改写为str
;(rewritefile3 "d:\\ee.TXT" 3 "第3行新内容")
(defun rewritefile3 (files pos str / lst);
(setq lst (mc_getfile files));读取文件成表，每一行为表的一个子项
(setq lst (t11 lst pos nil));删除第pos行
(setq lst (t11 lst (- pos 1) str));第pos行插入str
(rewritetxt files lst ) ;重写文件
)
;配套通用函数，明经上的
;函数：mc_getfile 功能：读取文件并按行将文件转换为表
;返回值：返回一个表，文件中一行被转换为表中的一个项，如果文件不存在，则返回nil
;语法：(mc_getfile files) 参数：files：文本文件名，如未指定路径则自动在搜索路径中查找文件
;示例：(mc_getfile "tyl.ini")
;函数代码：
(defun mc_getfile(files / tmplst x fn)
(setq files(findfile files))
(if files
(progn
(setq fn (open files "r"))
(while (setq x (read-line fn))
(setq tmplst(append tmplst(list x)))
)
(close fn)
tmplst
)
nil
)
)
;============{ 在指定位置删除或插入元素 }===============
;nil表示要删除。如果有值为要插入的元素---by wowan1314
;(t11 '(1 2 3 4 5 6) 2 0);;->(1 2 0 3 4 5 6)
;(t11 '(1 2 3 4 5 6) 2 nil);;->(1 2 4 5 6)
;2013年7月20日星期六
(defun t11 (lst pos mod / qlst a hlst)
(setq a -1)
(setq hlst (vl-member-if-not
'(lambda(x) (setq a (1+ a)) (if (= a pos) nil
(setq qlst (cons x qlst))
)
)
lst
)
)
(if mod
(apply 'append (list (reverse(cons mod qlst)) hlst))
(apply 'append (list (reverse qlst) (cdr hlst)))
)
)
;根据表重写txt文件
(defun rewritetxt (txtfile lst / dat_file ff i ii tuan )
(setq ff (open txtfile "w")) ;写文件,如不存在则新建文件，如存在新资料将覆盖旧资料。
(setq i 1)
(setq ii (length lst))
(while (and (/= nil lst) (<= i ii))
(setq tuan (car lst))
(write-line tuan ff)
(setq lst (cdr lst))
(setq i (+ i 1))
)
(close ff)
)

;在文件files第pos行插入行内容str 
;(rewritefile1 "d:\\ee.TXT" 3 "第四行内容") 
(defun rewritefile1  (files pos str /  lst); 
  (setq lst (mc_getfile files));读取文件成表，每一行为表的一个子项    
  (if (> pos (setq lenlst (length lst))) 
    (setq lst (t11  lst lenlst str));插入最后 
    (setq lst (t11  lst pos str));插入第pos行 
  ) 
  (rewritetxt files lst ) ;重写文件 
) 
 
;删除文件files第pos行 
;(rewritefile2 "d:\\ee.TXT" 3 ) 
(defun rewritefile2  (files pos /  lst); 
  (setq lst (mc_getfile files));读取文件成表，每一行为表的一个子项 
  (if (<=  pos (length lst)) 
    (setq lst (t11  lst pos nil));删除第pos行 
   ) 
  (rewritetxt files lst ) ;重写文件 
) 
 
;文件files第pos行改写为str 
;(rewritefile3 "d:\\ee.TXT" 3 "第3行新内容") 
(defun rewritefile3  (files pos str /  lst); 
  (setq lst (mc_getfile files));读取文件成表，每一行为表的一个子项 
  (setq lst (t11 lst pos nil));删除第pos行 
  (setq lst (t11 lst (- pos 1) str));第pos行插入str 
  (rewritetxt files lst ) ;重写文件 
) 
 
 
 
 
;配套通用函数，明经上的 
 
;函数：mc_getfile 功能：读取文件并按行将文件转换为表 
;返回值：返回一个表，文件中一行被转换为表中的一个项，如果文件不存在，则返回nil 
;语法：(mc_getfile files) 参数：files：文本文件名，如未指定路径则自动在搜索路径中查找文件 
;示例：(mc_getfile "tyl.ini")   
;函数代码： 
(defun mc_getfile(files / tmplst x fn) 
  (setq files(findfile files)) 
  (if files 
    (progn 
      (setq fn (open  files "r")) 
      (while (setq x (read-line fn)) 
        (setq tmplst(append tmplst(list x))) 
      ) 
      (close fn) 
      tmplst 
    ) 
     nil 
  ) 
) 
 
;============{ 在指定位置删除或插入元素 }=============== 
;nil表示要删除。如果有值为要插入的元素---by wowan1314 
;(t11 '(1 2 3 4 5 6) 2 0);;->(1 2 0 3 4 5 6) 
;(t11 '(1 2 3 4 5 6) 2 nil);;->(1 2 4 5 6) 
;2013年7月20日 星期六 
(defun t11 (lst pos mod / qlst a hlst) 
    (setq a -1) 
    (setq hlst (vl-member-if-not 
            '(lambda(x)  (setq a (1+ a)) (if (= a pos) nil 
                    (setq qlst (cons x qlst)) 
                ) 
            ) 
            lst 
        ) 
    ) 
    (if mod 
        (apply 'append (list (reverse(cons mod qlst)) hlst)) 
        (apply 'append (list (reverse qlst) (cdr hlst))) 
    ) 
) 
 
;根据表重写txt文件 
(defun rewritetxt (txtfile lst / dat_file ff i ii tuan ) 
  (setq ff (open txtfile "w")) ;写文件,如不存在则新建文件，如存在新资料将覆盖旧资料。 
  (setq i 1) 
  (setq ii (length lst)) 
  (while (and (/= nil lst) (<=  i ii)) 
      (setq tuan (car lst)) 
      (write-line tuan ff) 
      (setq lst (cdr lst)) 
    (setq i (+ i 1)) 
  ) 
  (close ff) 
)

<div class="blockcode"><blockquote>

复制代码

wowan3344 · 发表于 2014-12-2 19:07:40

大家都这么热心！真让人感动！

路过 ...

wzg356 · 发表于 2014-12-2 19:20:59

本帖最后由 wzg356 于 2014-12-2 20:09 编辑

13楼改为通用函数3个，文件删除、改写、插入第n行

ymcui · 发表于 2014-12-3 08:12:25

谢谢各位大神的帮助,谢谢

wzg356 · 发表于 2014-12-5 20:32:13

本帖最后由 wzg356 于 2014-12-5 20:39 编辑

wzg356 发表于 2014-12-2 18:22
试试，这个可以了，读文件的函数与地板不同，改为通用函数

呵呵，希望"我爱lisp"弄出来加密的dd

434939575 · 发表于 2021-6-2 15:46:05

这个可以。

账号		自动登录	找回密码
密码			注册

[已解答] 如何保存文字到.TXT文件指定的那一行

点评