自定义ACET-STR-REPLACE

自贡黄明儒

;;见http://bbs.mjtd.com/forum.php?mo ... d=608841&page=2
;;(ACET-STR-REPLACE "B" "2" "ssABCsBs");"ssA2Cs2s"
(defun ACET-STR-REPLACE1 (o n s)  
  (XD::String:Replace (strcat "[" o "]") s n "I")
)
;;(ACET-STR-TO-LIST "B" "ssABCsBs");("ssA" "Cs" "s")
(defun ACET-STR-TO-LIST1 (d str)
  (XD::String:RegExpS (strcat "[^" d "]+") str "I")
)
;;(ACET-STR-WCMATCH "ssABCsBs" "*c*");T
(defun ACET-STR-WCMATCH1 (str f)
  (if (XD::String:RegExpS (strcat "[" f "]+") str "") T)
)