特殊字符处理(用于文字替换等)

自贡黄明儒

;;[功能] 特殊字符处理(用于文字替换等)
;;示例(ACET-STR-ESC-WILDCARDS1 "#a@b");"`#a`@b"
;;注:没有安装ET时用,安装ET后用(ACET-STR-ESC-WILDCARDS "#a@b")
;;http://bbs.mjtd.com/forum.php?mo ... d=608841&page=2中定义XD::String:Replace
(defun ACET-STR-ESC-WILDCARDS1 (A / X LST)
  ;;(ACET-STR-REPLACE "B" "2" "ssABCsBs");"ssA2Cs2s"
  (defun ACET-STR-REPLACE1 (o n s)
    (XD::String:Replace (strcat "[" o "]") s n "I")
  )
  (SETQ LST '("#" "@" "." "*" "?" "~" "[" "]" ","))
  (foreach X LST
    (SETQ A (ACET-STR-REPLACE1 X (STRCAT "`" X) A))
  )
  A
)

print1985

http://bbs.mjtd.com/forum.php?mo ... d=608841&page=2
打不开
能否直接贴出XD::String:Replace？
谢谢黄兄

print1985

找到了
;; 用正则表达式替换字符 by 梁雄啸.2007.7
(defun XD::String:Replace (pat str nstr key / end)  
  (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)
  (vlax-invoke *xxvbsexp 'replace str nstr)
)

664571221

print1985 发表于 2013-11-26 22:22
找到了
;; 用正则表达式替换字符 by 梁雄啸.2007.7
(defun XD::String:Replace (pat str nstr key / end) ...

怎么用啊？？？？？？

oistre

大神牛牛牛牛！

1028695446

;函数名称:        XD::String:Replace
;调用格式:        (XD::String:Replace old new str)
;参数说明:        old ---- 旧字符串
;new ---- 新字符串
;str --- 字符串
;返回值:        字符串
;函数简介:        字符串替换
;函数来源:        原创
;函数作者:        marting
(defun XD::String:Replace (oldtext newtext textstring / i n)
  (setq n (strlen newtext))
  (while (setq i (vl-string-search oldtext textstring i))
    (setq textstring
                        (vl-string-subst newtext oldtext textstring i)
                        i (+ i n)
    )
  )
  textstring
)