学-正则表达式替换,为什么按百度上的例子在VB不起作用呢？

[小噤]

【2】正则表达式应用——数字替换
希望把
asdadas123asdasdas456asdasdasd789asdasd
替换为:
asdadas[123]asdasdas[456]asdasdasd[789]asdasd
在查找内容里面输入“([0-9])([0-9])([0-9])”，不含引号
“替换为:”里面输入“[\1\2\3]”，不含引号

以上是百度百科的例子。VB6用CreateObject("vbscript.regexp") 的结果是
asdadas[\1\2\3]asdasdas[\1\2\3]asdasdasd[\1\2\3]asdasd


怎么样才能替换成例子那样呢。

[小噤]

替换用$& 结贴

[无·法]

'此代码由“正则测试工具V1.1.43”自动生成，请直接调用TestReg过程

Private Sub TestReg()
    Dim strData As String
    Dim reg As Object
    strData = "asdadas123asdasdas456asdasdasd789asdasd"
    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = "(\d+)"
    Debug.Print reg.Replace(strData, "[$1]")
End Sub

[小噤]

主要是不知道什么代表匹配到的字符符串本身. 和用什么测试工具并不是多大影响吧...