繁體中文当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > 好东西，老外用正则表达式写的HTML分离函数
- 正则表达式
- 无殇 javascript正则练习器
- javascript用正则表达式把1234567890替换为abcdefghij
- 一个匹配形如“#100”的正则表达式
- 又一不错的应用-正则来查找替换字符串
- [asp]中的正则表达式运用代码
- asp 正则表达式检测http开头的函数
- javascript下正则匹配百分比的代码
- javascript下一个还原html代码的正则
- JS正则表达式提取字符串中所有汉字的脚本
- [asp]匹配网址的正则
- [js]一个只删除所有font标签的正则函数
- [原创]正则替换字符串功能
- javascript 正则 判断是否是数字的脚本
- [a] 1 [/a]转换为网址的UBB的正则
- PHP下ereg实现匹配ip的正则
- [js]用JAVASCRIPT正则表达式限制文本字节数的代码
- dw（dreamweaver）正则表达式函数列表
- [原创]java 正则表达式基础，实例学习资料收集大全
- asp下替换非数字为空的正则
- javascript利用正则快速找出两个字符串的不同字符
好东西，老外用正则表达式写的HTML分离函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 84 ::
收藏到网摘: n/a
存成.asp文件，执行，你用ASPHTTP抓内容的时候用这个很爽，当然自己要改进一下了
<%
Option Explicit
Function stripHTML(strHTML)
'Strips the HTML tags from strHTML
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")
'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput 'Return the value of strOutput
Set objRegExp = Nothing
End Function
%>
<form method="post" id=form1 name=form1>
<b>Enter an HTML String:</b><br>
<textarea name="txtHTML" cols="50" rows="8" wrap="virtual"><%=Request("txtHTML")%></textarea>
<p>
<input type="submit" value="Strip HTML Tags!" id=submit1 name=submit1>
</form>
<% if Len(Request("txtHTML")) > 0 then %>
<p><hr><p>
<b><u>View of string <i>with no</i> HTML stripping:</u></b><br>
<xmp>
<%=Request("txtHTML")%>
</xmp><p>
<b><u>View of string <i>with</i> HTML stripping:</u></b><br>
<pre>
<%=StripHTML(Request("txtHTML"))%>
</pre>
<% End If %>
评论 (0) All
