asp只采集网站可见文本的正则

2016-02-19 11:03 3 1 收藏

人生本是一个不断学习的过程,在这个过程中,图老师就是你们的好帮手,下面分享的asp只采集网站可见文本的正则懂设计的网友们快点来了解吧!

【 tulaoshi.com - Web开发 】

 
我写的是这样:
Function ClearHTMLCode(originCode)
Dim reg
set reg = new RegExp
reg.IgnoreCase = True
reg.Global = True
reg.Pattern = "(s+cript(.+?)/s+cript)"
originCode= reg.Replace(originCode, "")
reg.Pattern = "(s+tyle(.+?)/s+tyle)"
originCode= reg.Replace(originCode, "")
reg.Pattern = "[^]*"
originCode= reg.Replace(originCode, "")
ClearHTMLCode = originCode
End Function

不过有一些过滤不了!而且速度太慢!

来源:https://www.tulaoshi.com/n/20160219/1596415.html

延伸阅读
标签: Web开发
代码如下: % ' -------------------------------------------------------------- ' Match 对象 ' 匹配搜索的结果是存放在 Match 对象中,提供了对正则表达式匹配的只读属性的访问。 ' Match 对象只能通过 RegExp 对象的 Execute 方法来创建,该方法实际上返回了 Match 对象的集合。 ' 所有的 Match 对象属性都是只读的。在执行正则表...
标签: Web开发
  说明      Match   对象只能通过   RegExp   对象的   Execute   方法来创建,该方法实际上返回了   Match   对象的集合。所有的   Match   对象属性都是只...
标签: ASP
 本文全面的详细的介绍了ASP正则表达式的规范,以及如何建立和使用的注意事项。    什么是正则表达式    如果原来没有使用过正则表达式,那么可能对这个术语和概念会不太熟悉。不过,它们并不是您想象的那么新奇。    请回想一下在硬盘上是如何查找文件的。您肯定会使用 ? 和 * 字符来帮助查找您正寻找...
标签: Web开发
function nohtml(str)  dim re  Set re=new RegExp         re.IgnoreCase =true         re.Global=True         re.Pattern="(\.[^\]*\)"     &nbs...
标签: Web开发
代码如下: Function DRexPage(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.IgnoreCase=True RegEx.pattern="(\&)?page=(\d)+" DRexPage=regEx.replace(Str,"") '(Str,"$1") Set RegEx=Nothing End Function

经验教程

490

收藏

62
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部