VBS 正则表达式 把多个点转换成一个点

用PHP写正则很简单得很 /\.+/ 就可以了

可是VBS就不行了，只能"[\.]+"

不知道是什么原因，请懂行的大神指点

• '要求：字符串中有很多个点（点的个数不固定，时多时少），想把它们replace成一个点

• dim str，outstr

• str = "99............."

• outstr = ReplaceTest(str,"[\.]+",".")

• //这个"[\.]+"的表达式是符合我的要求的，我就是想知道为什么 "\.+"不行

• Function ReplaceTest(str,patrn, replStr)

• Dim regEx, str1 ' 建立变量。

• Set regEx = New RegExp ' 建立正则表达式。

• regEx.Pattern = patrn ' 设置模式。

• regEx.IgnoreCase = True ' 设置是否区分大小写。

• ReplaceTest = regEx.Replace(str, replStr) ' 作替换。

• End Function