string:sort-by-number 含数字的字符串排序，支持数字，中文数字，大写数字

vitalgg

运行以下代码或将代码放入你的 lsp 文件最前即可使用 。

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br />

函数源码：

1. (defun string:sort-by-number (lst-str)
   
2.   "按数字排序字符串\n在夹杂数字时，如果数字前后的字符串相同，按数字大小排序,支持中文数字"
   
3.   "排序后的字符串表"
   
4.   "(string:sort-by-number '(\"a5\"
   
5.        \"a1\"
   
6.       \"a8\"
   
7.       \"b2\"
   
8.       \"b1\"
   
9.       \"a110\"
   
10.       \"a13\"))"
    
11.   (vl-sort lst-str
    
12.      (function (lambda (x y / n a b lx ly)
    
13.         (setq n 0)
    
14.         (setq lx (string:auto-split x))
    
15.         (setq ly (string:auto-split y))
    
16.         (while(and (< n (length lx))(< n (length ly)) (= (nth n lx)(nth n ly)))
    
17.           (setq n (1+ n)))
    
18.         (setq a (nth n lx)
    
19.         b (nth n ly))
    
20.         (if (and a b)
    
21.       (cond ((and (string:intp a)
    
22.             (string:intp b))
    
23.              (< (atoi a)
    
24.           (atoi b)))
    
25.             ((and (string:realp a)
    
26.             (string:realp b))
    
27.              (< (atof a)
    
28.           (atof b)))
    
29.             ((and (string:hannumberp a)
    
30.             (string:hannumberp b))
    
31.              (< (string:hannumber2number a)
    
32.           (string:hannumber2number b)))
    
33.             (t (< a b))))))
    
34.      ))

(defun string:sort-by-number (lst-str)<br />   "按数字排序字符串\n在夹杂数字时，如果数字前后的字符串相同，按数字大小排序,支持中文数字"<br />   "排序后的字符串表"<br />   "(string:sort-by-number '(\"a5\"<br />        \"a1\"<br />       \"a8\"<br />       \"b2\"<br />       \"b1\"<br />       \"a110\"<br />       \"a13\"))"<br />   (vl-sort lst-str<br />      (function (lambda (x y / n a b lx ly)<br />         (setq n 0)<br />         (setq lx (string:auto-split x))<br />         (setq ly (string:auto-split y))<br />         (while(and (< n (length lx))(< n (length ly)) (= (nth n lx)(nth n ly)))<br />           (setq n (1+ n)))<br />         (setq a (nth n lx)<br />         b (nth n ly))<br />         (if (and 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 />      ))

更多函数请至 @lisp函数库
https://gitee.com/atlisp/atlisp-lib

wangsr

请教一下，用怎么命令用呢，能说细点吗谢谢

vitalgg

wangsr 发表于 2023-12-6 12:09
请教一下，用怎么命令用呢，能说细点吗谢谢

直接使用：

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
2. (string:sort-by-number 你需要排序的字符串列表)

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> (string:sort-by-number 你需要排序的字符串列表)

在函数定义中使用

1. (defun foobar (lst)
   
2.   (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
3. (string:sort-by-number lst)
   
4. )

(defun foobar (lst)<br />   (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> (string:sort-by-number lst)<br /> )