前段时间用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标签
分享到：
相关推荐
在domino服务器中，通过ajax将数据提交后台时中文乱码的处理
lotus domino lotusscript调用java
1、FTSearch搜索：2、Item：3、取出特定的域4、使用文本属性5、获取域值6、添加域7、替换值：8、拷贝域9、删除指定的域10、RTF文本域的输出11代理中使用公式12、 嵌入对象13、激活嵌入对象14、if的用法
4. **特殊字符用法及含义**："LotusScript中特殊字符用法及含义.pdf"将详细解析在LotusScript代码中常见的特殊字符，如转义字符、分隔符等，以及它们在字符串处理和正则表达式中的作用。 5. **LotusScript语言的...
这里以VC为范例： 用VC中的建立Win32DLL库来建立动态连接库，注意增加.DEF文件，在其中的EXPORT中加入接口函数名（全用大写）： 一个函数名一行
lotusScript(代理)导入Excel
lotus domino lotusscript 调用DLL
《Domino LotusScript程序设计》是针对Domino开发人员的重要参考资料，它涵盖了LotusScript的基础概念、语法特性以及在实际应用中的高级技巧。LotusScript是IBM Lotus Domino平台上的主要编程语言，用于创建和定制...
Lotusscript java代理自动下载指定路径文件。可批量下载指定路径
1. **收集代码信息**：遍历LotusScript代码库，提取所有类、函数、方法和变量的信息。 2. **解析注释**：读取并解析代码中的文档注释，获取描述和示例。 3. **应用模板**：使用"lsdoc_120.ntf"或其他自定义模板，将...
- 在表单中添加内联HTML和JavaScript代码，可以设置变量`NewDoc`，然后根据其值决定调用哪个代理并传递参数。例如，根据条件打开新的窗口并传值给代理。 - 使用`window.open()`函数打开新窗口，并在URL中附带参数...
LotusScript 代理导出Excel是Lotus Domino应用程序中一种常见的数据处理技术，它允许开发者通过编程方式将 Lotus Domino 数据库中的信息导出到Microsoft Excel文件中，以便于数据分析、报表制作或与其他系统进行数据...
标题中的“LOTUSSCRIPT批量修改代码工具”是指一种基于LOTUSSCRIPT语言开发的工具，主要用于批处理数据库中的代码修改工作。LOTUSSCRIPT是IBM Lotus Domino Designer中的编程语言，常用于构建和定制Lotus Notes/...
FtpKernel.lss是lotus script调用ftp的核心代码，此文件是从lotus script lib里引出的。 invokeFtp.lss是例子，此文件是我从一个按钮的lotus script引出了 你需要改动的，是 Call moFTP.Connect("ftp_address",...
LotusScript是IBM Lotus Domino开发环境中的一种编程语言，主要用于创建和扩展Lotus Notes应用程序的功能。它基于Visual Basic，因此对于熟悉VB的开发者来说，学习LotusScript相对较为容易。本教程将带你入门...
Lotusscrip与Vb语法对比，英文版。<br>
有前端的js导出到Excel，可是这个导出需要加信任站点，有些用户就是娇，不想动手，就弄了个后台代理导出到Excel
通常，JavaScript调用代理的URL格式为`http://Host/Database/AgentName?OpenAgent&参数`，这种通信方式可传递参数，但无法获取浏览器端当前文档的信息，限制了对浏览器端文档的处理。 在特定场景下，如用户提交申请...
<href>/.ibmxspres/domino/CommonElements.nsf/commonMAX.css</href> </resource> ``` 这段XML代码表示了一个CSS资源引用，它将从`.ibmxspres/domino`路径下加载名为`CommonElements.nsf`的数据库中的`commonMAX....
然后，我们需要获取源数据库和目标数据库的信息： `sourceDbType = w.Prompt(PROMPT_OKCANCELLIST, "Select Database Location", "Select the location of the database you would like to copy from:", choices(0)...