（XD::String:SplitbyNum）分割字符串的字母和数字

marting · 发表于 2018-12-16 12:53:23

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

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

×

(defun XD::String:SplitbyNum (str / lst test rslt num tmp)
(setq lst (vl-string->list str)
test (chr (car lst))
)
(if (< 47 (car lst) 58)
(setq num T)
)
(while (setq lst (cdr lst))
(if num
(cond ((= 46 (car lst))
(if (and (cadr lst)
(setq tmp (strcat "0." (chr (cadr lst))))
(numberp (read tmp))
)
(setq rslt (cons (read test) rslt)
test tmp
lst (cdr lst)
)
(setq rslt (cons (read test) rslt)
test "."
num nil
)
)
)
((< 47 (car lst) 58)
(setq test (strcat test (chr (car lst))))
)
(t
(setq rslt (cons (read test) rslt)
test (chr (car lst))
num nil
)
)
)
(if (< 47 (car lst) 58)
(setq rslt (cons test rslt)
test (chr (car lst))
num T
)
(setq test (strcat test (chr (car lst))))
)
)
)
(if num
(setq rslt (cons (read test) rslt))
(setq rslt (cons test rslt))
)
(reverse rslt)
)

(defun XD::String:SplitbyNum (str / lst test rslt num tmp) 
  (setq        lst  (vl-string->list str) 
        test (chr (car lst)) 
  ) 
  (if (< 47 (car lst) 58) 
    (setq num T) 
  ) 
  (while (setq lst (cdr lst)) 
    (if        num 
      (cond ((= 46 (car lst)) 
             (if (and (cadr lst) 
                      (setq tmp (strcat "0." (chr (cadr lst)))) 
                      (numberp (read tmp)) 
                 ) 
               (setq rslt (cons (read test) rslt) 
                     test tmp 
                     lst  (cdr lst) 
               ) 
               (setq rslt (cons (read test) rslt) 
                     test "." 
                     num  nil 
               ) 
             ) 
            ) 
            ((< 47 (car lst) 58) 
             (setq test (strcat test (chr (car lst)))) 
            ) 
            (t 
             (setq rslt        (cons (read test) rslt) 
                   test        (chr (car lst)) 
                   num        nil 
             ) 
            ) 
      ) 
      (if (< 47 (car lst) 58) 
        (setq rslt (cons test rslt) 
              test (chr (car lst)) 
              num  T 
        ) 
        (setq test (strcat test (chr (car lst)))) 
      ) 
    ) 
  ) 
  (if num 
    (setq rslt (cons (read test) rslt)) 
    (setq rslt (cons test rslt)) 
  ) 
  (reverse rslt) 
)

命令: (mapcar '(lambda(x)(xd::string:splitbynum x)) '("TF-NT5-1" "TF-NT5-2"
"TF-NT5-11" "TF-NT6-1" "TF-NT6-2" "TF-NT8-1"))
(("TF-NT" 5 "-" 1) ("TF-NT" 5 "-" 2) ("TF-NT" 5 "-" 11) ("TF-NT" 6 "-" 1)
("TF-NT" 6 "-" 2) ("TF-NT" 8 "-" 1))

王鹏_pBZlo · 发表于 2019-4-26 17:15:36

本帖最后由王鹏_pBZlo 于 2019-4-28 16:03 编辑

;;分割中文,数字,字母及其它字符;;字符"."只在前后均为数字时才被认为是小数点,其余均认为是字母
(defun split_str(ostr / typ ctyp cstr addstr elist) ;;中文,数字,字母及其它字符分离
 (setq elist nil cstr "")
 (while (/= "" ostr)
 (cond ((> (ascii ostr) 128)(setq typ 1 addstr (substr ostr 1 2) ostr (substr ostr 3)))
 ((< 47 (ascii ostr) 58) (setq typ 2 addstr (substr ostr 1 1) ostr (substr ostr 2)))
 ((= (ascii ostr) 46) (setq typ 3 addstr (substr ostr 1 1) ostr (substr ostr 2)))
 (t (setq typ 4 addstr (substr ostr 1 1) ostr (substr ostr 2)))
 )
 (if (= typ 3) (if (and (= ctyp 2) (< 47 (ascii ostr) 58)) (setq typ 2) (setq typ 4)))
 (if (/= typ ctyp)
 (progn (if (/= "" cstr) (setq elist (append elist (list cstr)))) (setq cstr addstr ctyp typ))
 (setq cstr (strcat cstr addstr))
 )
 ) (append elist (list cstr))
)

konglong604 · 发表于 2018-12-17 09:50:53

谢谢分享的实用程序

aisong220 · 发表于 2018-12-17 10:06:43

yoyoho · 发表于 2019-1-18 00:35:06

谢谢分享的实用函数!!!!!

m0033m · 发表于 2019-4-23 15:40:37

学习“”“”“”“：：：：：：：：：：：：

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

[字符串] （XD::String:SplitbyNum）分割字符串的字母和数字

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