comment comparer deux champs de texte riche

Question

Je veux un script qui permettra de comparer le contenu de deux corps de texte enrichi nommé corps dans le formulaire un et le corps1 dans la forme2. J'ai créé deux formulaires qui contiennent un champ de type richtext et créé une vue categerioze et créé un bouton nommé compare dans cette vue qui va comparer le contenu de ces deux fichiers et afficher dans un message.

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

Vous devrez le faire manuellement. Vous pouvez utiliser la recherche fonctionnalité comme expliqué ici:

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

Rechercher le contenu OPF box1 dans box2. Si vous obtenez une correspondance, vérifiez si cette correspondance est le seul contenu de box2. si c'est le cas, le contenu est le même.