新年快乐，求助如何排序字符串

hrbustmqc

a1变量存储wl1字符串，余同。
a1 "wl1"     b1 "AL1"  c1 "单相" d1 "1.44"
a2 "wl2"     b2 "AL1"  c2 "单相" d2 "2"
a3 "wl3"     b3 "AL1"  c3 "三相" d3 "5"
a4 "wl1"     b4 "AL2"  c4 "单相" d4 "2"
a5 "wl2"     b5 "AL2"  c5 "单相" d5 "2"
a6 "wl3"     b6 "AL3"  c6 "三相" d6 "2"
a7 "wp2"    b7 "AL2"  c7 "三相" d7 "4"
求个程序，   先把上面的字符串按照  AL1 AL2 AL3 分类排序，然后所有AL1 后面的按照 单相三相排序 (单相在前面三相在后)
如下：
AL1  wl1  单项  1.44
AL1  wl2  单项   2
AL1  wl3  三相   5
   
AL2  wl1  单相   2
AL2  wl2   单相 2
AL2  wp2  三相 4

AL3  wl3  三相  2   
最后祝愿好心人新年快乐

USER2128

2. ;|
   
3. ;;;整理数据:
   
4. (setq Lst (list (list a1 b1 c1 d1)
   
5.                 (list a2 b2 c2 d2)
   
6.                 (list a3 b3 c3 d3)
   
7.                 (list a4 b4 c4 d4)
   
8.                 (list a5 b5 c5 d5)
   
9.                 (list a6 b6 c6 d6)
   
10.                 (list a7 b7 c7 d7)
    
11.                 ))
    
12. |;
    
13. ;;;得到实际数据:
    
14. (setq Lst '(("wl1" "AL1" "单相" "1.44")
    
15.             ("wl2" "AL1" "单相" "2")
    
16.             ("wl3" "AL1" "三相" "5")
    
17.             ("wl1" "AL2" "单相" "2")
    
18.             ("wl2" "AL2" "单相" "2")
    
19.             ("wl3" "AL3" "三相" "2")
    
20.             ("wp2" "AL2" "三相" "4")
    
21.             ))
    
22. ;;;实际数据排序函数:
    
23. (defun sort-lst (Lst)
    
24.   (setq Lst (mapcar '(lambda(x) (list (cadr x) (car x) (caddr x) (cadddr x))) Lst))
    
25.   (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 3 x) (nth 3 y)))))
    
26.   (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 2 x) (nth 2 y)))))
    
27.   (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 1 x) (nth 1 y)))))
    
28.   (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 0 x) (nth 0 y)))))
    
29.   (princ "\n")
    
30.   (mapcar '(lambda(x)
    
31.              (princ "\n")
    
32.              (mapcar '(lambda(y) (princ y) (princ "\t")) x)
    
33.              ) Lst)
    
34.   (princ "\n")
    
35.   (princ)
    
36.   )
    
37. ;;;执行数据排序:
    
38. (sort-lst Lst)
    
39. 
    

;|<br /> ;;;整理数据:<br /> (setq Lst (list (list a1 b1 c1 d1)<br />                 (list a2 b2 c2 d2)<br />                 (list a3 b3 c3 d3)<br />                 (list a4 b4 c4 d4)<br />                 (list a5 b5 c5 d5)<br />                 (list a6 b6 c6 d6)<br />                 (list a7 b7 c7 d7)<br />                 ))<br /> |;<br /> ;;;得到实际数据:<br /> (setq Lst '(("wl1" "AL1" "单相" "1.44")<br />             ("wl2" "AL1" "单相" "2")<br />             ("wl3" "AL1" "三相" "5")<br />             ("wl1" "AL2" "单相" "2")<br />             ("wl2" "AL2" "单相" "2")<br />             ("wl3" "AL3" "三相" "2")<br />             ("wp2" "AL2" "三相" "4")<br />             ))<br /> ;;;实际数据排序函数:<br /> (defun sort-lst (Lst)<br />   (setq Lst (mapcar '(lambda(x) (list (cadr x) (car x) (caddr x) (cadddr x))) Lst))<br />   (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 3 x) (nth 3 y)))))<br />   (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 2 x) (nth 2 y)))))<br />   (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 1 x) (nth 1 y)))))<br />   (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 0 x) (nth 0 y)))))<br />   (princ "\n")<br />   (mapcar '(lambda(x)<br />              (princ "\n")<br />              (mapcar '(lambda(y) (princ y) (princ "\t")) x)<br />              ) Lst)<br />   (princ "\n")<br />   (princ)<br />   )<br /> ;;;执行数据排序:<br /> (sort-lst Lst)<br /> <br />

