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

2015-7-26 14:44:28 | 浏览:
评论数:0

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

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 - 将要被替换成的部分。

'支持正则表达式的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 

    相关文章:

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。