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