如何用正则表达式在ASP中去掉HTML标签，仅保留img、br、p、div标签？

运维• 2025-02-02 21:49 •行业资讯

要实现去掉HTML标签但保留img, br, p, 和 div标签的正则表达式，可以使用以下代码：，，“

python，import re，，def remove_html_except_tags(text, tags=('img', 'br', 'p', 'div')):，    pattern = f"]*>"，    return re.sub(pattern, '', text)，，# 示例用法，html_content = "This is abold paragraph."，cleaned_content = remove_html_except_tags(html_content)，print(cleaned_content)，

`，，这个函数会移除所有不在指定列表中的HTML标签，同时保留img, br, p, 和 div`标签。

下面是一个详细的ASP代码示例，用于去掉HTML标签，但保留<img>,<br>,<p>, 和<div>

<%
Function StripHtmlTags(ByVal InputStr)
    Dim RetStr, TempStr
    RetStr = ""
    TempStr = InputStr
    
    ' 正则表达式匹配并保留 <img>, <br>, <p>, 和 <div> 标签
    Dim RegEx, Matches, Match
    Set RegEx = New RegExp
    RegEx.Pattern = "<(img|br|p|div)[^>]*>"
    RegEx.IgnoreCase = True
    RegEx.Global = True
    
    Set Matches = RegEx.Execute(TempStr)
    
    For Each Match In Matches
        RetStr = RetStr & Match.Value
    Next
    
    Set RegEx = Nothing
    Set Matches = Nothing
    
    StripHtmlTags = RetStr
End Function
' 测试字符串
Dim TestString
TestString = "<html><body><h1>Title</h1><p>This is a paragraph.</p><img src='image.jpg'/><div>This is a div.</div></body></html>"
' 调用函数并输出结果
Dim Result
Result = StripHtmlTags(TestString)
Response.Write("Original HTML: " & vbCrLf & TestString & "<br />")
Response.Write("Processed Output: " & vbCrLf & Result & "<br />")
%>

StripHtmlTags 函数：该函数接收一个包含HTML内容的字符串作为输入，并返回一个新的字符串，其中只保留了<img>,<br>,<p>, 和<div>标签，其他所有HTML标签都被移除。

RegEx 对象：使用正则表达式来匹配和提取指定的HTML标签。

Matches 集合：存储所有匹配的标签。

循环：遍历所有匹配的标签并将其附加到结果字符串中。

测试字符串：提供一个示例HTML字符串进行测试。

输出结果：展示原始HTML字符串和处理后的输出。

`单元表格：代码说明`

部分	说明
StripHtmlTags 函数	用于去除HTML标签，仅保留特定的标签（,, , ）。
正则表达式	定义了要匹配的HTML标签模式。
Matches 集合	存储所有匹配的标签。
循环	遍历所有匹配的标签并将其附加到结果字符串中。
测试字符串	提供一个示例HTML字符串进行测试。
输出结果	展示原始HTML字符串和处理后的输出。