asp常用的正则表达式实现字符串的替换

答案：去除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

上一个：JScript 8.0 正则表达式语法
下一个：javascript 正则 判断是否是数字的脚本