Как сравнить два богатых текстовых поля

Question

Мне нужен скрипт, который будет сравнивать содержимое двух полей richtext с именем body в форме one и body1 в form2. Я создал две формы, которые содержат поле типа richtext и создали представление категории, и создали кнопку с именем compare в этом представлении, которая будет сравнивать содержимое этих двух fieds и отображать в сообщении.

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

Поиск по всему содержимому БКП Box1 в Box2. Если вы получите совпадение, проверьте, является ли это совпадение единственным содержимым box2. если это так, то содержимое остается неизменным.