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

使用LotusScript获取多值域的值原理：文档中的域值是数组形式的。

多值域的值类似于一行多列的数组,下标从0开始。

假定域名为Employee，类型为多值文本域，文档中此域的值为:james,robin,alfred。

计划使用LS的得到返回值为：jamesrobinalfred。

方法1、直接获取strEmployee = doc.Employee(0) +doc.Employee(1) +doc.Employee(2)方法2、使用Evaluate声明Dim strEmployee AsVariantConst NotesMacro$ = "@Implode(Employee)"strEmployee = Evaluate(NotesMacro$,doc)MsgBoxCStr(strEmployee(0))方法3、使用GetItemValue方法Dim tname AsVarianttname = backdoc.GetItemValue("TComm3Name")MsgBox tnameForAll o In tnameMsgBoxCStr(o)EndForAll方法4、转化为数组处理Dim i,j AsIntegeri = 0arrEmployee = doc.GetItemValue("Employee ")For j=LBound(arrEmployee) ToUBound(arrEmployee)MsgBoxCStr(arrEmployee(i))i=i+1Next------------------例子--------------Dim WebStartDb As NotesDatabase '系统启动数据库Dim LinkDoc As NotesDocument '系统启动库中的链结文档Set WebStartDb=s.Getdatabase("", "weboa\woastart.nsf")Set LinkDoc = WebStartDb.GetDocumentByUNID(backdoc.DocID(0)) '根据链结文档ID从系统启动库中取链结文档IfNot LinkDoc IsNothingThenDim arrEmployee AsVariantDim strTComm3Name AsStringDim z,j AsIntegerz = 0strTComm3Name=""arrEmployee = backdoc.GetItemValue("TComm3Name")For j=LBound(arrEmployee) ToUBound(arrEmployee)'MsgBox "111：" & CStr(arrEmployee(z))strTComm3Name= strTComm3Name + CStr(arrEmployee(z))+";"z=z+1Next'MsgBox "strTComm3Name：" & strTComm3NameEndIfLinkDoc.IsTCommm=strTComm3NameCall LinkDoc.Save(True,True)。

公式语言是可以传值给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语句。

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

'调用RemoveSpaces函数去除空格
outputString = RemoveSpaces(inputString)
'输出结果
Print "Original String: " + inputString
Print "String without Spaces: " + outputString
请注意，这种方法会去除字符串中所有的空格。如果你只想去除开头和结尾的空格，可以使用LTrim和RTrim函数：
Function RemoveLeadingAndTrailingSpaces(input As String) As String
'使用LTrim和RTrim函数去除开头和结尾的空格
RemoveLeadingAndTrailingSpaces = LTrim(RTrim(input))
在LotusScript中，要去除字符串中的空格，可以使用Replace函数。以下是一个简单的例子，演示如何去除字符串中的空格：
Sub Initialize
Dim inputString As String
Dim outputString As String
'示Βιβλιοθήκη 字符串含有空格inputString = "This is a sample string with spaces."
End Sub
Function RemoveSpaces(input As String) As String
'使用Replace函数将空格替换为空字符串
RemoveSpaces = Replace(input, " ", "")

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学习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基本语法收藏LotusScript语言的基本知识一、概述LotusScript是一种和Basic相兼容的面向对象的Scripting环境，它具有强大的能够从事面向对象应用软件开发的语言范围，能够提供循环和分支的能力、数组以及访问Notes对象的能力。

判断Notes中什么时候使用LotusScript或公式语言1)任何时候当执行该任务的函数或命令存在时，使用公式。

2)对于复杂的程序控制或循环，使用LotusScript。

3)存取或操作储存的文档数据要使用LotusScript，特别对于跨文档、跨数据库的存取。

