lotusscript语法

Lotus script 技巧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)\' 这个地方视图当作文档来处理，以便取到视图的一些属性。

综合使用JavaScript、LotusScript_Agent和Formula的技巧综合使用JavaScript、LotusScript Agent和Formula的技巧一概述在使用 Designer开发B/S模式的应用时，JavaScript、LotusScript 和Formula是我们主要用到的三种开发语言。

它们在各自的位置都有着很强劲的优势。

1． JavaScript因为只能取得浏览器端的数据，不能访问Notes DOM；所以，主要用在浏览器端的数据验证、信息提示等对当前Brows窗口操作易的用性功能。

2． LotusScript能访问Notes DOM。

在Notes客户端可以取得当前文档的数据，但是，因为其无法直接在浏览器端工作；所以在B/S模式的应用中LotusScript只能在服务器端工作，我们通过编写LotusScript代理来实现其强大的文档处理能力。

3． Formula能访问后台数据，语言简洁，数据处理能力较弱，不能在浏览器端工作。

Formula主要使用在元素的显示控制以及域值的计算公式及简单的数据处理方面。

这三者使用的范围和处理能力各不相同。

在应用中将其三者综合起来使用，会使应用的各方面功能大大增强。

二由JavaScript向代理（LS\FL）通信一般情况下JavaScript向代理的通信，使用url command。

即如下格式：http://Host/Database/AgentName?OpenAgent&参数。

这类操作可以用来解决数据查询、文档删除等任务。

这类操作的特点是可以带参数，但是取不到浏览器端的当前文档，无法对浏览器端的文档进行处理。

那么，为什么要使用JavaScript向代理通信，并让代理取得浏览器端的当前文档呢？先看一个例子：在某申请系统中，用户创建新申请可以这样做：打开新的申请单，填写各项目后，点击操作按钮"提交申请"，就完成了操作。

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学习LotusScriptLotusScript对象与类1．面向对象编程类是以抽象数据类型为基础的对象行为，抽象数据类型定义了以类型为基础执行所有接口为一个类而定义的所有操作称之为方法。

2．对象一般可以从两个方面来理解面向对象编程中的对象：?属性。

?对象。

3．类类是从对象中抽象出来，作为对具有相同特征的一组对象的描述。

类是一种定义，它描述该类中每个对象共有的属性和方法，类不占用计算机内存。

Notes中的类被分为前端类(front-end)和后端类(back-end)两种。

前端类主要对用户当前正在工作的对象、表示Notes客户机用户界面中的对象进行操作。

后端类可以访问和操作任何数据库中的任何文档、视图与文件夹内容、数据库ACL以及外部数据。

7个前端类?NotesUIDatabase ：代表Notes工作台上打开的数据库?NotesUIDocument ：用于用户访问当前文档?NotesUIView ：代表当前的数据库视图?NotesUIWorkspace ：帮助用户访问Notes当前的工作台?Button ：代表表单或文档上的操作按钮、热点或按钮?Navigator ：代表一个导航器上的对象，帮助用户操作浏览器?Field ：代表表单中的一个域。

23个后端类?NotesACL ：代表数据库中的所有存取控制列表，通过它用户可以访问和使用数据库中的存取控制列表?NotesACLEntry ：代表存取控制列表中一个单一的ACL项目，通过它用户可以查询Notes 对象的访问属性?NotesAgent ：代表一个代理，通过它用户可以运行一个代理或查询代理的属性?NotesDatabase ：代表一个数据库，通过它用户可以获得一个数据库的属性和操作该数据库中的文档、视图、表单等所有与数据库相关的对象?NotesDataRange ：代表Notes中的时间和日期，用于Notes中的日历和日程安排?NotesDataTime ：用于Notes中的时间和日期格式的转换?NotesDbDirectory ：代表Notes服务器和本地机上的所有数据库列表?NotesDocument ：代表Notes数据库中的一个文档，通过它可以实现对文档的操作?NotesDocumentCollection ：代表Notes中类的集合，通过它用户可以访问所有的文档?NotesEmbeddedObject ：代表Notes中的嵌入对象、链接和附件，通过它用户可以操作以上的对象?NotesForm ：代表Notes数据库中的一个表单，通过它用户可以访问表单的属性，还可以对表单进行一定的操作?NotesInternational ：代表Notes所在操作系统的不同国家、不同的设置?NotesItem ：代表文档中的域，通过它用户可以访问域的属性?NotesLog ：用于创建Notes日志，记录Notes事件、操作和错误等?NotesName ：代表Notes中的用户名、服务器名和访问控制列表中的名字?NotesNewLetter ：代表一个概要文档，其中包括与其他文档的链接?NotesRichTextItem ：代表RTF域，通过它用户可以访问RTF域?NotesRichTextStyle ：用于设置RTF域的属性?NotesSession ：代表用户与Notes的对话，是所有类的根类?NotesTimer ：通过该类可以设定时间间隔来触发一个事件?NotesView ：代表数据库中的一个视图，通过它用户可以获得数据库中所有的视图的属性和访问视图中的文档?NotesViewColumn ：代表视图中的一个列，通过它用户可以获得列的属性?NotesRegistration ：主要操作Notes用户名和通讯录，通过它用户可以增加用户和服务器、登记新用户、交叉验证等程序书写规则1．注释要添加注释，只要使用单引号“’”作为注释文字的开头。

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空格：在运算符，标点和值之间可以有任意多个空格，也可以没有，必须有一个来区分关键字，文本常量中的空格也很重要。

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

