vb Dim objRegExp As RegExp 用户类型没有定义？

Function Regular(ByVal MyString As String, ByVal MyPattern As String)
On Error Resume Next
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches As MatchCollection
Dim RetStr As String
Dim i As Integer

Set objRegExp = New RegExp

objRegExp.Pattern = MyPattern

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.MultiLine = True

If (objRegExp.Test(MyString) = True) Then
Set colMatches = objRegExp.Execute(MyString) '' Execute search.
For Each objMatch In colMatches '' Iterate Matches collection.
RetStr = RetStr & "@" & objMatch.FirstIndex & "=" & objMatch.Value & vbCrLf
i = 1
For Each objsubmatch In objMatch.SubMatches
RetStr = RetStr & "#" & objsubmatch
i = i + 1
Next
Next
Regular = RetStr

Else
TestRegExp = "Failed"
End If
End Function

应该是没有添加相应的引用
RegExp 这个东西是从那个部件里得到的，你就要引用那个部件。

厂址 再看看别人怎么说的。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息