Lisa J Vincent 23.Feb.12 05:54 PM a Web browser Domino DesignerAll ReleasesWindows XP
I think I've looked at this for too long. I've rewritten this multiple times, but end up at the same place each time. It seems very simple, but I'm missing something and hope someone can assist.
From a view with several documents selected, I need to loop through all of the entries in my RevisionTB field and replace every instance of "See DCM's Copy" with initials. I use Select Case below to get the initials to use.
My field, RevisionTB, is a multivalue text field. Each "value" within the multivalue field contains three individual values like so:
My multivalue delimeter is a new line and the ">><<" is part of the data in the first value of the multivalue array:
"09/10/2006>><<10/18/04>><<See DCM's Copy"
I think I should use arrayreplace, but I am unsure how to include it. Any pointers would be greatly appreciated.
This is what I have so far.
Sub Initialize
Dim Session As NotesSession
Dim Db As NotesDatabase
Dim Workspace As NotesUIWorkspace
Dim UIDoc As NotesUIDocument
Dim Doc As NotesDocument
Dim View As NotesView
Dim collection As NotesDocumentCollection
Dim ISO As String
Dim ISOINIT As String
Set Session = New NotesSession
Set Db = Session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
ISO = doc.ISOPerson(0)
Select Case ISO
Case "Bob Car"
ISOINIT="BC"
Case "Kirk Good"
ISOINIT="KG"
Case "Greg White"
ISOINIT="GW"
Case "Chris David"
ISOINIT="CD"
Case Else
ISOINIT="See DCM's Copy"
End Select
ForAll v In doc.RevisionTB
If InStr("DCM", v) Then
"help needed here"
End if
End ForAll
Set doc = collection.GetNextDocument(doc)
Wend
Return to top
Lotusscript - Arrays (Lisa J Vincent 23.Feb.12)
. . 
Print this page
