LotusScript代理的基本用法.pdfVIP

LotusScript 代理的基本用法 1、FTSearch 搜索： Set dc=db.Ftsearch(name,0) 0 位置为最大的查询数，0 为所有匹配的文件 FTSearch 必须创建数据库索引 Set doc=dc.Getfirstdocument() 、 2、Item： Set doc=dc.Getfirstdocument() While Not doc Is Nothing ForAll ritem In doc.Items MsgBox ritem.name End ForAll Wend 3、取出特定的域 Set doc=view.getFirstdocument() If doc.HashItem(yu) Then Set item=doc.getfirstitem(yu) Set doc=view.getNextdocument(doc) End If 4 、使用文本属性 If doc.Hashitem(yu) Then Set doc=dc.Getfirstdocument() While Not doc Is Nothing ForAll itemValue In doc.yu itemValue = Anonymous End ForAll Set doc=dc.Getnextdocument(doc) Wend End If 5、获取域值： ForAll itemValue In doc.Getitemvalue(yu) 6、添加域 set item =new NotesItem(doc,newYu,session.UserName) Call doc.Appenditemvalue(newYu,Newvalue) 7、替换值： 1)、 While Not doc Is Nothing Call doc.Replaceitemvalue(resName,newValue) Set doc=dc.getnextdocument(doc) Wend 2)、Set doc=dc.Getfirstdocument() While Not doc Is Nothing Call doc.Replaceitemvalue(resName,newValue) Set item =doc.Getfirstitem(yu) While Not item Is Nothing ForAll resitems In doc.Itemsv(0) resitems=newVlaue End ForAll doc.name= doc.Itemsv(0) Set item =doc.getnextitem(item) Wend Set doc=dc.getnextdocument(doc) Wend 8、拷贝域 Set item =doc.Getitemvalue(name) call item.Copyitemtodocument(doc, name) call doc.save(true,false) Call doc1.Copyallitems(doc2,true) ‘替换所有的 9、删除指定的域： 1)、 For j=1 To dc.count Set item=doc.Getitemvalue(name) While Not item Is Nothing Call item.Remove() Call doc.Save(true,false) Wend Set doc=dc.Getnthdocument(j) Next 2)、For j=1 To dc.count While Not doc.Hasitem(name) Call doc.Removeitem(name)