[求助]老调重弹-求字符串排序通用函数

carrot1983

求字符串排序通用函数

1.

(vl-sort '("KL10" "KL8" "KL21" "KL1") '<)
-> ("KL1" "KL10" "KL21" "KL8")

这个明显是不行的。

2. (vl-sort '("KL10" "KL8" "KL21" "KL1")
     '(lambda (X1 X2)
        (< (atoi (substr X1
    3
    (strlen X1)
   )
    )
    (atoi (substr X2
    3
    (strlen X2)
   )
    )
        )
      )
   )
-> ("KL1" "KL8" "KL10" "KL21")

这个虽然可以，但是对于复杂一些的字符串列表。行不通。。。

我印象有看过狂刀的一个贴子有字符串排序的代码。

印象也测试了一下好像不太对。。。

各位讨论一下，提供个思路之类的。。。

liu_kunlun

关键你自己要制定一个“通用”的排序规矩，有了这个“规矩”之后剩下就是编程了

tengte

试一试我这个函数，或许可以满足你的要求。
调用说明：lst－字符串列表；func－排序方式。“'<”为升序，“'>”为降序。

2. (defun TBC:Sort (lst func / Split CompFunc tmp)
3.   (defun Split (str / tmp i n p x len lst1 lst)
4.     (setq tmp  (vl-string->list str)
5.    lst1 (mapcar '(lambda (x) (and (<= 48 x) (<= x 57))) tmp)
6.    n    (length lst1)
7.    i    0
8.     )
9.     (while (< i n)
10.       (setq x (nth i lst1)
11.      i (1+ i)
12.       )
13.       (if (= i 1)
14. (setq p 1
15.        len 1
16. ) ;else
17. (if (= x (nth (- i 2) lst1))
18.    (setq len (1+ len)) ;else
19.    (setq tmp (substr str p len)
20.   tmp (if x
21.         tmp
22.         (atoi tmp)
23.       )
24.   lst (append lst (list tmp))
25.   p   i
26.   len 1
27.    )
28. ) ;if
29.       ) ;if
30.     ) ;while
31.     (if (> n 0)
32.       (setq tmp (substr str p len)
33.      tmp (if x
34.     (atoi tmp)
35.     tmp
36.   )
37.      lst (append lst (list tmp))
38.       )
39.     )
40.     lst
41.   )
42.   (defun CompFunc (lst1 lst2 / tmp do flag i n el1 el2 typ1 typ2)
43.     (setq i  0
44.    n  (min (length lst1) (length lst2))
45.    do T
46.     )
47.     (while (and do (<= i n))
48.       (setq el1  (nth i lst1)
49.      typ1 (type el1)
50.      el2  (nth i lst2)
51.      typ2 (type el2)
52.      i (1+ i)
53.       )
54.       (if (= typ1 typ2)
55. (setq do   (= el1 el2)
56.        flag (eval (list func el1 el2))
57. ) ;else
58. (setq do   nil
59.        flag (or (= typ1 'nil) (= typ2 'STR))
60. )
61.       ) ;if
62.     ) ;while
63.     flag
64.   )
65.   (setq tmp (mapcar 'Split lst)
66. tmp (vl-sort-i tmp 'CompFunc)
67. tmp (mapcar '(lambda (x) (nth x lst)) tmp)
68.   )
69.   tmp
70. )

(defun TBC:Sort (lst func / Split CompFunc tmp)   (defun Split (str / tmp i n p x len lst1 lst)     (setq tmp  (vl-string->list str)    lst1 (mapcar '(lambda (x) (and (<= 48 x) (<= x 57))) tmp)    n    (length lst1)    i    0     )     (while (< i n)       (setq x (nth i lst1)      i (1+ i)       )       (if (= i 1) (setq p 1        len 1 ) ;else (if (= x (nth (- i 2) lst1))    (setq len (1+ len)) ;else    (setq tmp (substr str p len)   tmp (if x         tmp         (atoi tmp)       )   lst (append lst (list tmp))   p   i   len 1    ) ) ;if       ) ;if     ) ;while     (if (> n 0)       (setq tmp (substr str p len)      tmp (if x     (atoi tmp)     tmp   )      lst (append lst (list tmp))       )     )     lst   )   (defun CompFunc (lst1 lst2 / tmp do flag i n el1 el2 typ1 typ2)     (setq i  0    n  (min (length lst1) (length lst2))    do T     )     (while (and do (<= i n))       (setq el1  (nth i lst1)      typ1 (type el1)      el2  (nth i lst2)      typ2 (type el2)      i (1+ i)       )       (if (= typ1 typ2) (setq do   (= el1 el2)        flag (eval (list func el1 el2)) ) ;else (setq do   nil        flag (or (= typ1 'nil) (= typ2 'STR)) )       ) ;if     ) ;while     flag   )   (setq tmp (mapcar 'Split lst) tmp (vl-sort-i tmp 'CompFunc) tmp (mapcar '(lambda (x) (nth x lst)) tmp)   )   tmp )

mmmmmm

这种情况一般只需要三步就行

1：将每个字符按照”字母-数字“分解成表（数字为字符串，防止前面有0）

2：然后根据数字所在的表位置进行排序，排序前先把排序的数字字符串转成数字

3：根据排序的标号重新排列字母-数字表，并恢复成原始字符串表

龙龙仔

carrot1983发表于2009-11-19 16:36:00我印象有看过狂刀的一个贴子有字符串排序的代码。印象也测试了一下好像不太对。。。各位讨论一下，提供个思路之类的。。。

;;我印象中...

;;含數字的字串排序－－－－－原創 by 無痕(狂刀的前身).2004.6

不知他程序還在嗎?

狂刀lxx

我印象中，自从用了正则表达式，我把以前文字处理的程序都删了，身体倍儿棒，吃嘛嘛香
不过翻了下箱底，发现一个。对你说的情况如有bug，请自行调整

2. ;|
3. ;;;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
4. (strsort strlst) = 含数字后缀的字符串排序－v1.1－－－－－－－－－－－－－－－－－－－lxx.2004.6 ok!
5. 测试:
6. (setq lst '("w45""w-3""s""z1""z-4""df676""df24""bff4""bff""bff2""A34""A""A2""A5""bff-5"))
7. (strsort lst) ->("A" "A2" "A5" "A34" "bff-5" "bff" "bff2" "bff4" "df24" "df676" "s" "w-3" "w45" "z-4" "z1") ok!
8. |;
9. (defun strsort (strlst)
10.   (defun strbrk (str / i st1 n)
11.     (setq i 0)
12.     (while (not(or(= "" (setq st1(substr str(setq i(1+ i)))))(setq n(distof st1)))))
13.     (list (substr str 1 (1- i)) (if n n 0) str)
14.   )
15.   (defun x-sort (lst do n)
16.     (vl-sort lst '(lambda(x y)((eval do)(nth n x)(nth n y))))
17.   )
18.   (mapcar 'last (x-sort (x-sort (mapcar 'strbrk strlst) '< 1) '< 0))
19. )

;| ;;;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ (strsort strlst) = 含数字后缀的字符串排序－v1.1－－－－－－－－－－－－－－－－－－－lxx.2004.6 ok! 测试: (setq lst '("w45""w-3""s""z1""z-4""df676""df24""bff4""bff""bff2""A34""A""A2""A5""bff-5")) (strsort lst) ->("A" "A2" "A5" "A34" "bff-5" "bff" "bff2" "bff4" "df24" "df676" "s" "w-3" "w45" "z-4" "z1") ok! |; (defun strsort (strlst)   (defun strbrk (str / i st1 n)     (setq i 0)     (while (not(or(= "" (setq st1(substr str(setq i(1+ i)))))(setq n(distof st1)))))     (list (substr str 1 (1- i)) (if n n 0) str)   )   (defun x-sort (lst do n)     (vl-sort lst '(lambda(x y)((eval do)(nth n x)(nth n y))))   )   (mapcar 'last (x-sort (x-sort (mapcar 'strbrk strlst) '< 1) '< 0)) )

carrot1983

谢谢各位。

学习一下。