Compare field values

You can use this class to compare field values between two documents.

You can use this class to compare field values between two documents. I use this in an application where I need to update existing documents with data retrieved from an XML file. From the XML file I create temporary documents and then compare the temporary documents with their equivalent live document. I need to update fields that have changed. The usage example is:

Dim udd As New compareFieldValues

Forall fields In doc.Items
     Set it1 = doc.GetFirstItem(fields.Name)
     Set it2 = srchdoc.GetFirstItem(fields.Name)
     If udd.updateField(it1, it2) Then
      it1.CopyItemToDocument 
srchdoc, fields.Name
     End If
    End Forall 
  
  Code: Class compareFieldValues
 
 Private h1 As String
 Private h2 As String
 
 Sub New
  
 End Sub
 
 Sub Delete
  
 End Sub
 
 Public Function updateField(item1 
As NotesItem, item2 As NotesItem) As Integer
  
  updateField = False
  
  If processField(item1.Name) Then  
'some fields should not be processed
   'get a hashed representation 
of the field value
   h1 = hashItem(item1.Values)
   h2 = hashItem(item2.Values)
   
   If h1 <> "" Then  'the new document
 must have a value in the field, if not ignore it.
    If Strcompare(h1, h2, 5) <> 0 Then 
 'if they are different then update them
     updateField = True
    End If
   End If  'h1 <> ""
   
  End If
  
 End Function
 
 Private Function hashItem 
(tmpStr As Variant) As String
  
  Dim tmp As Variant
  'produce a hashed representation 
of the field value
  tmp = Evaluate(|@Password
("| + tmpStr(0) + |")|)
  hashItem = tmp(0)
  
 End Function
 
 Function processField 
(fieldname As String) As Integer
  
  processField = True
  
  Select Case fieldname
  Case "UNID", "Attachments", "Form" :
   processField = False
  End Select
  
 End Function
 
End Class

Do you have comments on this tip? Let us know.

This tip was submitted to the SearchDomino.com tip exchange by member Bruce Langner. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our monthly tip contest and you could win a prize and a spot in our Hall of Fame.

This was first published in November 2004

Dig deeper on LotusScript

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close