Function 正则表达式匹配并返回数组(Text As String, regextxt As String) As String()
Dim arr() As String = {}
Dim arrtemp As Text.RegularExpressions.MatchCollection = New Text.RegularExpressions.Regex(regextxt).Matches(Text)
For i = 0 To arrtemp.Count - 1
ReDim Preserve arr(i)
arr(i) = arrtemp(i).Value
Next
Return arr
End Function
Function 正则表达式匹配并返回第一个结果(Text As String, regextxt As String) As String
Return New Text.RegularExpressions.Regex(regextxt).Match(Text).Value
End Function
Function 判断有没有存在匹配的结果(Text As String, regextxt As String) As Boolean
Return New Text.RegularExpressions.Regex(regextxt).IsMatch(Text)
End Function