正则表达式出错了，请老师帮忙看看

wdmzslw · 发表于 2018-7-12 23:21:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tt (/)
(VL-LOAD-COM)
(setq a "12*sqrt(8)+33.5*9*75.5*34")
(regexpr "(?<=(^|\$|\\*))\\d+(?=(\$|\\*|$)" a "$0.0" "")
)
;|;; 用正则表达式替换字符
功能对字符串进行正则表达式替换.
参数:
pat = 同xxexp
str = 被替换字符串
nstr = 替换字符串
key = 同xxexp
返回 :返回替换后的字符串.
|;
(defun RegExpR (pat str nstr key / end)
(VL-LOAD-COM)
(if (not *xxvb**p)
(setq *xxvb**p (vlax-get-or-create-object "VBScript.RegExp"))
)
(vlax-put *xxvb**p '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 *xxvb**p (read (cadr x)) 0)
(vlax-put *xxvb**p (read (cadr x)) -1)
)
)
keys
)
(vlax-invoke *xxvb**p 'replace str nstr)
)

最后在40行，提示发生意外，是什么原因呢？

marting · 发表于 2018-7-12 23:38:46

论坛一模一样的代码，如果有问题，就是你的模式串写的不符合规定了
你去看下开源函数库的 xd::string:regexps , 你试试那个。

marting · 发表于 2018-7-12 23:39:57

VBSCRIPT的正则，不支持 (?<=

newer · 发表于 2018-7-13 00:13:53

用API的xdrx_string_regespr ，支持?<=

(defun c:tt (/)
(setq a "12*sqrt(8)+33.5*9*75.5*34")
(xdrx_string_regexpr "(?<=(^|\$|\\*))\\d+(?=(\$|\\*|$)" a "$0.0")
)
命令: TT
"12.0*sqrt(8.0)+33.5*9.0*75.5*34.0"

wdmzslw · 发表于 2018-7-13 12:27:57

newer 发表于 2018-7-13 00:13
用API的xdrx_string_regespr ，支持?

如果用XD::String:RegExpR函数，该怎样写Pattern呢？

wdmzslw · 发表于 2018-7-13 13:01:18

marting 发表于 2018-7-12 23:39
VBSCRIPT的正则，不支持 (?

如果用XD::String:RegExpR函数，该怎样写Pattern呢？

newer · 发表于 2018-7-13 14:00:18

wdmzslw 发表于 2018-7-13 13:01
如果用XD::String:RegExpR函数，该怎样写Pattern呢？

XD::String:RegExpR 和你那个是一样的，都是用的VBSCRIPT REGEXP对象，也不支持(?<=....)

wdmzslw · 发表于 2018-7-13 22:00:29

marting 发表于 2018-7-12 23:38
论坛一模一样的代码，如果有问题，就是你的模式串写的不符合规定了
你去看下开源函数库的 xd::string:rege ...

marting老师，请您帮我看看，如果用XD::String:RegExpR函数，该怎样写Pattern呢？

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

[求助] 正则表达式出错了，请老师帮忙看看

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评