[已解决] 大佬救命。正则匹配后 对像.replace不执行，数量报错哪里有问... [复制链接]

Dim a(1000)

Set re = New regexp

re.[global] = true

stra = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.+-{【】}我饿人他他元ui发的是啊个好就看了； 去饿哥哥个付款贷款第三大陆ghgjk发达范德萨范德萨发花港饭店讲话稿客家话‘离开家jlpzj.net范德萨额文如其人亚特尔i有天然委托热我也u一天日u一日u镉污染犹太人各位i人员图有人太热额特务太热额特务太热额热问题太热耳热我也543 jlpzj.net范德萨好尴尬表达式地方撒瓦尔塔阿骨打好热一个好的施工方很多事好换个杰华特认为他惹我很过分就好好师傅大哥就有热就业巨化股份’"

h = len(stra)-2
TracePrint h

For i = 0 to h
a(i) = mid(stra, i + 1, 1)
TracePrint a(i)
Next




strb="vfdsafdsadsafdsa"

For i = 0 to h
re.pattern = a(i)
TracePrint a(i)
strb = re.Replace(strb, "") //问题行。。好像replace没执行， traceprint a(i) 中间输出的时候插入一条 此行的代码的报错， 报错内容是“”错误的数量词
Next

TracePrint strb//strb 没有输出。