如何将表进行排序

奋斗的研究生

（ (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.02" <图元名: -16ade8>) )  
    (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.04" <图元名: -16ade8>) )
    (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.01" <图元名: -16ade8>) )
    (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.02" <图元名: -16ade8>) )
    (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.03" <图元名: -16ade8>) )  ）

   如何将图中的四个表按照“图号”的正常顺序01、02、03、04排序成如下：

（ (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.01" <图元名: -16ade8>) )  
    (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.02" <图元名: -16ade8>) )
    (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.02" <图元名: -16ade8>) )
    (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.03" <图元名: -16ade8>) )
    (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.04" <图元名: -16ade8>) )  ）

yshf

2. (setq thlb '((("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.02" <图元名: -16ade8>) )  
   
3.               (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.04" <图元名: -16ade8>) )
   
4.               (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.01" <图元名: -16ade8>) )
   
5.               (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.02" <图元名: -16ade8>) )
   
6.               (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.03" <图元名: -16ade8>) )
   
7.              )
   
8. )
   
9. 
   
10. (setq thlb (vl-sort thlb '(lambda(x y)
    
11.                               (< (atof (vl-string-subst "" "NO." (cadr (cadr x))))
    
12.                                  (atof (vl-string-subst "" "NO." (cadr (cadr y))))
    
13.                               )
    
14.                            )
    
15.             )
    
16. )
    

(setq thlb '((("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.02" <图元名: -16ade8>) )  <br />               (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.04" <图元名: -16ade8>) )<br />               (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.01" <图元名: -16ade8>) )<br />               (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.02" <图元名: -16ade8>) )<br />               (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)  ("图号" "NO.03" <图元名: -16ade8>) )<br />              )<br /> )<br /> <br /> (setq thlb (vl-sort thlb '(lambda(x y)<br />                               (< (atof (vl-string-subst "" "NO." (cadr (cadr x))))<br />                                  (atof (vl-string-subst "" "NO." (cadr (cadr y))))<br />                               )<br />                            )<br />             )<br /> )<br />

琴剑江山_10184

1.     (setq a'((("建设单位" "镇江金顺有限公司" <图元名: -16add0>)
   
2.         ("图号" "NO.02" <图元名: -16ade8>)
   
3.       )
   
4.       (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)
   
5.         ("图号" "NO.04" <图元名: -16ade8>)
   
6.       )
   
7.       (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)
   
8.         ("图号" "NO.01" <图元名: -16ade8>)
   
9.       )
   
10.       (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)
    
11.         ("图号" "NO.02" <图元名: -16ade8>)
    
12.       )
    
13.       (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)
    
14.         ("图号" "NO.03" <图元名: -16ade8>)
    
15.       )
    
16.        )
    
17.     )
    
18. (setq bb (vl-sort a
    
19.       '(lambda (a1 a2)
    
20.          (<  (atof (substr (cadadr a1) 5))
    
21.       (atof (substr (cadadr a2) 5))
    
22.          )
    
23.        )
    
24.    )
    
25. );排序
    
26. ;排序后的结果
    
27. ((("建设单位" "镇江金顺有限公司" <图元名: -16ADD0>) ("图号" "NO.01" <图元名: -16ADE8>))
    
28.   (("建设单位" "镇江金顺有限公司" <图元名: -16ADD0>) ("图号" "NO.02" <图元名: -16ADE8>))
    
29.   (("建设单位" "镇江金顺有限公司" <图元名: -16ADD0>) ("图号" "NO.02" <图元名: -16ADE8>))
    
30.   (("建设单位" "镇江金顺有限公司" <图元名: -16ADD0>) ("图号" "NO.03" <图元名: -16ADE8>))
    
31.   (("建设单位" "镇江金顺有限公司" <图元名: -16ADD0>) ("图号" "NO.04" <图元名: -16ADE8>))
    
32. )
    
33. 
    
34. 
    
35. 
    
36. 
    

    (setq a'((("建设单位" "镇江金顺有限公司" <图元名: -16add0>)<br />         ("图号" "NO.02" <图元名: -16ade8>)<br />       )<br />       (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)<br />         ("图号" "NO.04" <图元名: -16ade8>)<br />       )<br />       (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)<br />         ("图号" "NO.01" <图元名: -16ade8>)<br />       )<br />       (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)<br />         ("图号" "NO.02" <图元名: -16ade8>)<br />       )<br />       (("建设单位" "镇江金顺有限公司" <图元名: -16add0>)<br />         ("图号" "NO.03" <图元名: -16ade8>)<br />       )<br />        )<br />     )<br /> (setq bb (vl-sort a<br />       '(lambda (a1 a2)<br />          (<  (atof (substr (cadadr a1) 5))<br />       (atof (substr (cadadr a2) 5))<br />          )<br />        )<br />    )<br /> );排序<br /> ;排序后的结果<br /> ((("建设单位" "镇江金顺有限公司" <图元名: -16ADD0>) ("图号" "NO.01" <图元名: -16ADE8>))<br />   (("建设单位" "镇江金顺有限公司" <图元名: -16ADD0>) ("图号" "NO.02" <图元名: -16ADE8>))<br />   (("建设单位" "镇江金顺有限公司" <图元名: -16ADD0>) ("图号" "NO.02" <图元名: -16ADE8>))<br />   (("建设单位" "镇江金顺有限公司" <图元名: -16ADD0>) ("图号" "NO.03" <图元名: -16ADE8>))<br />   (("建设单位" "镇江金顺有限公司" <图元名: -16ADD0>) ("图号" "NO.04" <图元名: -16ADE8>))<br /> )<br /> <br /> <br /> <br /> <br />

重慶崽兒

我也来个：

1. (defun c:tt()
   
2.   (setq  a '(
   
3.              (("建设单位" "镇江金顺有限公司" <图元名: -16add0>) ("图号" "NO.02" <图元名: -16ade8>))
   
4.              (("建设单位" "镇江金顺有限公司" <图元名: -16add0>) ("图号" "NO.04" <图元名: -16ade8>))
   
5.              (("建设单位" "镇江金顺有限公司" <图元名: -16add0>) ("图号" "NO.01" <图元名: -16ade8>))
   
6.              (("建设单位" "镇江金顺有限公司" <图元名: -16add0>) ("图号" "NO.02" <图元名: -16ade8>))
   
7.              (("建设单位" "镇江金顺有限公司" <图元名: -16add0>) ("图号" "NO.03" <图元名: -16ade8>))
   
8.             )
   
9.    c nil
   
10.   )
    
11.   (setq b (vl-sort-i a (function (lambda (x y) (< (cadadr x) (cadadr y))))))
    
12.   (foreach i b (setq c (append c (list (nth i a)))))
    
13. )

(defun c:tt()<br />   (setq  a '(<br />              (("建设单位" "镇江金顺有限公司" <图元名: -16add0>) ("图号" "NO.02" <图元名: -16ade8>))<br />              (("建设单位" "镇江金顺有限公司" <图元名: -16add0>) ("图号" "NO.04" <图元名: -16ade8>))<br />              (("建设单位" "镇江金顺有限公司" <图元名: -16add0>) ("图号" "NO.01" <图元名: -16ade8>))<br />              (("建设单位" "镇江金顺有限公司" <图元名: -16add0>) ("图号" "NO.02" <图元名: -16ade8>))<br />              (("建设单位" "镇江金顺有限公司" <图元名: -16add0>) ("图号" "NO.03" <图元名: -16ade8>))<br />             )<br />    c nil<br />   )<br />   (setq b (vl-sort-i a (function (lambda (x y) (< (cadadr x) (cadadr y))))))<br />   (foreach i b (setq c (append c (list (nth i a)))))<br /> )

奋斗的研究生

果然高手众多，谢谢

xyp1964

1. (vl-sort lst '(lambda (x y) (< (cadadr x) (cadadr y))))

复制代码

奋斗的研究生

琴剑江山_10184 发表于 2015-10-28 21:50

请问重复的怎么删除呢？

奋斗的研究生

重复的怎么删除呢，是什么函数呢