[求助]：我的思路,你来看看

aliu22

我有一行字符串,中间由一个 "-"隔开,如 12-11-23,我想通过鼠标选择这行字符串,程序会自动选择最大的那个数"23",然后付值出去,谁能给我个提示吗? 我认为这样子,通过"-"间隔符区分为三个数字,然后比较大小,具体如何?谢谢

cy956

字串－》表（函数明经通道有）然后就好办了
先(setq list(mapcar 'atof list))再(apply 'max list)

yxpxa

我给你编好了，你试试。
(defun T-str(tt / k tr_k nn)  
(setq nn (strlen tt) k 0 tr_k "")
(while (<= k nn)
        (setq tr_kn (substr tt (setq k (+ k 1)) 1))
        (if (or (= tr_kn "-")(= tr_kn "－"))
        (setq tr_k (strcat tr_k " "))
        (setq tr_k (strcat tr_k tr_kn)))
)(eval (cons 'max (read (strcat "(" tr_k ")"))))
)
功能加强了一下全角和半角的"-"分隔符都支持
这是一个子程序，你自己编写调用程序吧，应该简单了。
调用(t-str "45-65-77")   返回77

aliu22

太谢谢了