根据表1中顺序,排序表2，方法

炫翔

(setq LST1 '("A" "C" "B" "E"))
(setq LST2 '(("C" 1) ("A" 1) ("B" 1) ("E" 1)))

1. ;根据表1中顺序,排序表2
   
2. ; (setq LST1 '("A" "C" "B" "E"))
   
3. ; (setq LST2 '(("C" 1) ("A" 1) ("B" 1) ("E" 1)))
   
4. ; (List-sortbylist LST2 LST1)
   
5. ;  --->(("A" 1) ("C" 1) ("B" 1) ("E" 1))
   
6. (defun List-sortbylist(lst2 lst1 / lst n)
   
7. (setq n t)
   
8. (while  lst1
   
9.    (setq lst(cons(assoc (car lst1) lst2) lst))
   
10.    (setq lst1(cdr lst1))
    
11. )
    
12. (reverse lst)
    
13. )

;根据表1中顺序,排序表2<br /> ; (setq LST1 '("A" "C" "B" "E"))<br /> ; (setq LST2 '(("C" 1) ("A" 1) ("B" 1) ("E" 1)))<br /> ; (List-sortbylist LST2 LST1)<br /> ;  --->(("A" 1) ("C" 1) ("B" 1) ("E" 1))<br /> (defun List-sortbylist(lst2 lst1 / lst n)<br /> (setq n t)<br /> (while  lst1<br />    (setq lst(cons(assoc (car lst1) lst2) lst))<br />    (setq lst1(cdr lst1))<br /> )<br /> (reverse lst)<br /> )

ll_j

仅仅是这样的表，排序不必要那么复杂：
(mapcar '(lambda(x)(assoc x lst2)) lst1)

ynhh

版主的这个方法
感觉很有用啊{:soso_e179:}

iLisp

ll_j长老方法是正解

牢固

你这种方法要不得,局限性太大!Lisp排序自然要使用vl-sort函数!

1. (defun List-sortbylist (lst2 lst1)
   
2.   (vl-sort lst2
   
3.      '(lambda (a b)
   
4.         (< (VL-POSITION (car a) lst1) (VL-POSITION (car b) lst1))
   
5.       )
   
6.   )
   
7. )

(defun List-sortbylist (lst2 lst1)<br />   (vl-sort lst2<br />      '(lambda (a b)<br />         (< (VL-POSITION (car a) lst1) (VL-POSITION (car b) lst1))<br />       )<br />   )<br /> )