lotus常用函数

在lotus在经常使用的如下公式及函数.

1)@DbColumn("";"":@Subset((@DbName);-1);"viewName";列数)

2)@DbLookup("":"NoCache";"":@Subset((@DbName);-1); "view";"关键列";"域名或列");

3)replace函数

Function StringStuffReplaceString(Byval strArg As String,

Byval strSrc As String,

Byval strDst As String) As String

Dim iPos As Integer

iPos = Instr(strArg, strSrc)

While iPos > 0

strArg = Left$(strArg, iPos - 1) + strDst + Mid$(strArg, iPos +

Len(strSrc))

iPos = Instr(iPos + Len(strDst), strArg, strSrc)

Wend

StringStuffReplaceString = strArg

End Function

4)Session定义

Dim session As New notessession

Dim db As notesdatabase

Dim doc As notesdocument

Dim cdoc As notesdocument

Dim view As notesview

Dim dc As NotesDocumentCollection

Set db = session.currentdatabase

Set cdoc = session.documentcontext

5)循环删除文档

While Not(doc Is Nothing)

Set ndoc=view.getnextdocument(doc)

Call doc.remove(True)

Set doc=ndoc

Wend

6) 在web上删除文档的代理

Sub Initialize

Dim session As New notessession

Dim db As notesdatabase

Dim doc As notesdocument

Dim item As notesitem

Dim doctodelete As notesdocument

Set db = session.currentdatabase

Set doc = session.documentcontext

Set item=doc.getfirstitem("Delete")

Forall unid In item.values

If unid<>"" Then

Set doctodelete = db.getdocumentbyunid(unid)

Call doctodelete.remove(True)

End If

End Forall

Exit Sub

End Sub

更多函数可以参见http://www.oaunion.com网站的lotus专区,其中有大部分lotusScript开发下使用的函数.