LotusScript (转)

LotusScript是一种使用于Lotus Notes客户端程序或者是用于Domino服务器程序代理列表中的脚本语言。相当于用于网页中的脚本语言JavaScript。（JavaScript以可以用于Lotus Notes程序。）被描述为“类似BASIC”的 LotusScript在访问后台数据库和驱动客户端用户界面方面也很有用。LotusScript可以使用Lotus Domino Designer开发环境进行代码编程.

注释

     注释在程序运行中并不执行，只是让程序员在编写程序的时候添加的一些标记性的文字，但他的作用可不容忽视,在编写一个程序模块时说明这个模块的功能、作用、创建时间、作者等，这对以后的维护大有好处。一般在用户的脚本中插入头信息是一个不错的想法，如下事例：

‘Script name: Connect internet

‘Author: zynet

‘Last Modified: 6/23/08

‘Description: Connect my webserver.

1.单行注释：通过输入一个单引号( ‘ )或REM ( Remark的缩写 )来添加。

2.多行注释：%Rem …%End Rem 所以以上例子也可以写成这样：

   %REM

    Script name: Connect internet

Author: zynet

Last Modified: 6/23/08

Description: Connect my webserver.

%END REM

变量和数据类型

1.声明变量

Dim Variablename as type

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

    Variablename 是变量的名称，一个变量的名称一定要以字母开头，其后可以是字母、任何数字以及下划线，变量的名称不区分大小写，最多可容纳40个字符。Lotus中有一些保留字，大部分是指令和语句，它们不能被用做变量名。

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

类型 值 Size

 

类型	值	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字节

Variant类型是这几种数据类型中最特殊的，他是一个变体类型，当定义的一个Variant型的变量时，可以给他赋以上任何一种类型的数据。但是他也是占用内存最多的一个数据类型。

    Currency类型则是最不常用到的，我以前都不知道有这样一个类型，如果有高手看到这里有不同的看法，可以发邮件给我，大家交流一下，可能有其他的特殊用途。

2.列表

用户可以通过给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 condition then

   statements

Elseif condition then

   statements

   ……

Else

   statements

End if

2.Select语句

Select Case selectexpr

Case conditionList

   Statements

Case conditionList

   Statements

   …

Case Else

Statements

End Select

3.语句

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

Sub outputStr

Messagebox testvar

End Sub

输出结果：弹出对话框为无值

因为TestVar是在Click子事例中定义的，所以只能在Click子事例中使用，在OutputStr子事例中是不起作用的。

(2) 对象(如按钮、域等)

     在对象中定义的变量中能在此对象中使用，包括这个对象的所有子事例，在另外一个对象中是不能用的，如下：

     Dim TestVar as String         ‘在(Declarations)中定义

     Sub Click(Source As Button)

   Testvar="hello word!"

End Sub

Sub outputStr

   Messagebox testvar

End Sub

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

因为TestVar是在对象中定义的，所以在这个对象中的所有子事例或函数都起作用。

   (3) 窗体(如表单、视图等)

在窗体中定义的变量可以在这个窗体中的任何对象中使用，如下：

‘(Globals)test 窗体

Dim TestVar as String

Button1(按钮)

      Sub Click(Source As Button)

    Testvar="hello word!"

End Sub

‘Button2(按钮)

      Sub Click(Source As Button)  

    Messagebox Testvar

End Sub

     执行操作，先按Button1,再按Button2

     输出结果为：弹出窗口hello word!

     因为TestVar是在test窗体中定义的，所以对这个窗体中的所有对象都是起作用的，Button1和Button2都是这个窗体的两个对象，先按Button1是给TestVar赋值，再按Button2是输出TestVar的值。