[讨论]：关于在lisp中的文件操作.

Dream.Fei

好像现在lisp中针对文件内容操作的就只有read-line和write-line.

这二个函数的不爽就是只能一行一行的来.比如要读取文件的第三行就必须要 read-line 三次才能得到第三行.

不知道有没有人想过或是写过读取指定行的?比如 (read-file filedia linenum).

另外就是write-line了.也是只能一行一行的写入文件,而且是从头开始的.

我想说的同样是,有没有在指定行插入的?如 (insert-line filedia linenum).从(+1 linenum)行开始写入新的内容?

----------
读取指定行已经搞定了.现在的问题是怎么插入新内容到指定行之后.

附:读取指定行
[php]
(defun read-file (file_name num / f index str)
  (if (setq f (open file_name "r"))
    (progn
      (setq index 0)
      (while (and (/= index num)
                  (setq str (read-line f))
             )
        (setq index (1+ index))
      )
      (close f)
    )
  )
  str
)
[/php]

jyzas

用repeat指定也可以:)