自定义ASP(VB)中支持正则表达式的replace函数

在编写ASP程序过程中，replace函数的使用频率非常高。不过相对于javascript中的replace函数，ASP中的这个函数最大的缺点就是它不支持正则表达式。而很多时候我们需要用正则表达式来完成更强大的功能，今天受到一个清除某些html标签函数的启发，在原函数基础上进行了改进，编写了一个支持正则表达式的ASP（VB）版的replace函数。

ASP版的： 

Function my_replace(ContentStr,reg,new_str)

  Dim ClsTempLoseStr,regEx

  ClsTempLoseStr = Cstr(ContentStr)

  Set regEx = New RegExp

  regEx.Pattern = reg

  regEx.IgnoreCase = True '是否忽略大小写

  regEx.Global = True

  ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,new_str)

  my_replace = ClsTempLoseStr

  Set regEx = Nothing

 End Function

参数说明：ContentStr - 原始字符串；reg - 需要被替换的部分，支持正则表达式； new_str - 将要被替换成的部分。

VB版的： 

'支持正则表达式的replace函数

Public Function my_replace(ByVal ContentStr As String, ByVal reg As String, ByVal new_str As String, ByVal ign_case As Boolean) As String

    Dim ClsTempLoseStr As String

    Dim regEx As RegExp

    ClsTempLoseStr = CStr(ContentStr)

    Set regEx = New RegExp

    regEx.Pattern = reg

    regEx.IgnoreCase = ing_case '是否忽略大小写

    regEx.Global = True

    ClsTempLoseStr = regEx.Replace(ClsTempLoseStr, new_str)

    my_replace = ClsTempLoseStr

    Set regEx = Nothing

End Function