lotusscript基本语法

LotusScript基本语法

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

1.声明变量

Dim Variablename as type

dim是dimension的缩写，为变量的值在内存中创建一个空间。

Variablename 是变量的名称，一个变量的名称一定要以字母开头，其后可以是字母、任何数字以及下划线，变量的名称不区分大小写，最多可容纳40个字符。Lotus中有

一些保留字，大部分是指令和语句，它们不能被用做变量名。

type是数据类型，可以是Boolean、Byte、Integer、Long、Single、Double、Currency、String、Variant 当然以后在介绍面象对象的时候还涉及到类和对象的定义，也是这个声明格式，这些在以后再介绍。

类型值

Size

Boolean 真 (-1) 或假 (0) 2字节

Byte 从0到255的整数

1字节

Integer 从-32768到32767的整数

2字节

Long 从-2147483648到2147483647的整数

4字节

Single 从-3.402823 E+38到3.402823E+38的任何数字

4字节

Double 从-1.7976931348623158E+308到

1.7976931348623158E+308的任何数字 8字节

Currency 从-922337203685411.5807到-922337203685411.5807的任何数字。

货币变量可能多有4个十进制位置 8字节

String 任何无格式文本值

每个字符两2个字节

Variant 任何值

16字节

2.列表定义

List 类型为1 维的数组

用户可以通过给Dim语句添加List运算符来声明一个列表。

声明：Dim Variablename List as Type

Dim :定义变量

Variablename 列表的名称

List 定义为列表

Type 列表的类型

例子：

Dim PriceList List as Currency

Dim ItemName as String

PriceList(“apple”)=1.05

ItemName=”Oranges”

PriceList(itemname)=1.85

Messagebox PriceList(itemname)

输出结果为：弹出对话框 1.85

3.数组

数组是一组顺序下具有一系列的值，有一维数组，二维数组，LotusScript最多可以有8维。

声明一维数组：Dim valArray(5) as Integer 或 Dim ValArray(0 to 5) as integer

这个数组的下标是从0开始到5，也就是数组ValArray有6个元素。

声明二维数组：dim TwoArray(1 to 5, 1 to 4) as Integer

这个数组的第一个元素是TwoArray(1,1) ,是一个二维数组

使用Option Base来改变数组的底数

当使用数组时，如果你的大脑能够很自然地想清楚它是从0开始而不是从1开始的，那么无论何时你要给arrayname(0)赋值都将不是问题。但是如果对这一点存在疑问，

你可以通过改变LotusScript的功能来采取一些措施。如果你进入到Options例程中，便可以添加”Option Base n”的命令行，n是默认的数组底限。添加Option Base 1,将使默认的数组底限设置为1，则arrayname(1)会成为数组的第一个成员。然而，当你使用多维数组的时候，需要小心使用Option Base. Option Base将把一个三维数组的中心从(0,0,0)移动到(1,1,1),这是一个有趣的数学问题。

声明变长数组：Redim valarray(5) as string

变长数组是指原来的数组个数不够用时，需要重新定义数组的长度，有两种情况：

一．先定义了一个数组，但是没有声明个数(dim valarray() as string),在以后用到的时候才用Redim来重新声明。如下例所示,输出zys字符串：

Dim valarray() as string

Redim valarray(4) as string

valarray(0)=”zys”

messagebox valarray(0)

二．先声明了一个数组，并且给这个数组中的元素赋了值，然后想要重新定义数组的个数，可用Redim来重新声明，如果用户已经给数组赋了值，并且想保留它们，可以用PRESERVE关键字来进行保存，以防重新改变它们大小时，值被擦除掉。如下例所示：

例1：

Redim valarray(1) as integer

Valarray(0)=1

Redim valarray(2) as integer

Messagebox valarray(0)

输出结果为：0

例2：

dim valarray() as integer

Redim valarray(2) as integer

Valarray(0)=1

Messagebox valarray(0)

输出结果为：0

例3：

以下是重新定义了数组后保留了原值的例子: Redim valarray(1) as integer

Valarray(0)=1

Redim preserve valarray(2) as integer

