如何比较两个富文本字段的字符串

Question

我想要一个 LotusScript 代码，它可以比较两个富文本字段的字符串。我有两个名为 form1 和 form2 的表单，在每个表单中我有一个富文本字段名称“body”和“body1”，通过我的代码我可以获取这两个字段的值现在我想比较这两个字段并显示差异消息框中的字符串。

我的代码是：

Sub Click(Source As Button)

 Dim session As NotesSession
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc, doc1 As NotesDocument
 Dim text1 As NotesItem
 Dim text2 As NotesItem
 Dim str1 As String

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

 Set text1=doc.getfirstitem("body")
 Set text2 = doc1.getfirstitem( "body1" )

 'Forall v In text1.Values

 v=text1.Values
 v1=text2.Values
 Messagebox( v ) 
 Messagebox( v1) 
 If Len(v) =Len(v1) Then 
  Msgbox"both the fields have same number of strings"
 Else
  If Len(v) >Len(v1) Then 
   Msgbox"the length of the string in body field of form1 is greater"
  Else
   Msgbox"the length of the string in body1 field of form2 is greater"
  End If
 End If


End Sub

Answer 1

您需要实现一个简单的文本差异算法。如果您不想重新发明轮子，我建议使用 VB diff 函数，并将其改编为 Lotusscript。