The array functions in LotusScript.

R6 has some improvements and enhancements to LotusScript, and since then, the interface of the Notes object has been supplemented and updated, but the language itself has not changed. Those improvements include the addition of useful functions such as arraygetindex and Arrayunique. In programming practice, however, there are some operations lotusscript that do not provide native functions, but can basically be written by themselves. The constants used in the following functions are defined in LSCONST.LSS or LSERR.LSS, and are appended before the script

%INCLUDE"LSCONST.LSS"

%INCLUDE"LSERR.LSS"

Determines whether an array contains an element.

[VB]View Plaincopy

2. %REM
4. Checks If an array contains a value.
6. The Arraygetindex function returns null if the value is not found.
8. %end REM
10. Public Function arraycontains (source As Variant, value as variant) as Boolean
12. ' The data type of source is not checked intentionally
14. Arraycontains= notIsNull (Arraygetindex (source,value))
16. End Function

The array in LotusScript can have up to eight dimensions (dimension), and the following function takes advantage of a run-time error (run-time error) Errsubscriptoutofrange to obtain the dimension.

[VB]View Plaincopy

2. ' Returns the number of an array ' s dimensions
4. Function arraydimension (array as Variant) as Integer
6. If not IsArray (array) Then
8. Arraydimension=0
10. Exit Function
12. End If
16. on Error errsubscriptoutofrange GoTo RESULT
18. Dim D As Integer, lb as integer
20. For d=1 to 9
22. Lb=lbound (Array, D)
24. Next
28. RESULT:
30. Arraydimension=d-1
32. Exit Function
34. End Function

Returns the size of a multidimensional array, that is, the number of all elements.

[VB]View Plaincopy

2. Function ArraySize (array as Variant) as Integer
4. If not IsArray (array) Then
6. Arraysize=0
8. Exit Function
10. End If
14. Arraysize=1
16. Dim D as Integer
18. D=arraydimension (Array)
20. Dim i as Integer
22. For I=1 to D
24. arraysize=arraysize* (UBound (array, i)-lbound (array,i) +1)
26. Next
28. End Function

Determine the "shape" of two arrays, i.e. whether the dimensions are the same as the upper and lower bounds of each dimension. This function is useful when comparing arrays for equality in the future.

[VB]View Plaincopy

2. Function arrayboundsequals (A1 as Variant, A2 as variant) as Boolean
4. If (notIsArray (A1)) Or (notIsArray (A2) ) Then
6. arrayboundsequals=False
8. Exit Function
10. End If
14. Dim d1 As Integer, D2 as integer
16. D1=arraydimension (A1)
18. D2=arraydimension (A2)
20. If d1<>d2 Then
22. arrayboundsequals=False
24. Exit Function
26. End If
30. Dim D as Integer
32. For d=1 to D1
34. If LBound (A1) ><lbound (A2) Or UBound (A1) ><ubound (A2) Then
36. arrayboundsequals=False
38. Exit Function
40. End If
42. Next
46. arrayboundsequals=True
48. End Function

Converts a multidimensional array into a one-dimensional array. This function is also used to compare the equality of two arrays.

[VB]View Plaincopy

2. Function arraytoonedimension (array as variant) as variant
4. If not IsArray (array) Then
6. Call SetValue (arraytoonedimension, array)
8. Exit Function
10. End If
14. Dim D as Integer
16. D=arraydimension (Array)
18. If d=1 Then
20. Arraytoonedimension=array
22. Exit Function
24. End If
28. Dim size as Integer
30. Size=arraysize (Array)
32. Dim result () as Variant
34. ReDim result (size-1)
36. Dim i as Integer
38. ForAll e in array
40. Result (i) =e
42. I=i+1
44. End ForAll
48. Arraytoonedimension=result
50. End Function
    

The array functions in LotusScript.