[求助]：怎样把一个长列表分成几个列表？

mhy007

怎样将列表（"A:""123""deg""*8""B:""586""bfh""C:""n9""5/9""666""H"）分成三个列表？
列表1（"123""deg""*8""）
列表2（"586""bfh"）
列表3（"n9""5/9""666""H"）
其中"A:""B:""C:"是固定不变的，其余元素的数量和长短是变量。
搜索没有找到有关帖子，只有请各位出手了。
实在不行，把("＊＊""123""deg""*8""＊＊""586""bfh""＊＊""n9""5/9""666""H")这种形式变成三个列表也可以

Underway

(setq aa '("A:""123""deg""*8""B:""586""bfh""C:""n9""5/9""666""H"))

Command: (cdr (reverse (cdr (member "B:" (reverse  aa)))))
("123" "deg" "*8")

Command: (cdr (reverse (cdr (member "C:" (reverse (member "B:" aa))))))
("586" "bfh")

Command: (cdr (member "C:" aa))
("n9" "5/9" "666" "H")

xyp1964

2. [FONT=courier new](defun ABC-test        (lst)
   
3.   (setq        C1  (member "C:" lst)
   
4.         l1  (length c1)
   
5.         lst (reverse lst)
   
6.   )
   
7.   (repeat l1
   
8.     (setq lst (cdr lst))
   
9.   )
   
10.   (setq        lst (reverse lst)
    
11.         B1  (member "B:" lst)
    
12.         l1  (length b1)
    
13.         lst (reverse lst)
    
14.   )
    
15.   (repeat l1
    
16.     (setq lst (cdr lst))
    
17.   )
    
18.   (setq A1 (reverse lst))
    
19.   (princ "\nA: ")
    
20.   (print (cdr A1))
    
21.   (princ "\nB: ")
    
22.   (print (cdr B1))
    
23.   (princ "\nC: ")
    
24.   (print (cdr C1))
    
25.   (princ)
    
26. )[/FONT]

[FONT=courier new](defun ABC-test        (lst)<br />   (setq        C1  (member "C:" lst)<br />         l1  (length c1)<br />         lst (reverse lst)<br />   )<br />   (repeat l1<br />     (setq lst (cdr lst))<br />   )<br />   (setq        lst (reverse lst)<br />         B1  (member "B:" lst)<br />         l1  (length b1)<br />         lst (reverse lst)<br />   )<br />   (repeat l1<br />     (setq lst (cdr lst))<br />   )<br />   (setq A1 (reverse lst))<br />   (princ "\nA: ")<br />   (print (cdr A1))<br />   (princ "\nB: ")<br />   (print (cdr B1))<br />   (princ "\nC: ")<br />   (print (cdr C1))<br />   (princ)<br /> )[/FONT]

测试：
Command: (setq lst '("A:" "123" "deg" "*8" "B:" "586" "bfh" "C:" "n9" "5/9" "666" "H"))
("A:" "123" "deg" "*8" "B:" "586" "bfh" "C:" "n9" "5/9" "666" "H")

Command: (abc-test lst)
A:
("123" "deg" "*8")
B:
("586" "bfh")
C:
("n9" "5/9" "666" "H")