Messagebox valarray(0)

输出结果为：1

例1和例2的区别就在于第一次定义后能不能附值，在例1中第一次定义用的是redim, redim定义数组时必须定义该数组的上界，且定义以后可以直接赋值使用; 而例2中第一次定义用的是dim, dim定义数组时如果定义了上界，则可以直接赋值使用，并且不能再用redim重新定义，如果没有定义上界，则不能直接使用，并且必须用redim重新定义后才能赋值使用。

两关于数组的特殊的函数

Lbound(valarray) 输出数组的下界

Ubound(valarray) 输出数组的上界

1.if语句

if condition1 then

statement1

elseif condition2 then

statement2

else

statement3

end if

2.select case语句

select case selectexpr

Case conditionList

Statements

Case conditionList

Statements

…

Case Else

Statements

End Select

3.for语句

for conntvar=first to Last [Step increment]

statements

next [countvar]

4.while语句

While condition

Statements

Wend

5.Do While/until Loop语句

永远循环

Do

Statements

Loop

先检查条件，再循环

Do while condition

Statements

Loop

Do until condition

Statements

Loop

先循环，后检查条件

Do

Statements

Loop while condition

Do

Statements

Loop until condition

6. Forall

ForAll refVar in container statements

End ForAll

例子：

Sub Click(Source As Button)

Dim short(5) As Integer

Forall x In short

x=1

End Forall

End Sub

结果：给short数组的每个元素赋值

中途退出循环

Exit LoopType

说明：looptype: for, while, do

子事例、函数、声明、作用域

1. 子事例

子事例也就是子过程，在编程窗格中单击一个按钮的click子事例就会打开如下click 子事例：

Sub Click(Source As Button)

messagebox “hello word!”

End Sub

你可以在这个子事例中写出代码，如messagebox “hello word!”，这是系统默认建立的一个单击子事例，同样的你可以建立自己的子事例如下：

Sub Click(Source As Button)

messagebox “hello word!”

dim name=”lotus script”

OutputName(name) ‘调用子事例OutputName

End Sub

Sub OutputName(name as string) ‘建立的新子事例，功能是输出参数name的值

Messagebox name

Sub

输出结果为：弹出窗口lotus script

子事例是没有返回值的，函数的使用和子事例差不多，但是函数有返回值。如果想在子事例中返回一个值的话可以定义一个全局变量，然后给这个变量赋值就能达返回值的功能，如何定义一个全局变量将在作用域中讲到。

2. 函数

程序员都知道函数的作用，我就不多说了，这里只说明一下定义和使用的格式

Sub Click(Source As Button)

Dim a As Integer

Dim b As Integer

Dim c As Integer

a=3

b=4

c=Sun(a,b) '使用求和函数得到a和b 的和

Messagebox Cstr(a)+"+"+Cstr(b)+"="+Cstr(c)

End Sub

Function Sun(a As Integer ,b As Integer ) As Integer '定义函数Sun, 功能是返回两个参数的和

c=a+b

sun=c '给函数名赋值就是这个函数的返回值。

End Function

输出结果：弹出对话框a+b

3. 控制变量是否在需要声明才有效

如果用户在脚本的options部分中设置了option declare, 那么就一定要声明所有的变量，不管它们是什么类型。默认是可以不声明的，如下例：

例1 （没有设置 option declare）

Sub Click(Source As Button)

TestVar=”hello word !”

Messagebox TestVar

End Sub

输出结果为：（弹出对话框）hello word!

例2 （设置了 option declare）

Option Declare

Sub Click(Source As Button)

TestVar=”hello word !”

Messagebox TestVar

End Sub

在保存的时候就会出现错误：Variable not declared:TestVar

4. 作用域

LotusScript的作用域分为三个，从小到大分别为:子事例或函数、对象(如按钮、域等)、窗体(如表单、视图等)

(1)子事例或函数

如果在子事例或函数中定义的变量只能在此子事例或函数中使用，在另外一个是不能用的，如下：

Sub Click(Source As Button)

Dim TestVar As String

Testvar="hello word!"

End Sub