write-line函数插入写入（如何实现在已有文本第一行写入，原第一行递延为第二行）

zzl9105

如题：write-line函数插入写入（如何实现在已有文本第一行写入，原第一行递延为第二行，后面的类推），其实就是相当于在txt文件第一行中插入要写入的文本。
能实现这样的功能吗？谢谢

yxp

是的，也可倒一遍原数据实现。测试插入一行： (test "abcd")
插入两行文本：(test "abcd\n1234")

1. ;;在 txt 文本第一行插入数据；成功返回 nil  失败返回传入参数
   
2. (defun test(s / f ss)
   
3. (setq fpath (getfiled  "打开" (if fpath fpath "" ) "txt" 0))
   
4. (if fpath (progn
   
5.         (setq f (open fpath "r"))
   
6.         (while (setq ss (cons s ss) s (read-line f)))
   
7.         (close f)
   
8.         (setq f (open fpath "w"))
   
9.         (foreach x (reverse ss) (write-line x f))
   
10.         (close f)
    
11. ) s)
    
12. )

;;在 txt 文本第一行插入数据；成功返回 nil  失败返回传入参数<br /> (defun test(s / f ss)<br /> (setq fpath (getfiled  "打开" (if fpath fpath "" ) "txt" 0))<br /> (if fpath (progn<br />         (setq f (open fpath "r"))<br />         (while (setq ss (cons s ss) s (read-line f)))<br />         (close f)<br />         (setq f (open fpath "w"))<br />         (foreach x (reverse ss) (write-line x f))<br />         (close f)<br /> ) s)<br /> )

vectra

流式文件 不支持随机读写 只能顺序
考虑在内存中处理好 一次性写入

zzl9105

yxp 发表于 2018-5-21 11:04
是的，也可倒一遍原数据实现。测试插入一行： (test "abcd")
插入两行文本：(test "abcd\n1234")

谢谢你提供的思路，可是我的文本中有好多行文字，我只想插入第一行。其它行都不动

lostbalance

zzl9105 发表于 2018-5-21 15:47
谢谢你提供的思路，可是我的文本中有好多行文字，我只想插入第一行。其它行都不动

原内容只是提取出来，然后和新行合并后，再全部写入。可以认为原内容是没有变化的。