求助，LSP读取文本文件的程序

︶ㄣ与狼共舞

明经这个平台真的给了我很大的帮助，由于本人对LSP程序实在不懂，就这问题在论坛足足找了五天的贴子，都没有解决，特此发贴求助，我上传个文本附件，希望热心人士帮忙写个程序范例，万分感谢!

ZZXXQQ

2. (defun c:tt ()
   
3. (setq fn (if (= (type fn) 'STR) fn "")
   
4. (if (setq fn (getfiled "选择文件" fn "txt" 2)) (progn
   
5.    (setq fp (open fn "r"))
   
6.    (while (and (setq txt (read(read-line fp)) (= (type txt) 'LIST))
   
7.     (setq tmp "" i 2)
   
8.     (while (/= (setq tmpp (substr txt i 1)) " ")
   
9.      (setq tmp (strcat tmp tmpp) i (1+ i))
   
10.     )
    
11.     (apply 'setvar (list tmp (cadr(read txt))))
    
12.   )
    
13. (close fp)
    
14. ))
    
15. (princ)
    
16. )

(defun c:tt ()<br /> (setq fn (if (= (type fn) 'STR) fn "")<br /> (if (setq fn (getfiled "选择文件" fn "txt" 2)) (progn<br />    (setq fp (open fn "r"))<br />    (while (and (setq txt (read(read-line fp)) (= (type txt) 'LIST))<br />     (setq tmp "" i 2)<br />     (while (/= (setq tmpp (substr txt i 1)) " ")<br />      (setq tmp (strcat tmp tmpp) i (1+ i))<br />     )<br />     (apply 'setvar (list tmp (cadr(read txt))))<br />   )<br /> (close fp)<br /> ))<br /> (princ)<br /> )

︶ㄣ与狼共舞

ZZXXQQ 发表于 2014-1-8 22:56

非常感谢Z版这么及时的帮忙！说实在的，我还是看不太懂，我回头研究一下，应该可以实现！

︶ㄣ与狼共舞

折腾了一个星期还是没搞定，实在不懂，谁帮我写一个。范例即可

ZZXXQQ

沙发改了。

q3_2006

2. (defun c:tt ( / fn fp i lst txt x)
   
3. (setq fn (if (= (type fn) 'STR) fn ""))
   
4. (if (setq fn (getfiled "选择文件" fn "txt" 2)) (progn
   
5. (setq lst nil i 0 fp (open fn "r"))
   
6. (while (setq txt (read-line fp))
   
7. (if (and (setq txt (read txt)) (= (type txt) 'LIST))
   
8. (setq lst (append lst (list txt)))
   
9. )
   
10. (setq i (1+ i))
    
11. )
    
12. (close fp)
    
13. (mapcar 'setvar (mapcar '(lambda(x) (vl-prin1-to-string (car x))) lst) (mapcar 'cadr lst))
    
14. ))
    
15. (princ)
    
16. )

(defun c:tt ( / fn fp i lst txt x)<br /> (setq fn (if (= (type fn) 'STR) fn ""))<br /> (if (setq fn (getfiled "选择文件" fn "txt" 2)) (progn<br /> (setq lst nil i 0 fp (open fn "r"))<br /> (while (setq txt (read-line fp))<br /> (if (and (setq txt (read txt)) (= (type txt) 'LIST))<br /> (setq lst (append lst (list txt)))<br /> )<br /> (setq i (1+ i))<br /> )<br /> (close fp)<br /> (mapcar 'setvar (mapcar '(lambda(x) (vl-prin1-to-string (car x))) lst) (mapcar 'cadr lst))<br /> ))<br /> (princ)<br /> )

77077

read-line,用法看LISP书~

︶ㄣ与狼共舞

77077 发表于 2014-2-19 11:46
read-line,用法看LISP书~

谢谢！
是我太菜了，书上介绍也是简单的用法，看书也没看不会，

︶ㄣ与狼共舞

q3_2006 发表于 2014-2-19 10:52

非常感谢！
还是看不太懂，可否说一下具体的用法！

︶ㄣ与狼共舞

ZZXXQQ 发表于 2014-2-19 08:09
沙发改了。

感谢！
可是我还是不知道怎么用！我想知道怎么循环读取某一指定段落的文字写入列表！不好意思不知道我表述得对不对！