dyjwyqz5221 发表于 2020-6-8 13:55:40

建议：增加函数xdrx_assoclist_sort1、xdrx_assoclist_sort2索引按字母顺序排序的功能

建议：增加函数xdrx_assoclist_sort1、xdrx_assoclist_sort2索引按字母顺序排序的功能，就像xdrx_string_sort的功能。
如：(setq lst '(("a1" "dfg")("a10" "ddd")("a3" "dfg")("b10" "ddd")("b1" "dfg")))
排序后为：'(("a1" "dfg")("a3" "dfg")("a10" "ddd")("b1" "dfg")("b10" "ddd"))

XDSoft 发表于 2020-6-8 13:55:41

dyjwyqz5221 发表于 2020-6-9 10:09
有些复杂一些的需要用到类似xdrx_string_sort才可以

下载 2020.0609日更新的API，
提供函数 xdrx-string-logical<, xdrx-string-logical> 函数，字符串逻辑比较，考虑字符串中的数字

命令: !lst
(("a1" "dfg") ("a10" "ddd") ("a3" "dfg") ("b10" "ddd") ("b1" "dfg"))

命令: (vl-sort lst '(lambda(x y)(< (car x)(car y))))
(("a1" "dfg") ("a10" "ddd") ("a3" "dfg") ("b1" "dfg") ("b10" "ddd"))

命令: (vl-sort lst '(lambda(x y)(xdrx-string-logical< (car x)(car y))))
(("a1" "dfg") ("a3" "dfg") ("a10" "ddd") ("b1" "dfg") ("b10" "ddd"))

Lisphk 发表于 2020-6-9 09:52:59

直接
命令: (vl-sort lst '(lambda(x y)(< (car x)(car y))))
(("a1" "dfg") ("a10" "ddd") ("a3" "dfg") ("b1" "dfg") ("b10" "ddd"))

不就可以了

dyjwyqz5221 发表于 2020-6-9 10:09:56

Lisphk 发表于 2020-6-9 09:52
直接
命令: (vl-sort lst '(lambda(x y)(< (car x)(car y))))
(("a1" "dfg") ("a10" "ddd") ("a3" "dfg") ...

有些复杂一些的需要用到类似xdrx_string_sort才可以

Lisphk 发表于 2020-6-9 10:27:14

dyjwyqz5221 发表于 2020-6-9 10:09
有些复杂一些的需要用到类似xdrx_string_sort才可以

能举个复杂的例子吗

dyjwyqz5221 发表于 2020-6-10 08:19:49

XDSoft 发表于 2020-6-8 13:55
下载 2020.0609日更新的API，
提供函数 xdrx-string-logical<, xdrx-string-logical> 函数，字符串逻 ...

下载安装了06.09版本后，没有结果呀

命令: (xdrx-string-logical< '(("a1" "dfg") ("a10" "ddd") ("a3" "dfg") ("b10" "ddd") ("b1" "dfg")))
nil
命令: (xdrx-string-logical> '(("a1" "dfg") ("a10" "ddd") ("a3" "dfg") ("b10" "ddd") ("b1" "dfg")))
nil

dyjwyqz5221 发表于 2020-6-10 14:40:31

XDSoft 发表于 2020-6-8 13:55
下载 2020.0609日更新的API，
提供函数 xdrx-string-logical<, xdrx-string-logical> 函数，字符串逻 ...

明白了，{:1_1:}{:1_1:}{:1_1:}{:1_1:}

zhengzhimin 发表于 2024-5-7 09:30:35

20200609更新的API哪里可以下？
页: [1]
查看完整版本: 建议：增加函数xdrx_assoclist_sort1、xdrx_assoclist_sort2索引按字母顺序排序的功能