Function TestRegExp(myPattern As String, myString As String)
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches  As MatchCollection
Dim RetStr As String
Set objRegExp = New RegExp
objRegExp.Pattern = myPattern
objRegExp.IgnoreCase = True
objRegExp.Global = True
If (objRegExp.Test(myString) = True) Then
Set colMatches = objRegExp.Execute(myString)
For Each objMatch In colMatches
——————————————————
怎么在这个位置加入一个循环，把
objmatch.value返回的值写入一个数组呢？
——————————————————
Next
Else
RetStr = "String Matching Failed"
End If
TestRegExp = RetStr
End Function

Private Sub Command1_Click()
For i = 0 To UBound(TestRegExp("is.", "IS1 is2 IS3 is4")) - 1
MsgBox TestRegExp("is.", "IS1 is2 IS3 is4")(i)
Next
End Sub
Function TestRegExp(myPattern As String, myString As String)

Dim reVal As String
reVal = ""
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches  As MatchCollection
Dim RetStr As String
Set objRegExp = New RegExp
objRegExp.Pattern = myPattern
objRegExp.IgnoreCase = True
objRegExp.Global = True
If (objRegExp.Test(myString) = True) Then
Set colMatches = objRegExp.Execute(myString)
For Each objMatch In colMatches
reVal = reVal & objMatch.Value & vbCrLf
Next
Else
RetStr = "String Matching Failed"
End If

tt = Split(reVal, vbCrLf)
TestRegExp = tt
End Function

學習

基本原理就是把寻找到的匹配用特殊符号合成字符串，想要数组就再用那个特殊符号进行分割。

或者是定义一个大的数组，把每个符合条件的匹配赋值给数组，这样做的缺点是数组维数问题。定义小了不行，定义大了浪费，如果根据匹配结果定义数组的维数，可能需要两次例遍结果集合。