中文数字排序。

vitalgg

感谢  kkq0305 提供思路。
http://bbs.mjtd.com/thread-187438-1-1.html

在 CAD 中已安装 @lisp 的 ，请先运行 (@:updatelib) 更新函数库。

1. (defun string:sort-by-number (lst-str)
   
2.   "按数字排序字符串\n在夹杂数字时，如果数字前后的字符串相同，按数字大小排序"
   
3.   "排序后的字符串表"
   
4.   "(string:sort-by-number '(\"a5\" \"a1\"  \"a8\"  \"b2\"  \"b1\"  \"a110\"  \"a13\"))"
   
5.   (vl-sort lst-str
   
6.      (quote (lambda (x y)
   
7.         (apply (quote or)
   
8.          (mapcar (quote (lambda (a b)
   
9.               (cond ((and (string:intp a)
   
10.               (string:intp b))
    
11.                (< (atoi a)
    
12.                   (atoi b)))
    
13.               ((and (string:realp a)
    
14.               (string:realp b))
    
15.                (< (atof a)
    
16.                   (atof b)))
    
17.               ((and (string:hannumberp a)
    
18.               (string:hannumberp b))
    
19.                (< (string:hannumber2number a)
    
20.                   (string:hannumber2number b)))
    
21.               (t (< a b)))))
    
22.            (string:auto-split x)
    
23.            (string:auto-split y)))))))

(defun string:sort-by-number (lst-str)<br />   "按数字排序字符串\n在夹杂数字时，如果数字前后的字符串相同，按数字大小排序"<br />   "排序后的字符串表"<br />   "(string:sort-by-number '(\"a5\" \"a1\"  \"a8\"  \"b2\"  \"b1\"  \"a110\"  \"a13\"))"<br />   (vl-sort lst-str<br />      (quote (lambda (x y)<br />         (apply (quote or)<br />          (mapcar (quote (lambda (a b)<br />               (cond ((and (string:intp a)<br />               (string:intp b))<br />                (< (atoi a)<br />                   (atoi b)))<br />               ((and (string:realp a)<br />               (string:realp b))<br />                (< (atof a)<br />                   (atof b)))<br />               ((and (string:hannumberp a)<br />               (string:hannumberp b))<br />                (< (string:hannumber2number a)<br />                   (string:hannumber2number b)))<br />               (t (< a b)))))<br />            (string:auto-split x)<br />            (string:auto-split y)))))))

所有含有 : 冒号的函数，均为 @lisp 函数库中定义的函数。

全部源码：
https://gitee.com/atlisp/atlisp-lib

飞雪神光

这个看起来真不错