4)若公式语言不能办到，则使用LotusScript在Notes应用程序中访问和操作对象需要三步进行：1．声明对象变量DIMDIM db As NotesDatabase2．实例化一个类将其赋值给对象变量SET db = New NotesDatabase("Domestic","Sales.nsf")3．使用这个对象的方法或属性db.created '用来展现创建数据库时的日期和时间二、NotesScript中的数据元素NotesScript中的常量Null '特殊值，代表数据遗失或空Empty '相当于""，也就是空串Nothing '涉及变量的初始值，表示对象变量没有内容PI '圆周率True/False '分别为数值1和0数据类型Integer(整型) Long(长整型) Single(单精度型) Double(双精度型)Currency(货币型) String(字符串)运算符+ - * / < > <> = Not And OR &常量和变量Dim address As String '定义变量address = "100 Main Street " '变量赋值Const address = "100 Main Street" '创建字符常量address通信输入和输出Dim response as Integerresponse = Inputbox("Do you want to continue") '弹出输入框输入Messagebox(response) '弹出输出窗口输出数据注释1．单行注释：用Rem或'号2．多行注释：用%Rem和%EndRem%Rem '多行注释实例The first statement in this Script declares a variable myName.The second assign the value "Robert" to myName.The third statement display the value of myName.%EndRem数据类型转换Asc(String) 函数 '将字符串转化为ANSI字符代码CBool(expression) 函数 '将表达式转化为布尔型CByte(expression) 函数 '将表达式转化为字节型CCur(expression) 函数 '将表达式转化为货币型CDate(Strin*) 函数 '将字符串转化为日期型**bl(expression) 函数 '将表达式转化为双精度型Chr(Integer) 函数 '返回整数AscII码对象的字符，例如65表示ACInt(expression) 函数 '将表达式转化为整型CLng(expression) 函数 '将表达式转化为长整型CSng(expression) 函数 '将表达式转化为单精度型CStr(expression) 函数 '将表达式转化为字符串Hex(number) 函数 '返回十六进制Oct(number) 函数 '返回八进制三、数组管理Dim MyDays(7) as String '声明一个数组一共7个元素，下标为0~6Dim MyDay(1 to 7) as String '声明一个数组下标为1~7ReDim MyDay(1 to 3) '重新设置数组的边界和维数，这里ReDim用于定义动态数组UBound(MyDay,1) '返回数组的上界，1表示若是多维数组，返回第一维的上界LBound(MyDay) '返回数组的下界LBound(MyDay,2) '返回数组第2维的下界MyDay(1) = "Sunday" '给数组元素赋值四、语句1、IF ... End ifif balance > 100 theninterest = 0.35elseinterest = 0end if2、Select caseSelect case thisMonthcase 1Response = "January"case 2 to 10 '也可以写成case 10,20,30或case is > 10 response = "Other"case elseMessageBox(thisMonth & "is invalid value") end Select3、Do...loops和while... wendDo while/until 条件'语句组loopDo'语句组loop while/until 条件while 条件'语句组wend4、For...NextFor i = 1 to 5MyDays(i) = InputBox("Enter your work days:") Next i5、ForAllForAll m in db.managers '循环显示数组db.managers中的元素 MessageBox(m)。

给数组元素赋值
目录
概述
1.1 LotusScript介绍 1.2 LotusScript特点 1.3 使用位置与执行时机
数据元素
2.1 数据类型 2.2 常量和变量 2.3 数组
Domino 对象
3.1 Domino 对象介绍 3.2 Domino 对象的属性 3.3 Domino 对象的方法
语法
Domino 对象
3.1 Domino 对象的介绍 3.2 Domino 对象的属性 3.3 Domino 对象的方法
语法
4.1 常用语句 4.2 错误处理语句
数据类型
类型
数值范围
初始值
Integer(整型)
Long(长整型) Single(单精度型) Double(双精度型) Currency(货币型)
4.1 常用语句 4.2 错误处理语句
对象的介绍
Domino 对象 是一组用来表示一个Domino应用程序的class，每一个class 都有其属性和方法 主要分为两类class Back-end：NotesDatabase、NotesDocument等 Front-end：NotesUIWorkSpace、NotesUIView等
对象的介绍
Domino 对象包含模式 Domino对象包含层级是Domino对象类别分享的关系，也就 是有些类别会再包含其他类别。 示例 Domino Server -> Databases -> Notes -> items 所以若要存取Item Value，就要先存取Database与Notes
myName.The third statement display the value of myName.
%EndRem

