用法
评论
建议
取 消
确 定
(defun string:regexp-replace (string newstr express key / regex s) "正则表达式替换字串" (setq regex (vlax-create-object "Vbscript.RegExp")) (if (and key (wcmatch key "*g*,*G*")) (vlax-put-property regex "Global" 1) (vlax-put-property regex "Global" 0)) (if (and key (wcmatch key "*i*,*I*")) (vlax-put-property regex "IgnoreCase" 1) (vlax-put-property regex "IgnoreCase" 0)) (if (and key (wcmatch key "*m*,*M*")) (vlax-put-property regex "Multiline" 1) (vlax-put-property regex "Multiline" 0)) (vlax-put-property regex "Pattern" express) (setq s (vlax-invoke-method regex (quote replace) string newstr)) (vlax-release-object regex) s)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号