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

  • 相关阅读:
    刘若英和她的<<蝴蝶>>
    我的心情日记
    flash鼠标特效
    flash的播放器
    NoSQL数据存储引擎
    分享iphone开发的好网站,希望大家也能提供一些分享下
    创业经验总结
    产品经理之我见
    软件开发报价的计算方法
    Android实现号码归属地查询
  • 原文地址:https://www.cnblogs.com/zerogo/p/2209103.html
Copyright © 2011-2022 走看看