3.作为二进制（&B）、八进制（&O）或者十六进制（&H）数值的前缀。
4.作为一个表达式中连接字符串的运算符。
!感叹号
1.当作为变量声明中的标识符或者隐式声明变量的后缀时，所声明的变量的数据类型将为Single。
2.当作为标识符或者即将赋给常量的数值的后缀时，所声明的变量的数据类型将为Signle。
2.当作为标识符或即将赋给常量的数值的后缀时，常量的数据类型被声明为Integer。
3.表示一个编译器指令，比如：%Rem或%If。
&和号
1.当作为变量声明中的标识符或者隐式声明变量的后缀时，所声明的变量的数据类型将为Long。
2.当作为标识符或者即将赋给常量的数值的后缀时，所声明的变量的数据类型将为Long。
# #号
1.当作为变量声明中的标识符或者隐式声明变量的后缀时，所声明的变量的数据类型将为Double。
2.当作为标识符或者即将赋给常量的数值的后缀时，所声明的变量的数据类型将为Double。
3.当作为数值常量或者变量标识符时，指定在特定的文件I/O语句和函数中的文件号。
@ at符号
1.当作为显示声明或隐式声明的变量后缀时，声明此变量的数据类型为货币类型。
2.当作为标识符或要赋给常量的数值的后缀时，声明常量的数据类型为货币类型。
*
1.在固定长度的字符串声明中表示字符串的长度。
星号
2.在表达式中作为乘法运算符。
( )圆括号
1.将表达式分组，控制表达式中元素赋值的顺序。
2.封闭函数或过程调用中的一个传值参数。
3.封闭函数和过程定义中的参数列表、函数和过程的调用参数列表。
_下划线
前面加上至少一个空格或者制表符时，将当前行延续到下一行。

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

4
LotusScript version of @LeftBack
Function StringLeftBack (text As String, searchTerm As String, caseSensitive As Integer) As String '** Example: StringLeftBack("", ".", True) would '** return "www.lotus" '** If the searchTerm isn't found, nothing is returned Dim pos As Integer '** If there is no searchTerm, just exit If (searchTerm = "") Then StringLeftBack = text Exit Function End If '** try to find the searchTerm, using the custom '** InstrLast function pos = InstrLast(1, text, searchTerm, caseSensitive) If (pos > 0) Then StringLeftBack = Left$(text, pos - 1) Else StringLeftBack = "" End If End Function
lotusscpt字符串操作实例lotusscript实例repefunctionstringtolistthistextstringdelimlistseparatingspecifieddelimiter

lotusscript中一些对多值文本域的操作总结多值文本域在编程时还是挺常用的，它在LS中属于Variant一类，是一个Variant列表。

偶谨总结一下多值文本域的常用操作，会的一笑置之便了，没遇到过的希望能有所帮助。

[1] 查询一个字符串"teststring"是否在多值文本域"MultiText"中。

dim item as NotesItemset item = doc.GetFirstItem("MultiText")if item.Contains("teststring") thenmessagebox("ok")end if[2] 向多值文本域追加一个字符串。

dim item as NotesItemset item = doc.GetFirstItem("MultiText")call item.AppendT oTextList("teststring")[3] 删除多值文本域中的一个字符串。

