LotusScript语言的基本知识

一、概述

LotusScript是一种和Basic相兼容的面向对象的Scripting环境，它具有强大的能够从事面向对象应用软件开发的语言范围，能够提供循环和分支的能力、数组以及访问Notes对象的能力。

判断Notes中什么时候使用LotusScript或公式语言

1)任何时候当执行该任务的函数或命令存在时，使用公式。

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

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

4)若公式语言不能办到，则使用LotusScript

在Notes应用程序中访问和操作对象需要三步进行：

1．声明对象变量DIM

DIM db As NotesDatabase

2．实例化一个类将其赋值给对象变量

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 Integer

response = 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表示A

CInt(expression) 函数 '将表达式转化为整型

CLng(expression) 函数 '将表达式转化为长整型

CSng(expression) 函数 '将表达式转化为单精度型

CStr(expression) 函数 '将表达式转化为字符串

Hex(number) 函数 '返回十六进制

Oct(number) 函数 '返回八进制

三、数组管理

Dim MyDays(7) as String '声明一个数组一共7个元素，下标为0~6

Dim MyDay(1 to 7) as String '声明一个数组下标为1~7

ReDim MyDay(1 to 3) '重新设置数组的边界和维数，这里ReDim用于定义动态数组

UBound(MyDay,1) '返回数组的上界，1表示若是多维数组，返回第一维的上界

LBound(MyDay) '返回数组的下界

LBound(MyDay,2) '返回数组第2维的下界

MyDay(1) = "Sunday" '给数组元素赋值

四、语句

1、IF ... End if

if balance > 100 then

interest = 0.35

else

interest = 0

end if

2、Select case

Select case thisMonth

case 1

Response = "January"

case 2 to 10 '也可以写成case 10,20,30或case is > 10

response = "Other"

case else

MessageBox(thisMonth & "is invalid value")

end Select

3、Do...loops和while... wend

Do while/until 条件

'语句组

loop

Do

'语句组

loop while/until 条件

while 条件

'语句组

wend

4、For...Next

For i = 1 to 5

MyDays(i) = InputBox("Enter your work days:")

Next i

5、ForAll

ForAll m in db.managers '循环显示数组db.managers中的元素

MessageBox(m)

End ForAll