'清除HTML格式

Function RemoveHTML(strText)

Dim RegEx

Set RegEx = New RegExp

RegEx.Global = True

'清除HTML标签

RegEx.Pattern = "<[^>]*>"

RemoveHTML = regEx.Replace(strText, "")

'清除空格等&****;格式的编码

regEx.Pattern = "&.\w+;"

RemoveHTML = regEx.Replace(RemoveHTML, "")

End Function

　　

最新文章

  1. [LeetCode] Sort Characters By Frequency 根据字符出现频率排序
  2. php 序列化、json
  3. oracle空表导出的问题
  4. 如何将oc代码转换成运行时代码
  5. MySQL多实例，主从同步
  6. Cobar_基于MySQL的分布式数据库服务中间件
  7. 项目框架开发流程（oa项目为例）
  8. Python-描述符
  9. JS常用的设计模式(11)—— 中介者模式
  10. Struts2.x jsp页面无法使用jsp:forward跳转到action
  11. C语言函数指针(转载)
  12. css float笔记
  13. mysql 存储过程 游标的使用 与定义
  14. javascript 数组和字符串的转化
  15. OpenCV 编程简单介绍（矩阵/图像/视频的基本读写操作）
  16. hdu 1425 sort
  17. Struts2 知识体系
  18. java基础：学员状态查询
  19. Linux 链接详解(2)
  20. MySQL的bigint类型

热门文章

  1. HDU-3487 Play with Chain Splay tee区间反转,移动
  2. git http方式时保存密码
  3. 转载Linq中GroupBy方法的使用总结
  4. MFRCC522 SPI无法通讯【worldsing笔记】
  5. Java输出考试前三名
  6. 利用UIBezierPath实现一个带圆角的视图
  7. 项目androidAnt编译打包Android项目
  8. android常见错误-Unexpected namespace prefix &quot;xmlns&quot; found for tag LinearLayout
  9. 如何使得VIM显示行号
  10. Tricks Device (hdu 5294 最短路+最大流)