数字后缀的字符串,按X排序

yuanziyou

Andyhon 发表于 2012-12-23 18:43
另外一个处方:
下载 Lsort.Lsp By Tony Tanzillo
Ref: http://www.theswamp.org/index.php?topic=40302.0 ...

非常感谢!我已经把2个函数揉合了,一个就是g版的排序,另外一个论坛里搜索的正则表达式,完美解决

2. (defun sort (l)
   
3.   (vl-sort l
   
4.            '(lambda (a b / a1 a2 b1 b2)
   
5.               (setq a1 (zzth (car a) "[0-9]")
   
6.                     a2 (zzth (car a) "[^0-9]")
   
7.                     b1 (zzth (car b) "[0-9]")
   
8.                     b2 (zzth (car b) "[^0-9]")
   
9.               )
   
10.               (if (= a1 b1)
    
11.                 (< (atof a2) (atof b2))
    
12.                 (< a1 b1)
    
13.               )
    
14.             )
    
15.   )
    
16. )
    
17. (defun zzth (str gz / regex)
    
18.   (vl-load-com)
    
19.   (setq regex (vlax-create-object "Vbscript.RegExp"))
    
20.   (vlax-put-property regex "IgnoreCase" 0)
    
21.   (vlax-put-property regex "Global" 1)
    
22.   (vlax-put-property regex "Pattern" gz)
    
23.   (setq str (vlax-invoke-method  regex "Replace" str ""))
    
24. )

(defun sort (l)<br />   (vl-sort l<br />            '(lambda (a b / a1 a2 b1 b2)<br />               (setq a1 (zzth (car a) "[0-9]")<br />                     a2 (zzth (car a) "[^0-9]")<br />                     b1 (zzth (car b) "[0-9]")<br />                     b2 (zzth (car b) "[^0-9]")<br />               )<br />               (if (= a1 b1)<br />                 (< (atof a2) (atof b2))<br />                 (< a1 b1)<br />               )<br />             )<br />   )<br /> )<br /> (defun zzth (str gz / regex)<br />   (vl-load-com)<br />   (setq regex (vlax-create-object "Vbscript.RegExp"))<br />   (vlax-put-property regex "IgnoreCase" 0)<br />   (vlax-put-property regex "Global" 1)<br />   (vlax-put-property regex "Pattern" gz)<br />   (setq str (vlax-invoke-method  regex "Replace" str ""))<br /> )

一克拉沙

yuanziyou 发表于 2012-12-25 14:49
非常感谢!我已经把2个函数揉合了,一个就是g版的排序,另外一个论坛里搜索的正则表达式,完美解决

正则表达式，不错的解决方式。赞一个。