zoukankan      html  css  js  c++  java
  • asp常用的正则表达式实现字符串的替换

    asp常用的正则表达式实现字符串的替换,主要包括去除html标签,去除class标签和去除script标签等
    去除html标签正则<//*[^<>]*>
    Function LoseHtml(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "<//*[^<>]*>"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    Set RegEx = Nothing
    LoseHtml = ClsTempLoseStr
    End function
    去除网页中的class
    Function LoseClassTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "(class=){1,}(""|/'){0,1}/S+(""|/'|>|/s){0,1}"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseClassTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseScriptTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "(<script){1,}[^<>]*>[^/0]*(<//script>){1,}"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseScriptTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseIFrameTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "(<iframe){1,}[^<>]*>[^/0]*(<//iframe>){1,}"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseIFrameTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseObjectTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "(<object){1,}[^<>]*>[^/0]*(<//object>){1,}"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseObjectTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseSpanTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "<(//){0,1}span[^<>]*>"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseSpanTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseFontTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "<(//){0,1}font[^<>]*>"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseFontTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseATag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "<(//){0,1}a[^<>]*>"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseATag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseDivTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "<(//){0,1}div[^<>]*>"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseDivTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseStyleTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "(<style){1,}[^<>]*>[^/0]*(<//style>){1,}"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseStyleTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseNoteTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "<!--//*[^<>]*-->"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseNoteTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseTableTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "<(//){0,1}table[^<>]*>"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseTableTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseTDTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "<(//){0,1}td[^<>]*>"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseTDTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    Function LoseTRTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
    ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
    RegEx.Pattern = "<(//){0,1}tr[^<>]*>"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseTRTag = ClsTempLoseStr
    Set RegEx = Nothing
    End Function
    http://www.corange.cn/archives/2008/11/2244.html

  • 相关阅读:
    周总结三
    重大技术需求系统四
    重大技术需求系统三
    重大技术需求系统二
    重大技术需求系统
    周总结(二)
    MJExtension框架介绍
    iOS 中捕获程序崩溃日志
    又是一年1111
    NSAssert的使用
  • 原文地址:https://www.cnblogs.com/zerogo/p/2209103.html
Copyright © 2011-2022 走看看