求个表分组处理函数

77077

求个表分组处理函数
如(setq l '(1 2  ","  3 (4 5  ","  6 7 (8 9 "," 10 11  ","  12)) 13 14  ","  15 16))
表中数据按分隔符 "," 分组？

Gu_xl

77077 发表于 2014-11-23 17:55
受益匪浅，不过可能是我表述不清，我实际想要的是不改变多层表的层数。

你这是在浪费别人的时间，提问要想尽快得到快速准确的回复，必须做到：
1、尽可能详细的描述你提出你的问题，最好配合具体的实例，给出示意图或DWG例图
2、详细描述你想要得到的结果，尽可能给出最终的结果，而且是不要有歧义的结果！

这样能节省回复者的时间，而且你会尽快的到准确的回复，而不是别人给你回复了，却不是你想要的结果！
另外，请认真学习下置顶的帖子  【提示公告】本版关于提问的一些注意事项

ivde

先princ为string再替换 ,  为 )( 替换

wowan3344

1、表直接处理，递归法（不是太熟练）

2. ;(setq l1 '(1 2  ","  3 (4 5  ","  6 7 (8 9 "," 10 11  ","  12)) 13 14  ","  15 16))
   
3. ;(T11 L1 NIL NIL)
   
4. ;=>((16 15) (14 13 12) (11 10) (9 8 7 6) (5 4 3) (2 1))
   
5. (defun t11 (l1 l2 l3)
   
6.     (mapcar
   
7.         '(lambda(x)
   
8.             (if (= 'list (type x))
   
9.                 (setq l2 (t11 x l2 l3) l3 (cdr l2) l2 (car l2))
   
10.                 (if (= "," x)
    
11.                     (setq l2 (cons l3 l2) l3 nil)
    
12.                     (setq l3 (cons x l3))
    
13.                 )
    
14.             )
    
15.         )
    
16.          l1
    
17.     )
    
18.     (cons l3 l2)
    
19. )

;(setq l1 '(1 2  ","  3 (4 5  ","  6 7 (8 9 "," 10 11  ","  12)) 13 14  ","  15 16))<br /> ;(T11 L1 NIL NIL)<br /> ;=>((16 15) (14 13 12) (11 10) (9 8 7 6) (5 4 3) (2 1))<br /> (defun t11 (l1 l2 l3) <br />     (mapcar<br />         '(lambda(x)<br />             (if (= 'list (type x))<br />                 (setq l2 (t11 x l2 l3) l3 (cdr l2) l2 (car l2))<br />                 (if (= "," x)<br />                     (setq l2 (cons l3 l2) l3 nil)<br />                     (setq l3 (cons x l3))<br />                 )<br />             )<br />         )<br />          l1<br />     )<br />     (cons l3 l2)<br /> )

2、间接处理法，通过字符处理为单括号。

2. ;(setq l1 '(1 2  ","  3 (4 5  ","  6 7 (8 9 "," 10 11  ","  12)) 13 14  ","  15 16))
   
3. ;(T12 L1)
   
4. ;=>((16 15) (14 13 12) (11 10) (9 8 7 6) (5 4 3) (2 1))
   
5. (defun t12 (l1 / l2 l3)
   
6.     (mapcar
   
7.         '(lambda(x)
   
8.             (if (= "," (vl-princ-to-string x))
   
9.                 (setq l2 (cons l3 l2) l3 nil)
   
10.                 (setq l3 (cons x l3))
    
11.             )
    
12.         )
    
13.         (read
    
14.             (strcat "("
    
15.                 (vl-string-translate "()" "  "
    
16.                     (vl-princ-to-string l1)
    
17.                 )
    
18.                 ")"
    
19.             )
    
20.         )
    
21.     )
    
22.     (cons l3 l2)
    
23. )

;(setq l1 '(1 2  ","  3 (4 5  ","  6 7 (8 9 "," 10 11  ","  12)) 13 14  ","  15 16))<br /> ;(T12 L1)<br /> ;=>((16 15) (14 13 12) (11 10) (9 8 7 6) (5 4 3) (2 1))<br /> (defun t12 (l1 / l2 l3) <br />     (mapcar<br />         '(lambda(x)<br />             (if (= "," (vl-princ-to-string x))<br />                 (setq l2 (cons l3 l2) l3 nil)<br />                 (setq l3 (cons x l3))<br />             )<br />         )<br />         (read<br />             (strcat "("<br />                 (vl-string-translate "()" "  "<br />                     (vl-princ-to-string l1)<br />                 )<br />                 ")"<br />             )<br />         )<br />     )<br />     (cons l3 l2)<br /> )

结果再处理

1. ;结果再处理
   
2. ;((1 2) (3 4 5) (6 7 8 9) (10 11) (12 13 14) (15 16))
   
3. (reverse(mapcar 'reverse (T12 L1)))

复制代码

77077

wowan3344 发表于 2014-11-23 14:36
1、表直接处理，递归法（不是太熟练）2、间接处理法，通过字符处理为单括号。结果再处理

受益匪浅，不过可能是我表述不清，我实际想要的是不改变多层表的层数。

q3_2006

77077 发表于 2014-11-23 17:55
受益匪浅，不过可能是我表述不清，我实际想要的是不改变多层表的层数。

不改变多层表的层数
分出来是个什么样??
给个结果呗...很新鲜的表...