前段时间用lotus写了个内容发布系统,使用notesRichTextItem保存内容。首页有个栏目块需要抽取文章的摘要信息(也就前多少个字符),手动输入的内容没问题,可以正常抽取;可是用户有时候在文档的前面插了个图片,或是从Word、网页上复制下来的信息贴进去保存之后,notesRichTextItem里面的内容就会带有<html>代码格式,抽取数据时数据、格式的问题就来了,晕啊。

在网上找到一个解决办法,就是在Lotusscript代理中调用正则将得到的内容先替换,然后再截取内容片断。

具体代码如下(用于window平台):

Class RegExp
' RegExp -- use VBScript RegExp object to provide regular expressions
' 2004-06-03 David Phillips, rfdinc.com First version.

Public matches As Variant
Public oRegExp As Variant

' VBScript RegExp properties
Public Pattern As String
Public IgnoreCase As Boolean ' default = False
Public Global As Boolean ' default = False

Sub new ()
  Set oRegExp = CreateObject ("VBScript.RegExp")
End Sub

Public Function Match (source As String, pattern As String) As Boolean
' RegEx.Match -- scan source for pattern, set matches collection and return true if any
' (Can't call it Execute as that collides with LotusScript built-in function and statement.)
  With oRegExp
   .Pattern = pattern ' regular expression to match
   .IgnoreCase = IgnoreCase
   .Global = Global
   Set matches = .Execute (source) ' do match
   Match = (Not 0 = matches.count)
  End With
End Function

Public Function Replaces (source As String, pattern As String, replacement As String) As String
' RegEx.Replaces -- scan source for pattern, if found substitute replacement, return result
' (Can't call it Replace as that collides with LotusScript built-in function.)
  With oRegExp
   .Pattern = pattern
   .IgnoreCase = IgnoreCase
   .Global = Global
   Replaces = .Replace (source, replacement) ' do replace
  End With
End Function

Public Function Test (source As String, pattern As String) As Boolean
' RegEx.Test -- scan source for pattern, return true if found
  With oRegExp
   .Pattern = pattern
   .IgnoreCase = IgnoreCase
   Test = .Test (source)
  End With
End Function

End Class

-----------------------然后这样进行调用---------------------------------------------------

Dim re As New RegExp
re.IgnoreCase = True ' 设置是否区分字符大小写。
re.Global = True ' 设置全局可用性。

Gst = re.Replaces (Gst, "<[^>]+>", "") '删除所有html标签

Lotusscript代理调用正则表达式过滤掉html代码,获取notesRichTextItem内容信息的方法...相关推荐

  1. c# typescript_在任何IDE中从C#,Java或Python代码获取TypeScript接口的简单方法

    c# typescript by Leonardo Carreiro 莱昂纳多·卡雷罗(Leonardo Carreiro) 在任何IDE中从C#,Java或Python代码获取TypeScript接 ...

  2. Java架构学习(五十一)微信公众号开发混合开发技术流程微信推送原理外网映射工具使用微信公众号接口认证代码获取微信客户端信息解决微信消息幂等问题

    一.微信公众号项目 SOA架构:面向接口开发,也就是相当于把传统的那种ssh项目的业务逻辑层抽取出来 做成接口. SSH架构与分布式架构的区别 SSH架构是整个项目的任何模块都在一个项目里面 分布式架 ...

  3. 正则表达式匹配html标签,获取标签内容

    如何获取html中正文的内容 假设我们要获取下面html标签中的内容: <p>桥边姑娘</p><p>你的芬芳</p><p>我把你放心上< ...

  4. 获取局域网内服务器信息,使用Java代码获取服务器性能信息及局域网内主机名.pdf...

    使使用用Java代代码码获获取取服服务务器器性性能能信信息息及及局局域域网网内内主主机机名名 最近做个项目,就是要取 cpu 占有率等等的系统信息,一开始以为要用动态链接库了,但后来发现可以像下面这样 ...

  5. java 获取rss_如何使用java代码获取RSS中信息

    展开全部 双击62616964757a686964616fe58685e5aeb931333337373537代码全选 ... ... ... ... ... ... ... ... ... ... ...

  6. unity代码 获取dropdown_unity dropdown UI使用方法简介

    unity UGUI提供了Dropdown下拉菜单UI,使用起来非常方便.新建一个dropdown UI如下: 同时Inspector面板如下: 如上图所示,下拉菜单选项可以在面板中设定Options ...

  7. python 怎样调用硬件_如何使用python-hwinfo获取Linux硬件信息?

    导读 到目前为止,我们已经介绍了大部分获取 Linux 系统硬件信息和配置的工具,不过也有许多命令可用于相同目的.而且,一些工具会显示所有硬件组件的详细信息,或只显示特定设备的信息.在这个系列中, 今 ...

  8. Java实现根据地址调用高德地图获取经纬度等信息

    最近在做一个车辆调度的应用系统,需要根据车辆和站点的位置做相应的规划,因此要调用第三方的地图接口来获取经纬度等信息.这里,我选择的是高德平台,下面是一个从注册到简单使用的例子,可供大家学习参考,更深入 ...

  9. 静态ip代理软件可以通过哪些渠道免费获取

    代理ip是信息抓取必备的工具,其不仅可以防止 ip被封,还能够增加信息抓取的数量,提高工作效率.因此很多人为了提高信息抓取效率,都会选择扒取海外数据.那么,国外静态代理ip软件可以通过哪些渠道免费获取 ...

最新文章

  1. Openstack-L 路由注入方式
  2. 阿里云oss 上传图片 python3
  3. Linux网络技术管理
  4. java支持接口吗_java – 支持专用接口方法
  5. eclipse打开过的工程信息保存路径
  6. html打印日志_SpringBoot 2.X Kotlin系列之AOP统一打印日志
  7. OpenCASCADE绘制测试线束:拓扑命令之3D模型周期性
  8. 实例47:python
  9. Datawhale-零基础入门NLP-新闻文本分类Task04
  10. python 元组与数组的区别_python – NumPy – 从元组到数组的高效转换?
  11. Spring Boot整合MyBatis连接Oracle数据库
  12. SIMD与NEON概念理解
  13. 你的主机中的软件中止了一个已建立的连接。_winscp中文版,winscp中文版软件的使用技巧...
  14. pass 软件_杀毒软件哪家强?今天来聊聊关于保护你电脑的杀毒软件那些事!
  15. 创建txt文本文档快捷键设置
  16. Android模仿新浪微博(前言)
  17. SQL编程-组队学习打卡task06-秋招秘籍ABC
  18. Java数据结构和算法-图
  19. uboot启动流程详解
  20. 字母顺序排序(C语言)

热门文章

  1. bootstrap-table页码ALL显示为NAN
  2. webpack is not defined
  3. 算法_bitmap算法
  4. 编译参数-ObjC的说明
  5. 时间复杂度和空间复杂度3 - 数据结构和算法05
  6. FreeMarker简介及其语法
  7. SPSiteDataQuery
  8. 基于中间代码的优化中,循环的查找算法有哪些?循环优化的方法有哪些?举例说明。
  9. 基于 TensorFlow 的图像识别(R实现)
  10. iphone屏幕录制_今日应用:iPhone 不越狱也可以录制屏幕了