Vbscript QTP正则表达式

我对QTP中的正则表达式有问题，无法理解为什么此模式不起作用：

Dim objRegExp
Set objRegExp = New RegExp
                objRegExp.Pattern = Replace(Replace(Replace("Millennium [AUT]", "\", "\\"), "(", "\("), ")", "\)")
                objRegExp.IgnoreCase = True
If objRegExp.Execute("Millennium [AUT]").Count < 1 Then
    Set objRegExp = Nothing
End If

Dim objRegExp
设置objRegExp=newregexp
模式=替换（替换（“Millennium[AUT]”、“\”、“\”、“\”、“\”）、“（”、“\（”）、“\”）））
objRegExp.IgnoreCase=True
如果objRegExp.Execute（“Millennium[AUT]”），则计数<1
设置objRegExp=Nothing
如果结束

---

Method Count返回0值，请有人帮忙。

您的替换链不会更改模式“Millennium[AUT]”，该模式搜索“Millennium”后跟“，”并从“A”、“U”或“T”中找出一个字母。您的输入“Millennium[AUT]”有一个“[”，其中模式预期为“a”、“U”或“T”

因此，在要求解决regexp问题时，请遵循一般规则：至少给出一个示例输入及其预期结果

也许你的意思是：

>> set r = New RegExp
>> r.Pattern = "Millennium \[AUT\]"
>> set mts = r.Execute("Millennium [AUT]")
>> WScript.Echo mts.Count
>>
1

---

我使用此网站验证我的正则表达式：

---

祝你好运！

如果一个VBScripter使用“Javascript正则表达式测试仪”来验证VBScript正则表达式，那么她需要很多运气。