doc.MultiText = FullTrim((ArrayReplace(doc.MultiText, "teststring", ""))[4] 替换多值文本域中的一个字符串。

doc.MultiText = ArrayReplace(doc.MultiText, "teststring", "replacedstring")[5] 追加一个多值文本域到另外一个多值文本域上。

doc.MultiText = ArrayAppend(doc.MultiText, doc.MultiTextAppend)[6] 确定一个字符串在多值文本域中的位置。

p = ArrayGetIndex(doc.MultiT ext, "teststring")[7] 提出多值文本域中第2个元素。

首页-->LOTUS文章-->LOTUS Scrpit编码指南编写公式的方法一个公式中含有一条或多条按顺序执行的语句。

根据与公式相关联的对象和其他标准的不同，公式可以在所选的文档上运行一次或多次（每个文档运行一次）。

除了从公式返回以外，公式中没有循环和控制跳转的语句。

公式中对条件执行路径也有限制。

代理公式将在选定的文档上多次地、有条件地执行。

您可以：编写可得出计算结果的公式以下公式都应该有最后结果：复制公式必须得出结果为真 (1) 或假 (0)，并且可以应用到数据库的每个文档上。

表单公式必须得出表单名称。

选择公式必须得出结果为真 (1) 或假 (0)，并且可以应用到视图中的每个文档上。

列公式必须得出一个可以转换成文本字符串的值。

显示操作公式必须得出真 (1) 或假 (0)。

弹出式公式必须得出一个文本串。

窗口标题公式必须得出一个文本或数字值，除非公式由一个任意类型的单独的域组成。

区段存取公式必须得出一个姓名或姓名列表。

插入子表单公式必须得出一个子表单的名称的文本值。

区段标题公式必须得出一个文本或数字值，除非公式由一个任意类型的单独的域组成。

段落隐藏公式必须得出真 (1) 或者假 (0)。

缺省值公式必须得出一个可以存放在当前域中的值。

输入转换公式必须得出一个可以存放在当前域中的值。

缺省校验公式必须得出是成功 (1) 还是失败 (0)。

计算域公式必须得出一个可以存放在当前域中的值。

关键字公式必须得出一个可以存放在当前域中的值或值的列表。

这些公式可以简单到只有一个域、常量或者函数，也可以包含很多语句、使用临时变量、更改域的内容或者产生一些附加效果。

但不论如何，其最后一个语句必须是一个合适的值。

如果关键字 SELECT 没有显式指定的话，它会加在一个逻辑语句之前，这个逻辑语句用来终止复制或选择公式。

这些公式运行于数据库（复制公式）或视图（选择公式）的每一个文档上，以确定复制和查看过程中包括或不包括哪些文档。

Ｇ１－５
° 如：挑出 １￣１００ 之间包含 ３，但不包含 ２ 的数字
− Ｆｏｒ ｘ ＝ １ Ｔｏ １００
Ｉｆ ＣＳｔｒ（ｘ） Ｌｉｋｅ ＂［！２］３＂ Ｔｈｅｎ Ｐｒｉｎｔ ｘ
Ｎｅｘｔ ｘ
− ＇Ｒｅｓｕｌｔｓ： １３ ３３ ４３ ５３ ６３ ７３ ８３ ９３
√ Ｏｂｊｅｃｔ • Ｉｓ：判断 Ｏｂｊｅｃｔ 是否相同 • ＩｓＡ：判断 Ｏｂｊｅｃｔ 的继承及派生关系
√ 完整声明： • 如：Ｄｉｍ ｔｍｐ＿ｓｔｒＮａｍｅ Ａｓ Ｓｔｒｉｎｇ， ｔｍｐ＿ｓｔｒＴｉｔｌｅ Ａｓ Ｓｔｒｉｎｇ
√ 隐含声明： • 如：Ｄｉｍ ｔｍｐ＿ｓｔｒＮａｍｅ￥， ｔｍｐ＿ｓｔｒＴｉｔｌｅ￥ • 如：在未声明时使用：ｍｙＳｔｒｉｎｇ￥ ＝ “Ｓｔｒｉｎｇ Ｖａｌｕｅ”
√ 定长字符串声明： • 如：Ｄｉｍ ｔｍｐ＿ｓｔｒＮａｍｅ Ａｓ Ｓｔｒｉｎｇ ＊ １０
° 强制符号：＆
> 如：７， ％７７， ＆７７７ • 浮点数：
> Ｓｉｎｇｌｅ（４－Ｂｙｔｅ）
° 强制符号：！
> Ｄｏｕｂｌｅ（８－Ｂｙｔｅ）
° 强制符号：＃
> 如：７．７， ！７０．７， ＃７０．７Ｅ＋０２ √ Ｃｕｒｒｅｎｃｙ：（８－Ｂｙｔｅ）
• 强制符号：＠ √ Ｓｔｒｉｎｇ：（２－Ｂｙｔｅ）
共9页
第6页
LotusScript 语言介绍
• Ｎｅｘｔ ［ｃｏｕｎｔＶａｒ］ √ ＦｏｒＡｌｌ 语句：
• ＦｏｒＡｌｌ ｒｅｆＶａｒ Ｉｎ ｃｏｎｔａｉｎｅｒ ｓｔａｔｅｍｅｎｔｓ Ｅｎｄ ＦｏｒＡｌｌ
√ Ｗｈｉｌｅ 语句： • Ｗｈｉｌｅ ｃｏｎｄｉｔｉｏｎ ｓｔａｔｅｍｅｎｔｓ Ｗｅｎｄ