html中清除所有格式,清除文件HTML格式函数ClearHtml
'/* 函数名称:ClearHtml ReplaceHtml
'/* 函数语言:VBScript Language
'/* 作 用:清除文件HTML格式函数
'/* 传递参数:Content (注:需要进行清除的内容)
'/* 函数作者:auuo.com
'/* 函数说明:正则匹配(正则表达式)模式进行数据匹配替换
Function ClearHtml(Content)
Content=ReplaceHtml("[^>]*;", "", Content)
Content=ReplaceHtml("?marquee[^>]*>", "", Content)
Content=ReplaceHtml("?object[^>]*>", "", Content)
Content=ReplaceHtml("?param[^>]*>", "", Content)
Content=ReplaceHtml("?embed[^>]*>", "", Content)
Content=ReplaceHtml("?table[^>]*>", "", Content)
Content=ReplaceHtml(" ","",Content)
Content=ReplaceHtml("?tr[^>]*>", "", Content)
Content=ReplaceHtml("?th[^>]*>","",Content)
Content=ReplaceHtml("?p[^>]*>","",Content)
Content=ReplaceHtml("?a[^>]*>","",Content)
Content=ReplaceHtml("?img[^>]*>","",Content)
Content=ReplaceHtml("?tbody[^>]*>","",Content)
Content=ReplaceHtml("?li[^>]*>","",Content)
Content=ReplaceHtml("?span[^>]*>","",Content)
Content=ReplaceHtml("?div[^>]*>","",Content)
Content=ReplaceHtml("?th[^>]*>", "", Content)
Content=ReplaceHtml("?td[^>]*>", "", Content)
Content=ReplaceHtml("?script[^>]*>", "", Content)
Content=ReplaceHtml("(javascript|jscript|vbscript|vbs):", "", Content)
Content=ReplaceHtml("on(mouse|exit|error|click|key)", "", Content)
Content=ReplaceHtml("]*>", "", Content)
Content=ReplaceHtml("]*>", "", Content)
Content=ReplaceHtml("?font[^>]*>", "", Content)
Content=ReplaceHtml("?b[^>]*>","",Content)
Content=ReplaceHtml("?u[^>]*>","",Content)
Content=ReplaceHtml("?i[^>]*>","",Content)
Content=ReplaceHtml("?strong[^>]*>","",Content)
ClearHtml=Content
End Function
Function ReplaceHtml(patrn, strng,content)
IF IsNull(content) Then
content=""
End IF
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = true ' 设置忽略字符大小写。
regEx.Global = True ' 设置全局可用性。
ReplaceHtml=regEx.Replace(content,strng) ' 执行正则匹配
End Function
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
%>
html中清除所有格式,清除文件HTML格式函数ClearHtml相关推荐
- ElementUI中el-upload中怎样限制上传文件的格式
场景 使用el-upload上传文件时限制只能上传指定格式的文件. 比如这里只允许上传apk格式的文件. 注: 博客: https://blog.csdn.net/badao_liumang_qizh ...
- 合肥市招投标中心上传文件html格式,投标文件排版格式有什么标准?怎吗才能中标?...
一般招标文件在招标书中均规定了投标书的排版格式要求,制作者必须遵照招标文件要求编写投标书.如果在招标文件中没有明确的规定,可参考下列排版格式 01纸张要求:封面.封底.正文采用A4纸.白色,装订后的尺 ...
- 深入理解Python中的字符编码、文件处理和函数
博客核心内容: 1.Python基础之字符编码的介绍 2.Python中文件处理的介绍 3.Python中函数的介绍 4. File.readlines(sizehint) 函数 一.Python基础 ...
- c语言在函数中传递指针,[求助]关于文件指针在函数中传递的问题
[求助]关于文件指针在函数中传递的问题 我写的一个程序中文件指针在各函数间传递.请各位整理一下思路. /*=============================================== ...
- 【web测试】不同格式的文件操作(txt,csv,excel,json,xml,yaml)
[web测试]数据驱动 python操作文件 txt文件 csv格式 excel文件 json格式 xml文件 yaml格式 python操作文件 txt文件 # 读取r 写入w;rb-二进制读取;w ...
- 认识设备树(二)——设备树文件的格式
目录 前言 1 DTS文件的格式 1.1 DTS文件的总体布局 1.2 memory reservations的格式 1.3 属性的格式 1.3.1 有关属性名 1.3.2 有关属性值 1.4 节点的 ...
- matlab产生bmp图片,matlab 生成.bmp格式的文件
生成.bmp格式的文件 .bmp格式的图片是未压缩的图片,相比于.raw格式,需要加上头文件.下面以大小为M*N的图片为例,说明头文件格式和内容. M = 128; N = 128; % 构造头文件 ...
- linux服务器清除cdn,Linux服务器中查找并删除大文件的五种方法,Linux系统清除文件内容的命令分享...
很多时候,在处理Linux终端中的文件时,您可能希望清除文件的内容,而无需使用任何Linux命令行编辑器打开它.怎么能实现这一目标?在本文中,我们将借助一些有用的命令,通过几种不同的方式清空文件内容. ...
- android清除缓存有哪些,Android中的清除数据和清除缓存有什么区别,它们分别清除了哪些文件...
清除数据和清除缓存的区别 反射调用系统隐藏接口,需要准备的东西: 一.在AndroidManifest.xml中的manifest标签下添加声明 android:sharedUserId=" ...
最新文章
- Linux的账号口令机制及其爆破
- 04.local_gateway和network相关设置
- W3C专业术语翻译对照表
- php 命名空间(,PHP命名空间(Namespace)简明教程
- ReentrantLock 源码解析
- PHP7.0,PHP7.1.x新特性
- 一个好用的不基于时间的同步文件的软件 —— Allway sync 文件同步
- openjdk java字体库_OpenJDK8编译后遇到字体问题
- python图书库存管理系统的需求分析_图书库存管理系统方案.doc
- R: symbol lookup error: /home/lib/../../libreadline.so.6: undefined symbol: PC
- 奖金高达200万!武汉市便利店行业发展专项资金支持条件、材料及流程
- 网络分析工具——WireShark的使用(超详细)
- 在Unity中使用Excel表开发单选题和多选题
- CSS3之太极图源代码
- Ioc之Bean基础
- 【iOS】—— 高德地图SDK基础使用
- Rockchip Linux PCIe 开发指南
- 2018年广东工业大学文远知行杯新生程序设计竞赛 1006 那天的延长线在今天β
- ubuntu11.10 安装谷歌拼音输入法详细步骤
- Python的文件处理