lotus-script语言基础文库

《lotus-script语言基础文库》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、LotusScript语言的基本知识一、概述LotusScript是一种和Basic相兼容的面向对象的Scripting环境，它貝有强大的能够从事面向对象应用软件开发的语言范围，能够提供循环和分支的能力、数组以及访问Notes对彖的能力。判断Notes中什么时候使用LotusScript或公式语言1）任何时候当执行该任务的函数或命令存在时，使用公式。2）对于复朵的程序控制或循环，使用LotusScripto3）存取或操作储存的文档数据要使用LotusScript,特别对于跨文档、跨数据库的存取。

2、4）若公式语言不能办到，则使用LotusScript在Notes应用程序中访问和操作对象需要三步进行：1.声明对象变量DIMDIMdbAsNotesDatabase2.实例化一个类将其赋值给对象变量SETdb=NewNotesDatabase（"Domestic","Sales.nsf"）3.使用这个对象的方法或属性db.created'用来展现创建数据库时的日期和时间二、NotesScript中的数据元素NotesScript中的常量Null'特殊值，代表数据遗失或空Empty'相当于””,也

3、就是空串Nothing'涉及变量的初始值，表示对象变量没有内容P1'圆周率True/False，分别为数值1和0数据类型Integer（整型）Long（长整型）Single（单精度型）Double（双精度型）Currency（货币型）String（字符串）运算符+-*/<><>=NotAndOR&常量和变量DimaddressAsString'定义变量address=〃100MainStreet"'变量赋值Constaddress二"100MainStreet"'创建字符常量address通信输

4、入和输出DimresponseasIntegerresponse=Inputbox（Z/Doyouwanttocontinue"）'弹出输入框输入Messagebox（response）弹出输出窗口输出数据注释1.单行注释：用Rem或’号2.多行注释：用％1^山和%EndRem%Rem'多行注释实例ThefirststatementinthisScriptdeclaresavariablemyName.Thesecondassignthevalue"Robert"tomyName.Thethir

5、dstatementdisplaythevalueofmyName・%EndRem数据类型转换CBool(expression)函数’将表达式转化为彳j尔型CByte(expression)函数’将表达式转化为字节黑CCur(expression)函数’将表达式转化为货币型CDate(Strin*)函数’将字符串转化为日期型CDbl(expression)函数’将表达式转化为双精度型Chr(Integer)函数’返回整数Ascii码对象的字符,例如65表示ACInt(expression)CLn

6、g(expression)CSng(expression)CStr(cxprcssion)Hex(number)函数函数’将表达式转化为整型函数’将表达式转化为长整型函数’将农达式转化为单精度型函数’将表达式转化为字符吊'返回十六进制Oct(number)函数’返冋八进制三、数组管理DimMyDays(7)asString'声明一个数组一共7个元素，下标为0〜6DimMyDay仃to7)asString'声明一个数组下标为1〜7ReDimMyDay(1to3)'重新设置数组的边界和维数，这里Re

7、Dim用于定义动态数组UBound(MyDay,1)'返回数组的上界，1表示若是多维数组，返回第一维的上界LBound(MyDay)'返回数组的下界LBound(MyDay,2)'返冋数组笫2维的下界MyDay(1)="Sunday"'给数组元素赋值四、语句1、IF…Endififbalance>100theninterest二0.35elseinterest二0endif2、SelectcaseSelectcasethisMonthcase1Response二"January"case2to1

8、0'也可以写成case10,20,30或caseis>10response="Other"caseelseMessageBox(thisMonth&〃isinvalidvalue")endSeiect3、Do.・・loops和while・・・wendDowhile/until条件'语句组LoopDo'语句组loopwhile/until条件while条件'语句组wend4、For...NextFori=1to5MyDays(i)二InputBox("Enteryourworkdays:，z)Ne