凹丫丫网络社区 » 【网页编程】 » 正则表达式轻松消除HTML代码标签

oyaya 发表于 2008-6-17 10:23

正则表达式轻松消除HTML代码标签

<P>[quote] </P>
<P>一、清楚内容中的Javsscript 代码 1 Function ClearJSCode(originCode)<BR>2 <BR>3&nbsp;&nbsp;&nbsp; Dim reg<BR>4 <BR>5&nbsp;&nbsp;&nbsp; set reg = New RegExp<BR>6 <BR>7&nbsp;&nbsp;&nbsp; reg.Pattern = "&lt;SCRIPT[^&lt;]*&lt;/SCRIPT&gt;"<BR>8&nbsp;&nbsp;&nbsp; reg.IgnoreCase = True<BR>9&nbsp;&nbsp;&nbsp; reg.Global = True<BR>10 <BR>11&nbsp;&nbsp;&nbsp; clearJSCode = reg.Replace(originCode, "")<BR>12 <BR>13 End Function<BR>14<BR>二、清除内容中的HTML代码</P>
<P>1 Function ClearHTMLCode(originCode)<BR>2 <BR>3&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim reg <BR>4&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; set reg = new RegExp <BR>5 <BR>6&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; reg.Pattern = "&lt;[^&gt;]*&gt;"<BR>7&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; reg.IgnoreCase = True<BR>8&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; reg.Global = True<BR>9 <BR>10&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ClearHTMLCode = reg.Replace(originCode, "")<BR>11 <BR>12 End Function<BR>13<BR></P>
<P>[/quote]</P>

稻草人 发表于 2008-6-23 19:21

这个东西很好用的

查看完整版本: 正则表达式轻松消除HTML代码标签