学习LotusScript

公式语言是可以传值给Lotus Script的，只要合理在Lotus Script中使用公式，可起到事半功成的效果，在Lotus Script中使用公式，用的就是evaluate语句。

Evaluate的格式是:Evaluate("公式")如要取得文档的唯一ID，除可以用doc.universalid得到外，还可以用doc.id=Evaluate("@TEXT(@DocumentUniqueID)")得到一般情况下，用Evaluate对于处理与文本有关的内容有较Lotus Script的相关函数处理有效率。

如：@text@userRoles@replace@replaceshustring@left@right@middle注意：当公式中包含双引号时，可以用单引号代替，也可用花括号代替如:dim tempStr as stringtempStr=Evaluate("@left('name';1)")或：tempStr=Evaluate(@left({name};1)")另外：@DBManager@DBName@DBTittle@DDEExecute@DDElnitiate@DDEpoke@DDETerminate@Command@PostedCommand@DialogBox@PickList@prompt@ViewTitle不适用于evaluate语句Evaluate语句可以使用notes公式进行计算而不必使用复杂的LotusScript语法：variant = notesSession.Evaluate( formula$, doc )计算公式：String. The formula.文档：NotesDocument. The formula context. Cannot be null.返回类型：variant例如：获取当前时间Dim nowtime As Variantnowtime=Evaluate(|@Now|,appdoc)appdoc.check_time=nowtime '2013-01-03 13:10:00公式语言是可以传值给Lotus Script的，只要合理在Lotus Script中使用公式，可起到事半功成的效果，在Lotus Script中使用公式，用的就是evaluate语句。

LOTUS学习技巧三1.我如何在页面上建立一个热点,让它打开一个文档?答: 在页面上写一段文字,然后选上这段文字,然后点菜单”创建” –热点--操作热 点 然后选LotusScript ,举个例子,比如打开ID 为NT00000C62的文档:Sub Click(Source As Button)Dim uiworkspace As New notesuiworkspaceDim curdatabase As notesuidatabaseDim database As notesdatabaseDim doc As notesdocumentSet curdatabase = uiworkspace.currentdatabaseSet database = curdatabase.databaseSet doc = database.getdocumentbyid("00000C62")Call uiworkspace.EditDocument(True,doc,False )End Sub2.我如何实现归档,比如我如何把当前视图中所有被选中的文档归入文件夹 fold 中?答: 用Script象如下这样实现:Sub AddDocToFold(fold As String)Dim uiworkspace As New notesuiworkspaceDim uiview As notesuiviewDim doc As NotesDocumentDim docList As StringSet uiview = uiworkspace.currentviewFor j = 1 To uiview.Documents.CountSet doc = uiview.Documents.GetNthDocument(j)Call doc.PutInFolder( fold )NextEnd Sub3.我如何实现把某文件夹视图中的被选择的文档从该文件夹中清除,但却不能删除他们?答: 用Script 实现如下:Sub RemoveDocFromFold( fold As String,all As Integer)'功能：' 把文档从某个文件夹中移走，但并不删除此文档'参数：' fold: 文件夹' all : 0表示仅移走当前选择的文档，1表示移走该文件夹中所有文档Dim uiworkspace As New notesuiworkspaceDim uiview As notesuiviewDim doc As NotesDocumentDim view As notesviewSet uiview = uiworkspace.currentviewSet view = uiview.viewIf all = 0 Then '移去所选文档For j = 1 To uiview.Documents.CountSet doc = uiview.Documents.GetNthDocument(j)Call doc.RemoveFromFolder( fold )NextElseIf all=1 Then '移去全部文档Set doc = view.GetFirstDocument'遍列该视图的所有文档,获取所有满足条件的纪录数While Not(doc Is Nothing)Call doc.RemoveFromFolder( fold )Set doc = view.GetNextDocument(doc)WendEnd IfEnd If'Evaluate("@Command([ViewRefreshFields])")End Sub4.我如何把当前视图中的所有的被选择的文档的某个域的值替换掉?答: 用Script 实现如下:Sub SelectedDocFieldReplace( Field As String,repval As String) '功能：' 把所选文档中的每个 Field 域的值 改为 repval'参数：' Field 要更改的域的名称' repval 修改后的域值Dim uiworkspace As New notesuiworkspaceDim uiview As notesuiviewDim doc As NotesDocumentDim order_num As String'order_num = Inputbox$("请输入批次")Set uiview = uiworkspace.currentviewFor j = 1 To uiview.Documents.CountSet doc = uiview.Documents.GetNthDocument(j)On Error Goto lable1Call doc.replaceitemvalue(Field,repval)Call doc.save(True,False)NextExit Sublable1:Msgbox("错误！，所选文档没有指定的域，这个错误发生在没有给selectedDocFieldReplace() 函数传递正确的参数")Exit SubEnd Sub5.我如何创建某个程序运行结果的日志文档?6.答: 首先新建一个日志文档的表单,并把该表单设置成数据库的默认表单,然后 就用Script 创建文档,并填写该文档中某些域的值,最后存盘,例子程序片段如下:'写传真日志Dim faxerdoc as notesdocument‘faxerr_receiver,faxerr_docnum,faxerr_content是表单form_faxerr的三个域名‘Set faxerrdoc = New NotesDocument( db )faxerrdoc.Form = "form_faxerr"Call faxerrdoc.replaceitemvalue("faxerr_receiver",Cstr(peoplecount) )Call faxerrdoc.replaceitemvalue("faxerr_docnum",strsucssnding )Call faxerrdoc.replaceitemvalue("faxerr_content",faxerrmsg )success = puteWithForm( False, False )If success ThenCall faxerrdoc.Save( True, False )ElseMsgbox("无法写入传真日志....")End If'Msgbox(faxerrmsg)Exit Sub7.我要从当前视图中选择一批文档,并让程序从这些文档中提取信息,在嵌入在表单中的OLE对象 Word文档中建立一张表,要求是选择了几篇文档就在这张表中画几行,这张表的每个列的信息都中文档中的域中提取,换句话说,就是要把被选文档以Word文档表格的形式表示出来,能否给我一个这方面的例子程序?8.答: 可以,下面就是这样的一个例子:Sub inputgroupplan(source As notesuidocument,doccollection Asnotesdocumentcollection)'功能： 自动生成出团计划表。

LotusScript程序开发经验总结内容:一、关于AppendItemValue试试下面这个简单的例子：Dim ws As New notesuiworkspaceDim uidoc As notesuidocumentDim doc As notesdocumentSet uidoc=ws.currentdocumentSet doc=uidoc.documentFor i=1 To 10Call doc.appenditemvalue("myitem",i)NextCall doc.save(True,True )这个程序用以对当前文档增加10个ITEM，名字都叫myitem，但值从1到10不等。

结果如何？用调试方式进行观察，发现：确实增加了10个ITEM，名字都叫myitem，但值却都是1！这与NOTES中的帮助不符。

帮助里宣称：If the document already has an item called itemName$, AppendItemValue does not replace it.Instead, it creates another item of the same name, and gives it the value you specify.^^^^^^^^^^^^^^^^^^^^从4.6到5.0结果都一样。

二、区分NOTES的前台类与后台类由于两者的使用范围不一，在写程序时应注意这一点，尤其写代理时。

如果在后台服务器运行的代理里加一句：Dim ws As New notesuiworkspace代理运行日志报错：Unkown Error.三、关于NOTES与OLE的共享域NOTES提供了一个很好的功能：共享域。

NOTES用共享域来与OLE应用程序交换彼此信息。

但除非确有必要与OLE应用程序共享信息，建议在设计表单时，选上：禁止共享域。

LotusScript 是完全面向对象的编程语言。

它通过预定义的类与 Domino 接口。

Domino 监控用户代码的编译和加载，并且自动包含 Domino 的类定义。

访问现有的对象最好使用 LotusScript，例如：根据其他文档的值来更改一个文档中的值。

LotusScript 提供了一些公式没有的功能，例如：操作数据库存取控制列表 (ACL) 的能力。

写script关键是取对象，查看对象的属性，所以你要学会看notes提供的Script帮助。

下面是我收集的一些script例子。

一般是比较技巧的程序。

怎样判断视图中没有文档？set doc = vw.getfirstdocument()if doc is nothing then.....end if如何将查询结果放到一个文件夹里？下面是将搜索结果放到名叫newfolder的文件夹中，并跳转到该文件夹上Sub Click(Source As Button)Dim docs As notesdocumentcollectionDim doc As notesdocument...........q=doc.query(0)Set docs = db.ftsearch(q, 0)Call docs.PutAllInFolder( \"newfolder\" )Call w.OpenDatabase( \"\",\"\",\"newfolder\")End Sub如何删掉数据库中所有私有视图？Dim session As New notessessionDim db As notesdatabaseDim doc As notesdocumentSet db=session.currentdatabaseForall i In db.viewsSet doc=db.getDocumentByUNID(v.universalID)\' 这个地方视图当作文档来处理，以便取到视图的一些属性。

第10章在Web中使用LotusScript第10章在Web中使用LotusScript (1)10.1 使用LotusScript的Web代理 (1)10.2 激活一个代理的URL (2)10.3 编写WebQueryOpen代理 (3)10.4 编写WebQuerySave代理 (6)10.5 在代理中使用CGI变量 (7)10.5.1 删除文档 (8)10.6 在Web工作流中使用LotusScript (11)本章主要说明在Domino的Web开发中使用LotusScript的方法，关于LotusScript的程序设计知识请参考第三章和IBM 公司提供的帮助文档。

10.1 使用LotusScript的Web代理LotusScript在Web上的唯一使用方法就是编写代理，完成比较复杂的程序逻辑，或者是只有通过操作Domino后端对象才能完成的功能。

在Web上运行一个LotusScript代理有两种方法：●使用@URLOpen调用它的URL，例如，http://server/db/agentname?OpenAgent●使用公式ToolsRunMacro和RunAgent调用代理。

当使用ToolsRunMacro调用代理时，有两种特殊的应用场合，即在文档的WebQueryOpen和WebQuerySave事件中调用代理。

当你在Web上运行一个LotusScript代理时，代理可以访问由浏览器和Domino提供的信息，即CGI 变量，如果使用第二种方式运行代理，还可以访问当前文档中的域的值，这些信息都包含在NotesSession 中的DocumentContext属性中。

DocumentContext属性是一个特别的N o t e s D o c u m e n t对象，它包含了关于当前环境的信息。

这个文档内容类似于N o t e s U I D o c u m e n t对象，你可以使用它在表单保存前从表单中得到值。

常用lotus script2010-04-10 15:36保存并关闭窗口@Command([FileSave]);@Command([FileCloseWindow])取消保存并关闭窗口REM {Notes only};FIELD SaveOptions := 0;@Command([FileCloseWindow])或 window.close()新建讨论主题viewname := @Subset(@ViewTitle; -1);@SetProfileField("tmpProfile"; "viewtitle"; viewname); @PostedCommand([Compose];"MainTopic")新建主文档的答复REM {notes only};@Command([Compose]; "Response")新建答复viewname := @Subset(@ViewTitle; -1);@SetProfileField("tmpProfile"; "viewtitle"; viewname);@PostedCommand([Compose];"Response")新建答复的答复@PostedCommand([Compose];"ResponseToResponse")父文档预览REM {notes only};@Command([ShowHideParentPreview])搜索REM {Web only};@Command([ViewShowSearchBar])转发@Command([MailForward])作为书签转发@Command([Compose]; @MailDbName; "Bookmark")移至废纸篓@Command([MoveToTrash])清空废纸篓@Command([EmptyTrash])新建文件夹@Command([CreateFolder])或var pathname = (window.location.pathname);window.open(pathname.substring(0,(stIndexOf('.nsf')+5))+'F olderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,wi dth=500,height=280');删除文件夹var pathname = (window.location.pathname);window.open(pathname.substring(0,(stIndexOf('.nsf')+5))+'F olderRemove?OpenForm','Folder','scrollbars,screenX=150,screenY=200,wi dth=500,height=250');移入文件夹@If(!@IsAvailable(form); @Return(@Prompt([Ok]; "警告"; "您必须先选择一个文档。

LotusScript 及公式的学习1.LotusScript及公式是Lotus Notes提供的一个完整的编程接口，是一种与BASIC兼容的程序设计语言。

可以根据需要在NOTES的任意对象中附加LotusScript语句和公式。

LotusScript是一个完全面向对象的程序设计语言，具有丰富的类，方法和属性，包含有集成的对象浏览器和程序开发环境。

NOTES公式语言包含一整套的语法规则，提供丰富的命令和函数，可以对常量和变量进行计算，进行简单的逻辑控制。

2.公式基础：（1）输入公式的方式（两种）公式窗口设计窗口（2）公式语言的语法结构词法元素：公式有一个或多个语句构成，一个语句可以有变量，常量，运算符，函数，关键字等构成如：CTX:=@CreatedCTX是变量，:=是运算符，@Created是一个无参数的函数语句含义：把文档的创建时间赋给变量CTX如：@Trim(name)@Trim是函数，参数name是一个域名语句含义：把name值的多余空格去掉如：@Promp([OK];"问候!";"您好! ")@Promp是一个带三个参数的函数，参数[OK]是一个关键字，后面两个是文本常量语句含义：显示一个对话框如：LastName+", "+FirstNameLastName， FirstName是一个变量，+是一个运算符,", "是一个常量语句含义：将LastName，一个逗号和空格号， FirstName合并在一起通用语法规则（必须遵循）语句分隔符：使用分号分隔多哥语句如：FIELD txtmap:=txtmc;FIELD txtmc:=@DeleteField空格：在运算符，标点和值之间可以有任意多个空格，也可以没有，必须有一个来区分关键字，文本常量中的空格也很重要。

大小写：除了在文本常量中之外，其他都没分别运算符和值：两个值之间至少有一个运算符间隔。