在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开发下使用的函数.
|
本类阅读TOP10