Office 文档集数据库是以嵌入对象的方法嵌入word文档的,该文档在body域中,发送传真时,页眉、页脚发不出来,其他格式能正常发出来.而且可以做到不发传真封面，另外，这种方式也可以避免附件方式那样发出来还会出现一个附件图标，故现在的任务是如何往该文档中写内容了。

往该文档中写内容，有两种方式：一种是用VB写一个DLL，有关word文档的操作，包括插入一个表格、插入一个字符串、插页眉等等。

这些函数都放在Dll中，然后被lotus script调用。

另一种方式是用lotusscript 直接操纵该嵌入文档，但操纵嵌入文档的lotusscript语法与VB语法差异很大。

所能获得的例子代码和帮助都是VB语法，只能从lotusscript提取的ole对象库中去察看个函数的语法，至于个函数中的参数的意义只能从msdn中获得，而msdn中对参数的讲解也不是很详细，所有VB常量在lotusscript中没有定义，只能半猜半试的直接使用数值。

下面的例子是lotus script 操纵word文档：'获取嵌入文档的句丙Set thisdoc = source.getobject("oleobject"'设置该文档的页面设置的左边距为20个单位(象素)With thisdoc.pagesetup.leftmargin = 20End With'插入页眉(由于真正的页眉在传真时无法显示,这里的页眉是模拟的)'插入一幅图Set thispicture = thisdoc.shapes.Addpicture("d:\学习\cassiatb.jpg"'设置文字的插入点thisrangeSet thisrange = thisdoc.range(1,1)pageheadstring = "CAISSA Touristic GmbH" & Chr(10) & "HAMBURG·BEIJING·SHANGHAI·BARCELONA" & Chr(10) &Chr(10) & Chr(10)'插入一段文字:pageheadstringthisrange.insertbefore (pageheadstring)'获取一段文字:从字符1到24Set thisrange = thisdoc.range(1,24)'设置该段文字的属性:With thisrange.bold = True '加粗.ParagraphFormat.Alignment = 1'wdAlignParagraphCenter 行居中.font.size = 20 '字体大小为20End WithSet thisrange = thisdoc.range(25,59)With thisrange.bold = True.ParagraphFormat.Alignment = 1'wdAlignParagraphCenter.font.size = 16End With'thispicture.wrapformat.side = wdwrapright'设置图像属性With thispicture.wrapformat '环绕方式.type = wdwrappicture '类型为picture.side = wdwrapright '文字右环绕End With。

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

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

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

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

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

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

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

一般是比较技巧的程序，要学习一般script编写，请下载lotusScript学习库！LotusScript 是完全面向对象的编程语言。

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

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

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

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

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

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

一般是比较技巧的程序，要学习一般script编写，请下载lotusScript学习库！怎样判断视图中没有文档？set doc = vw.getfirstdocument()if doc is nothing thenend 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)' 这个地方视图当作文档来处理，以便取到视图的一些属性。

怎样用lotusScript启动附件首先使用EmbeddedObjects类将附件拆离到一个临时文件夹里，然后用shell命令语句运行它怎样在lotusScript中创建一个姓名域、读者域、作者域创建一个"specialType"姓名域Dim variableName As New NotesItem( notesDocument, name$, value [,specialType%]) 创建一个"Author"作者域Dim TAuthor As New NotesItem(doc, "Author", Auths, AUTHORS)TAuthor.IsSummary = True修改了主文档后，怎样自动修改答复文档Sub QuerySave(Source As Notesuidocument, Continue As Variant)Dim Collection As NotesDocumentCollectionDim Doc As NotesDocumentDim Form, ParentStatus, Status As StringSet Doc = Source.DocumentSet Collection = Doc.ResponsesSet Doc = Collection.GetFirstDocumentParentStatus = Source.FieldGetText("STATUS")While Not ( Doc Is Nothing )Form = Doc.GetItemValue("Form")(0)Status = Doc.GetItemValue("Status")(0)If (Form = "TASK")And (Status <> ParentStatus) ThenCall Doc.ReplaceItemValue( "STATUS", ParentStatus )Call Doc.Save (True, False)End IfSet Doc = Collection.GetNextDocument(Doc)WendEndSub怎样及时取到服务器的时间dim doc as notesdocumentset doc = Serverdb.CreatedocumentcreateDate = doc.Created............最后不要让该文档存盘lotusScripts中怎样在字符串里加回车?"aaa"+chr(10)+"bbb"怎样屏蔽用户用Delete键删除文件在数据库Script中的Querydocumentdelete中使用下列语句。