xyp1964

2. (setq lst '(("wl1" "AL1" "单相" "1.44")
   
3.             ("wl2" "AL1" "单相" "2")
   
4.             ("wl3" "AL1" "三相" "5")
   
5.             ("wl1" "AL2" "单相" "2")
   
6.             ("wl2" "AL2" "单相" "2")
   
7.             ("wl3" "AL3" "三相" "2")
   
8.             ("wp2" "AL2" "三相" "4")
   
9.            )
   
10. )
    
11. (vl-sort lst
    
12.          '(lambda (x y)
    
13.             (cond ((and (= (cadr x) (cadr y)) (< (car x) (car y))) t)
    
14.                   ((< (cadr x) (cadr y)) t)
    
15.             )
    
16.           )
    
17. )
    

(setq lst '(("wl1" "AL1" "单相" "1.44")<br />             ("wl2" "AL1" "单相" "2")<br />             ("wl3" "AL1" "三相" "5")<br />             ("wl1" "AL2" "单相" "2")<br />             ("wl2" "AL2" "单相" "2")<br />             ("wl3" "AL3" "三相" "2")<br />             ("wp2" "AL2" "三相" "4")<br />            )<br /> )<br /> (vl-sort lst<br />          '(lambda (x y)<br />             (cond ((and (= (cadr x) (cadr y)) (< (car x) (car y))) t)<br />                   ((< (cadr x) (cadr y)) t)<br />             )<br />           )<br /> )<br />

结果：
'(("wl1" "AL1" "单相" "1.44")
  ("wl2" "AL1" "单相" "2")
  ("wl3" "AL1" "三相" "5")
  ("wl1" "AL2" "单相" "2")
  ("wl2" "AL2" "单相" "2")
  ("wp2" "AL2" "三相" "4")
  ("wl3" "AL3" "三相" "2")
)

ynhh

新年好

hrbustmqc

谢谢几位朋友的帮助，十分惭愧版主大人的程序没太理解。
(cond ((and (= (cadr x) (cadr y)) (< (car x) (car y))) t)
                  ((< (cadr x) (cadr y)) t)
请问这句话的意思，参数t是什么意思。

ZZXXQQ

hrbustmqc 发表于 2015-2-21 22:24
谢谢几位朋友的帮助，十分惭愧版主大人的程序没太理解。
(cond ((and (= (cadr x) (cadr y)) (< (car x) ( ...

t是逻辑“真”的意思。

hrbustmqc

我看沙发的程序也没有判断逻辑真假啊，请问版主大人，vlsort什么时候用判断逻辑真。

  (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 3 x) (nth 3 y)))))
  (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 2 x) (nth 2 y)))))
  (setq Lst (vl-sort Lst '(lambda(x y) (< (nth 1 x) (nth 1 y)))))

ZZXXQQ

hrbustmqc 发表于 2015-2-23 22:22
我看沙发的程序也没有判断逻辑真假啊，请问版主大人，vlsort什么时候用判断逻辑真。

  (setq Lst (vl-so ...

后面的逻辑表达式的返回值就可能有t。

自贡黄明儒

(setq L        '(("wl1" "AL1" "单相" "1.44")
          ("wl3" "AL1" "三相" "5")
          ("wl1" "AL3" "单相" "2")
          ("wl1" "AL2" "单相" "2")
          ("wl2" "AL2" "单相" "2")
          ("wl3" "AL3" "三相" "2")
          ("wl2" "AL1" "单相" "2")
         )
)
(mapcar '(lambda (f) (setq L (vl-sort L '(lambda (x y) (< (f X) (f Y)))))) (list cadddr caddr cadr car))
=========>>>L  
("wl1" "AL1" "单相" "1.44") ("wl1" "AL2" "单相" "2") ("wl1" "AL3" "单相" "2") ("wl2" "AL1" "单相" "2") ("wl2" "AL2" "单相" "2") ("wl3" "AL1" "三相" "5") ("wl3" "AL3" "三相" "2"))