拆分字符串

kkq0305 · 发表于 2021-10-31 17:51

(defun str2lst (str / nstr)
(if (= str "")
nil
(cond ((> 216 (ascii str) 175)
(cons (substr str 1 2)
(str2lst (substr str 3))
)
)
((wcmatch str "#*#`.#*")
(cons
(setq nstr
(strcat
(setq
nstr (rtos (atof str))
)
(if
(= "0"
(substr
str
(1+ (strlen nstr))
1
)
)
"0"
""
)
)
)
(str2lst
(substr str (1+ (strlen nstr)))
)
)
)
((wcmatch str "#*")
(cons
(setq
nstr (itoa (atoi str))
)
(str2lst
(substr str (1+ (strlen nstr)))
)
)
)
((wcmatch str "@*")
(cons (substr str 1 1)
(str2lst (substr str 2))
)
)
(t
(cons (substr str 1 1)
(str2lst (substr str 2))
)
)
)
)
)

(defun str2lst (str / nstr) 
       (if (= str "") 
         nil 
         (cond ((> 216 (ascii str) 175) 
          (cons  (substr str 1 2) 
          (str2lst (substr str 3)) 
          ) 
         ) 
         ((wcmatch str "#*#`.#*") 
          (cons 
            (setq nstr 
             (strcat 
               (setq 
                 nstr (rtos (atof str)) 
               ) 
               (if 
                 (= "0" 
              (substr 
                str 
                (1+ (strlen nstr)) 
                1 
              ) 
                 ) 
            "0" 
            "" 
               ) 
             ) 
            ) 
            (str2lst 
              (substr str (1+ (strlen nstr))) 
            ) 
          ) 
         ) 
         ((wcmatch str "#*") 
          (cons 
            (setq 
              nstr (itoa (atoi str)) 
            ) 
            (str2lst 
              (substr str (1+ (strlen nstr))) 
            ) 
          ) 
         ) 
         ((wcmatch str "@*") 
          (cons  (substr str 1 1) 
          (str2lst (substr str 2)) 
          ) 
         ) 
         (t 
          (cons  (substr str 1 1) 
          (str2lst (substr str 2)) 
          ) 
         ) 
         ) 
       ) 
           )

(STR2LST "k1y12.30人2+1")---》
("k" "1" "y" "12.30" "人" "2" "+" "1")

kkq0305 · 发表于 2021-11-1 18:08

轮回发表于 2021-11-1 09:41
测试了，cad2012是可以的，

cad2008，UNITMODE设置为0，也不行，

不知道要不你用6楼的这个是随手写的

springwillow · 发表于 2021-11-1 13:21

字符串还是用正则表达式吧，处理起来比较方便。

(xxexp "[\\d|\\.]+|\\D+" "few0.25sdi03Ep检" nil)
("few" "0.25" "sdi" "03" "Ep检")
(xxexp "[\\d|\\.]+|\\D+" "k1y12.30人2+1" nil)
("k" "1" "y" "12.30" "人" "2" "+" "1")
(defun xxexp (pat str key / end)
;(princ "\n ★"一刀屠文"(xxexp)(xxexpr) = 对字符串进行正则表达式测试及替换-by 梁雄啸.2007.7")
(vl-load-com)
(if (not *xxvbsexp)
(setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))
)
(vlax-put *xxvbsexp 'Pattern pat)
(if (not key)(setq key ""))
(setq key (strcase key))
(setq keys '(("I" "IgnoreCase")("G" "Global")("M" "Multiline")))
(mapcar '(lambda(x)
(if (wcmatch key (strcat "*" (car x) "*"))
(vlax-put *xxvbsexp (read(cadr x)) 0)
(vlax-put *xxvbsexp (read(cadr x)) -1)
))
keys)
(setq matches (vlax-invoke *xxvbsexp 'Execute str))
(vlax-for x matches (setq end (cons (vla-get-value x) end)))
(reverse end)
)

(xxexp "[\\d|\\.]+|\\D+" "few0.25sdi03Ep检" nil) 
("few" "0.25" "sdi" "03" "Ep检") 
(xxexp "[\\d|\\.]+|\\D+" "k1y12.30人2+1" nil) 
("k" "1" "y" "12.30" "人" "2" "+" "1") 
(defun xxexp (pat str key / end) 
  ;(princ "\n ★"一刀屠文"(xxexp)(xxexpr) = 对字符串进行正则表达式测试及替换-by 梁雄啸.2007.7") 
  (vl-load-com) 
  (if (not *xxvbsexp) 
    (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp")) 
  ) 
  (vlax-put *xxvbsexp 'Pattern pat) 
  (if (not key)(setq key ""))   
  (setq key (strcase key)) 
  (setq keys '(("I"  "IgnoreCase")("G"  "Global")("M"  "Multiline"))) 
  (mapcar '(lambda(x) 
             (if (wcmatch key (strcat "*" (car x) "*")) 
               (vlax-put *xxvbsexp (read(cadr x)) 0) 
               (vlax-put *xxvbsexp (read(cadr x)) -1) 
               )) 
          keys) 
  (setq matches (vlax-invoke *xxvbsexp 'Execute str)) 
  (vlax-for x matches (setq end (cons (vla-get-value x) end))) 
  (reverse end) 
)

轮回 · 发表于 2021-10-31 19:51

(STR2LST "k1y12.30人2+1")
("k" "1.00000" "人" "2" "+" "1")
为什么我生成的是这样的？？？

kkq0305 · 发表于 2021-10-31 20:03

轮回发表于 2021-10-31 19:51
(STR2LST "k1y12.30人2+1")
("k" "1.00000" "人" "2" "+" "1")
为什么我生成的是这样的？？？

unitmode系统变量设置成0

ssyfeng · 发表于 2021-11-1 09:21

(STR2LST "few0.25sdi03Ep检")
返回：("f" "e" "w" "0" "." "25" "s" "d" "i" "3" "3" "E" "p" "检")

轮回 · 发表于 2021-11-1 09:41

kkq0305 发表于 2021-10-31 20:03
unitmode系统变量设置成0

测试了，cad2012是可以的，

cad2008，UNITMODE设置为0，也不行，

tigcat · 发表于 2021-11-6 18:51

springwillow 发表于 2021-11-1 13:21
字符串还是用正则表达式吧，处理起来比较方便。

end变量可能要改个名字,否则在一些cad版本中提示有冲突

vladimir · 发表于 2022-2-2 12:07

非常好的代码，正需要的

664571221 · 发表于 2022-2-3 15:36

springwillow 发表于 2021-11-1 13:21
字符串还是用正则表达式吧，处理起来比较方便。

你好大神我一直用你的孤帆工具箱可是目前只支持到2019，不知道现在是否支持2022了，如果有了话，麻烦发一个我可以吗，在此万分感谢，祝你新年快乐。我的邮箱664571221@qq.com

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

[函数] 拆分字符串

评分