comment comparer les chaînes de deux champs richtext

Question

Je veux un code lotusscript qui peut comparer les chaînes de deux champs richtext. J'ai deux formes nommées form1 et form2 et dans chaque formulaire j'ai un nom de champ richtext "corps" et "body1" à travers mon code je peux obtenir la valeur des deux champs maintenant je veux comparer ces deux champs et montrer la différence de chaîne dans une boîte de message.

Mon code est:

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

Vous devez mettre en œuvre un algorithme simple texte diff. Si vous ne voulez pas réinventer la roue, je suggère de saisir une fonction VB diff et de l'adapter à Lotusscript.