如何比较两个富文本字段

Question

我想要一个脚本来比较表单一中名为 body 的两个富文本字段和表单 2 中名为 body1 的两个富文本字段的内容。 我创建了两个包含富文本类型字段的表单，并创建了一个分类视图，并在此视图中创建了一个名为“比较”的按钮，该按钮将比较这两个字段的包含内容并显示在消息中。

Sub Click(Source As Button)

 Dim session As NotesSession
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc, doc1 As NotesDocument
 Dim body, body1 As Variant
 Dim view As NotesView
 Dim rtitem As NotesRichTextItem

 Set session = New NotesSession
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 Set doc = dc.GetFirstDocument
 Set doc1=dc.GetNextDocument(doc)

 body = doc.GetItemValue( "body" )
 Msgbox  body( 0 ), ,"Richtext field of First form"

 body1=doc1.GetItemValue("body1")
 Msgbox body1( 0 ) ,, "Rich Text field of Second form"


 'If  body.value=body1.value Then
 Msgbox"both are same"
 'End If
 Msgbox"both are different"

End Sub

Answer 1

您必须手动执行此操作。
您可以使用此处解释的搜索功能：

http://msdn.microsoft.com/en-us/library/bb787877%28VS.85%29.aspx#re_operations

搜索 box2 中 opf box1 的全部内容。如果找到匹配项，请检查该匹配项是否是 box2 的唯一内容。如果是这样，内容是相同的。