非纯数字的文本排序函数

zhengzhimin

XDRX API 2020.06.09日更新哪里可以下?刚好要用到里面的一个排序函数xdrx-string-logical<
在一个帖子上有看到
  建议：增加函数xdrx_assoclist_sort1、xdrx_assoclist_sort2索引按字母顺序排序的功能
http://bbs.xdcad.net/thread-726029-1-1.html
(出处: 晓东CAD家园-论坛)

XDSoft

最新版本的API，都包含了以前版本的函数

XDSoft

Command: (xdrx_string_logical< "File10.txt" "File2.txt")
nil

Command: (xdrx_string_logical> "File10.txt" "File2.txt")
T

Command: (xdrx_string_logical< "File2.txt" "File10.txt")
T

用于按逻辑顺序比较两个字符串。这个函数通常用于排序文件列表，以确保文件按照人类理解的逻辑顺序进行排列，而不是简单的字典顺序。

XDSoft

1. (defun xd::string:sortlist (strl)
   
2.   (vl-sort strl '(lambda (x y) (xdrx_string_logical< x y)))
   
3. )
   

(defun xd::string:sortlist (strl)<br />   (vl-sort strl '(lambda (x y) (xdrx_string_logical< x y)))<br /> )<br />

(xd::string:sortlist (list "file100.txt" "file2.txt" "file30.txt" "file50.txt"))
_$
("file2.txt" "file30.txt" "file50.txt" "file100.txt")

XDSoft

排序字符串关联表

1. (defun xd::string:assocsortlist (strl)
   
2.   (vl-sort strl '(lambda (x y) (xdrx_string_logical< (car x)(car y))))
   
3. )
   

(defun xd::string:assocsortlist (strl)<br />   (vl-sort strl '(lambda (x y) (xdrx_string_logical< (car x)(car y))))<br /> )<br />

XD::STRING:ASSOCSORTLIST
_$

(("file100.txt" (1 2 3)) ("file0.txt" (1 2 3)) ("file20.txt" (1 2 3)) ("file300.txt" (1 2 3)))
(("file0.txt" (1 2 3)) ("file20.txt" (1 2 3)) ("file100.txt" (1 2 3)) ("file300.txt" (1 2 3)))
_$