Question

正则表达式 asp 中 替换所有

1.正则表达式 asp 中 替换所有<img ... /> 标签。
2.正则表达式 asp 中 替换所有<table ... >...</table> 标签。
3.正则表达式 asp 中 替换所有<p ... >...</p> 标签。
4.提取所有img 的src 的值。

Answer 1

把4个正则写了案例，运行后用源代码查看效果。

<%
content = "<p style=""width:100%""><table width=""100%""><img scr=""http://xxxx/login.png"" width=100 />图1</table><img scr=""http://xxxx/login2.png"" width=100 />图2</P>"

str1 = RegExp_Replace(content,"<img(.*?)/>","[img $1]")
str2 = RegExp_Replace(content,"<table([\s\S]*?)>([\s\S]*?)</table>","[table $1]$2[/table]")
str3 = RegExp_Replace(content,"<p(.*?)>([\s\S]*?)</p>","<div $1>$2</div>")
str4 = RegExp_Replace(content,"(?:.*?)<img(?:.*?)scr=""(.*?)""(?:.*?)>(?:.*?)>","$1")
Response.Write "<br>str1:"&str1
Response.Write "<br>str2:"&str2
Response.Write "<br>str3:"&str3
Response.Write "<br>str4:"&str4

Function RegExp_Replace(content,regular,son)
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = regular ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全程可用性。
RegExp_Replace = regEx.Replace(content,son) ' 执行替换。
Set regEx = Nothing
End Function
%>