字符串处理

流_星

大哥们，有这样一个字符串DC123456-15-11,或者DC123456-15-3，取DC123456-15，如何编写谢谢

自贡黄明儒

http://bbs.mjtd.com/forum.php?mo ... amp;_dsign=c7fd6a01

流_星

自贡黄明儒 发表于 2022-6-24 10:39
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=107150&highlight=%BC%AF%D6%D0&_dsign=c7fd6a01

好资料，多谢多谢

xyp1964

1. ;; (abc "DC123456-15-11" "-15")
   
2. (defun abc (str sub / n)
   
3.   (if (setq n (vl-string-search sub str))
   
4.     (substr str 1 (+ n (strlen sub)))
   
5.   )
   
6. )

;; (abc "DC123456-15-11" "-15")<br /> (defun abc (str sub / n)<br />   (if (setq n (vl-string-search sub str))<br />     (substr str 1 (+ n (strlen sub)))<br />   )<br /> )

流_星

xyp1964 发表于 2022-6-24 22:23

大哥请教一下，第一条是查询“”“-”所在的位置，第二条是所在位置加一对吧，那-15是动态的，是单数有可能也是双数，是不是就不能用这个函数了，谢谢

xiang19751218

;(XD::String:RegExpS ".+(?=-)" "DC123456-15-3" "")->("DC123456-15")
;(XD::String:RegExpS ".+(?=-)" "DC123456-12-3" "")->("DC123456-12")
;(XD::String:RegExpS ".+(?=-)" "DC123456-2-3" "")->("DC123456-2")
(defun XD::String:RegExpS (pat str key / end keys matches x)
  (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)
)