[求助]：文字排序！！

yinzhun22 · 发表于 2008-1-22 11:43:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我用find查找到很多相关的文字，提取出来后，希望有个命令可以对他进行排序，先数字，后字母，不分大小写，如01AE2,01AE1,03ATpy1，01ATpy1……
排序后列一列下来
01AE1
01AE2
01ATpy1
03ATpy1

希望高手帮忙啊

coolzhb · 发表于 2008-1-22 13:09:58

用truetable或者文字修改大师试试！

yinzhun22 · 发表于 2008-1-22 14:28:40

最好有lsp啊
感觉比较方便

cy956 · 发表于 2008-1-23 02:47:40

如果有规律，程序写起来就简单些。比如是否前两位一定是数字，或者前2位及3位以后分别按字符排序等等。如果没规律，前面若干位都可能是数字，又要数字优先，就要先判断字符构成，比较麻烦了。

yinzhun22 · 发表于 2008-1-23 08:42:26

有规律,前两位一般是数字，数字以后按字母排序……

期待中，谢谢

AyungerStudio · 发表于 2008-3-11 17:09:25

;;;******************************************
;;; No.10-1 字符串或数字列表排序
;;; (sortList_1 '("BC" "AB" "A1" "BC" "AE"))
;;; 返回:  ("A1" "AB" "AE" "BC")
;;;******************************************
(defun sortList_1 (xList / newList item item1)
  (while (setq item (car xList))
(setq item1 item xList (cdr xList))
(foreach y xList (if (> y item) (setq item y)))
(setq xList (subst item1 item xList))
(if (or (< item (car newList)) (not newList)) (setq newList (cons item newList)))
  );end_while
  (setq newList newList)
);end_defun

; 测试 (sortList_1  '("01AE2" "01AE1" "03ATpy1" "01ATpy1"))
;          ("01AE1" "01AE2" "01ATpy1" "03ATpy1")
;希望对你有用！

hc1975 · 发表于 2008-5-12 08:57:07

很好的程序,谢谢AyungerStudio

雨箭风刀 · 发表于 2008-5-15 12:56:43

何须编程，用这个函数
(acad_strlsort '("01AE2" "01AE1" "03ATpy1" "01ATpy1"))
->("01AE1" "01AE2" "01ATpy1" "03ATpy1")

xyp1964 · 发表于 2008-5-15 13:11:10

[FONT=courier new](vl-sort '("01AE2" "01AE1" "03ATpy1" "01ATpy1") '<)[/FONT]

zgmsl · 发表于 2008-5-19 17:00:28

也来凑热闹，学习学习

账号		自动登录	找回密码
密码			立即注册

[求助]：文字排序！！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子