简单查找第一个匹配值

Public Function getFirstReg(ByVal searchStr As String, ByVal regStr As String) As String
    Try
        Dim r As New Regex(regStr)
        Dim m As Match = r.Match(searchStr)
        If m.Success Then
            Return m.Value
        Else
            Return ""
        End If
    Catch ex As Exception
        Return ""
    End Try
End Function

替换字符

Public Function regReplace(ByVal searchStr As String, ByVal replaceStr As String, ByVal regStr As String) As String
    Dim reg As New Regex(regStr)
    Dim result As String = reg.Replace(searchStr, replaceStr)
    Return result
End Function