将表内字符串，按逗号作分隔再分成成表

xujinhua

有以下这么一个列表
((("01-Z0017") ("01-Z0017,蔡惠宣、吴信雄,四,东风村上冲西约26巷22号,穗海新字第005476号,框架,3.5,98,343,1997-8-6")) (("01-Z0018") ("01-Z0018,黄宗宏,四,东风乡上冲西约村25号17号,穗海新字第505923号,框架,3.5,97.5,341,1995-7-10")) (("01-Z0019") ("01-Z0019,何志伟,四,东风村上冲西约25巷20号,穗海新字第005551号,框架,4.5,96,432,1996-6-10")))

效果表如下:
((("01-Z0017")(01-Z0017)(蔡惠宣)(吴信雄)(四)(东风村上冲西约26巷22号)(穗海新字第005476号)(框架)(3.5)(98)(343)(1997-8-6)) (("01-Z0018") (01-Z0018)(黄宗宏)(四)(东风乡上冲西约村25号17号)(穗海新字第505923号)(框架)(3.5)(97.5)(341)(1995-7-10)) (("01-Z0019") (01-Z0019)(何志伟)(四)(东风村上冲西约25巷20号)(穗海新字第005551号)(框架)(4.5)(96)(432)(1996-6-1)))


谢谢各位了,因为要填到图上，

xujinhua

"01-Z0017,蔡惠宣、吴信雄,四,东风村上冲西约26巷22号,穗海新字第005476号,框架,3.5,98,343,1997-8-6"
要不就怎样将这类字串按逗号分开转换成表
((01-Z0017)(蔡惠宣、吴信雄,四)(东风村上冲西约26巷22号)(穗海新字第005476号)(框架)(3.5)(98)(343)(1997-8-6))
字串的字数基本上都不同的

阿然

1. (setq aa
   
2.        '((("01-Z0017")
   
3.           ("01-Z0017,蔡惠宣、吴信雄,四,东风村上冲西约26巷22号,穗海新字第005476号,框架,3.5,98,343,1997-8-6"
   
4.           )
   
5.          )
   
6.          (("01-Z0018")
   
7.           ("01-Z0018,黄宗宏,四,东风乡上冲西约村25号17号,穗海新字第505923号,框架,3.5,97.5,341,1995-7-10"
   
8.           )
   
9.          )
   
10.          (("01-Z0019")
    
11.           ("01-Z0019,何志伟,四,东风村上冲西约25巷20号,穗海新字第005551号,框架,4.5,96,432,1996-6-10"
    
12.           )
    
13.          )
    
14.         )
    
15. )
    
16. (defun LM:str->lst (str del / pos)
    
17.   (if (setq pos (vl-string-search del str))
    
18.     (cons (substr str 1 pos)
    
19.           (lm:str->lst (substr str (+ pos 1 (strlen del))) del)
    
20.     )
    
21.     (list str)
    
22.   )
    
23. )
    
24. (mapcar
    
25.   '(lambda (x)
    
26.      (append (list (car x))
    
27.              (mapcar '(lambda (y) (list y)) (LM:str->lst (caadr x) ","))
    
28.      )
    
29.    )
    
30.   aa
    
31. )

(setq aa<br />        '((("01-Z0017")<br />           ("01-Z0017,蔡惠宣、吴信雄,四,东风村上冲西约26巷22号,穗海新字第005476号,框架,3.5,98,343,1997-8-6"<br />           )<br />          )<br />          (("01-Z0018")<br />           ("01-Z0018,黄宗宏,四,东风乡上冲西约村25号17号,穗海新字第505923号,框架,3.5,97.5,341,1995-7-10"<br />           )<br />          )<br />          (("01-Z0019")<br />           ("01-Z0019,何志伟,四,东风村上冲西约25巷20号,穗海新字第005551号,框架,4.5,96,432,1996-6-10"<br />           )<br />          )<br />         )<br /> )<br /> (defun LM:str->lst (str del / pos)<br />   (if (setq pos (vl-string-search del str))<br />     (cons (substr str 1 pos)<br />           (lm:str->lst (substr str (+ pos 1 (strlen del))) del)<br />     )<br />     (list str)<br />   )<br /> )<br /> (mapcar<br />   '(lambda (x)<br />      (append (list (car x))<br />              (mapcar '(lambda (y) (list y)) (LM:str->lst (caadr x) ","))<br />      )<br />    )<br />   aa<br /> )

xujinhua

哇。。。太谢谢你了.........................!!!!!无限感激