vb.net正则表达式自定义函数应用示例

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