关于用LSP读写文件的问题

朽木大师

读一个文件的第一行，第二行，第三行，分别赋值给a b c
将三个值分别写进一个文件的，第一行，第二行，第三行，这个怎么写啊

sen.sam

(defun c:test()
(setq file (open "D:\\文件.txt" "r"))  
(setq a(read-line file)     
       b(read-line file)         
       c(read-line file)
)
(setq of(getfiled "输出文件名" "d:\\" "txt" 1))
(setq f (open of "w"))
(write-line a f)
(write-line b f)
(write-line c f)
(close file)
(close f)
)

Andyhon

(defun c:test ()
   (setq file3 (open "v:/333.txt" "r")
         file2 (open "v:/222.txt" "w")
   ) ; 路径自己定
   (repeat 3
     (write-line (read-line file3) file2)
   )
   (close file3)
   (close file2)
   (startapp "Notepad.exe"  "v:/222.txt")
)

朽木大师

Andyhon 发表于 2012-8-21 22:31
(defun c:test ()
   (setq file3 (open "v:/333.txt" "r")
         file2 (open "v:/222.txt" "w")

这里怎么看你读的是第几行？写进的是第几行

朽木大师

(setq a(read-line file)     
       b(read-line file)         
       c(read-line file)
)这个表达式就是读第几行，怎么没看到行的标志

sen.sam

朽木大师 发表于 2012-8-21 22:54
(setq a(read-line file)     
       b(read-line file)         
       c(read-line file)

关闭文件之前，用一次read-line就读取一行，如此类推

朽木大师

再问一个大师的问题
(setq tta (vl-list->string '(49 57 51 57 48 48 48 48)))
(princ tta)
我再将 tta转换成LIST 怎么操作啊

sen.sam

朽木大师 发表于 2012-8-21 23:20
再问一个大师的问题
(setq tta (vl-list->string '(49 57 51 57 48 48 48 48)))
(princ tta)

(vl-string->list tta)

pengfei2010

学习了，我觉得用vlisp应该会方便一些