[分享]一个很好的数字、字母递增程序…完全免费

yinzhun22 · 发表于 2008-1-11 14:18:00

能否把源程序发出来

hicoffee · 发表于 2008-1-11 18:40:00

这样的问题早就讨论过，还要加分？

;;;(strsort strlst) = 含数字后缀的字符串排序－无痕.2004.6 ok!
(defun strsort (strlst)
(defun strbrk (str / i st1 n)
    (setq i 0)
    (while (not(or(= "" (setq st1(substr str(setq i(1+ i)))))(setq n(distof st1)))))
    (list (substr str 1 (1- i)) (if n n 0) str)
)
(defun x-sort (lst do n)
    (vl-sort lst '(lambda(x y)((eval do)(nth n x)(nth n y))))
)
(mapcar 'last (x-sort (x-sort (mapcar 'strbrk strlst) '< 1) '< 0))
)

;(princ (strsort '("C1" "C11" "C12" "C2")))
(princ (strsort '("B1" "b1" "B2" "b2" "B11" "b11")))

kelly_mm · 发表于 2008-1-19 01:22:00

试过了，不能用，参数错误，。。不知何故/

etom999 · 发表于 2008-1-30 11:15:00

能提供LISP程序吗?

etom999 · 发表于 2008-1-31 06:52:00

12楼的:
(while (not(or(= "" (setq st1(substr str(setq i(1+ i)))))(setq n(distof st1)))))
太高深了...

sooma · 发表于 2008-1-31 23:11:00

收到，谢谢

lrd1861 · 发表于 2010-1-30 10:33:00

太好了感谢楼主分享

yoyoho · 发表于 2010-1-30 10:59:00

strsort程序测试o.k.

感谢楼主分享学习!

T_T · 发表于 2011-10-13 00:22:40

谢谢楼主了

注册 · 发表于 2013-1-26 22:18:55

不错，有点意思

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