vb.net正则表达式自定义函数应用示例为原创作品，已经在VS2019平台上运行成功，添加了详细的注释说明，仔细阅读可以明白其功能。
Imports System.Text.RegularExpressions
Public Class
''' <summary>
''' 返回符合规则的字符串的数组，在调用处必须设置一个变体变量（dim arr），接 受数组
''' </summary>
''' <param name="str要处理的字符串"></param>
''' <param name="str处理规则"></param>
''' <returns></returns>
Public Function 返回数组(str要处理的字符串 As String, str处理规则 As String)
Dim arr()
Dim i As Long = 0
Dim match As
Dim Counter As Long = .Matches(str要处理的字符串, str处理规 则).Count - 1
ReDim arr(Counter)
For Each match In .Matches(str要处理的字符串, str处理规则)
arr(i) = .Escape(match.Value)
'Debug.Print(arr(i)) '该语句以注释的方式保留，以便调试时，查看调用 的结果。
i += 1
Next
Return arr
End Function
''' <summary>
'''该函数调用了“返回数组”“RemoveAllNull”两个自定义子函数和“Join”一个 标准函数
''' </summary>
''' <param name="str要处理的字符串"></param>
''' <param name="str处理规则">处理规则为需要保留的字符串</param> ''' <returns>返回需要保留的字符串</returns>
Public Function 返回符合要求的字符串(str要处理的字符串 As String, str处理规 则 As String)
Dim arr
arr = 返回数组(str要处理的字符串， str处理规则)
Return RemoveAllNull(Join(arr)) ' arr列表中的所有项目都串联在一起，中间 没有分隔符
End Function
''' <summary>
''' 删除字符串的所有空格
''' </summary>
''' <param name="str要处理的字符串"></param> ''' <returns>将字符串中的空格删除掉</returns>
Public Function RemoveAllNull(str要处理的字符串 As String)
Dim strPattern As String =
Return .Replace(str要处理的字符串, strPattern, )
End Function
''' <summary>
''' 查找符合规则的子字符串，并用指定的字符串替换
''' </summary>
''' <param name="Input">父字符串</param>
''' <param name="pattern">查找规则</param>
''' <param name="replacement">用于替换的字符串</param> ''' <returns>返回替换后的字符串</returns>
Public Function ReturnReplaceStringWithSubString(Input As String, pattern As String, replacement As String)
Dim result As String = .Replace(Input, pattern, replacement)
Return result
End Function
End Class