Lotus基础函数

1.循环读取视图筛选 

 

Sub SearchAndReplaceFromView(Db As NotesDatabase,doc As NotesDocument,viewName As String,needReplaceItemName As String,replaceValue As String)

    Dim view As NotesView 
    Dim vc As Variant
    Dim VoteLimit As Long
    
    Set vc = F.GetSortedView(db,viewName,view)

    If vc.count > 0 Then
        Dim aaa As Long
        For aaa=0 To vc.count
            Dim ffdoc As NotesDocument
            If F.getdocumentfromvc(vc,aaa,ffdoc) Then
                Call ffdoc.ReplaceItemValue(needReplaceItemName,replaceValue) 
                Call ffdoc.save(ture,False)            
            End If
        Next
    End If

End Sub

 

 

2.更改文本列表中某值

 

Sub ReplaceRichText(Db As NotesDatabase,doc As NotesDocument,needReplaceItem As String,needReplaceValue As String,replaceValue As String)

    Dim item1 As NotesItem
    Dim v As String
    If doc.Hasitem(needReplaceItem) Then
        Set item1 =doc.GetFirstItem(needReplaceItem)
        For i = 0 To UBound(item1.Values)
            If Not InStr(item1.Values(i),needReplaceValue) > 0 Then    
                v=v+";"+item1.Values(i)
            Else
                v=v+";"+ Replace(item1.Values(i),needReplaceValue,replaceValue)
            End If
        Next

        If v<>"" Then
            Call doc.ReplaceItemValue(item1.Name,"")
            Dim vv As Variant
            vv=Split(v,";")
            Call item1.AppendToTextList(vv)
        Else
            Call doc.ReplaceItemValue(item1.Name,"")
        End If
    End if
End Sub