[求助]如何用LISP读取这样格式的数据，并赋值？

taozhen

meflying

自己看一下

2. 
   
3. 
   
4. (defun c:Test( / fname f i ch chs lines lst)
   
5.   (setq fname (getfiled "Select a Lisp File" "" "txt" 8))
   
6.   (setq f (open fname "r"))
   
7.   (read-line f)
   
8.   (while (setq str (read-line f))
   
9.     (setq i 1)
   
10.     (setq chs "")
    
11.     (while (<= i (strlen str))
    
12.       (setq ch (substr str i 1))
    
13.       (if (/= ch ",")
    
14.         (setq chs (strcat chs ch))
    
15.         (progn
    
16.           (setq lines (append lines (list (read chs))))
    
17.           (setq chs "")
    
18.         )
    
19.       )
    
20.       (setq i (1+ i))
    
21.     )
    
22.     (setq lines (append lines (list (read chs))))
    
23.     (setq lst (append lst (list lines)))
    
24.     (setq lines nil)
    
25.   )
    
26.   (princ lst)
    
27.   (princ)
    
28. )
    
29. 
    

<br /> <br /> (defun c:Test( / fname f i ch chs lines lst)<br />   (setq fname (getfiled "Select a Lisp File" "" "txt" 8))<br />   (setq f (open fname "r"))<br />   (read-line f)<br />   (while (setq str (read-line f))<br />     (setq i 1)<br />     (setq chs "")<br />     (while (<= i (strlen str))<br />       (setq ch (substr str i 1))<br />       (if (/= ch ",")<br />         (setq chs (strcat chs ch))<br />         (progn<br />           (setq lines (append lines (list (read chs))))<br />           (setq chs "")<br />         )<br />       )<br />       (setq i (1+ i))<br />     )<br />     (setq lines (append lines (list (read chs))))<br />     (setq lst (append lst (list lines)))<br />     (setq lines nil)<br />   )<br />   (princ lst)<br />   (princ)<br /> )<br /> <br />

大虫子

喂，我看见你了
交个朋友啊