OpenOffice.org Macros Explained - LibreOffice-NA.US

Listing 18. Demonstrate simple array.
Sub ExampleSimpleArray1
Dim a(2) As Integer, b(-2 To 1) As Long
Dim m(1 To 2, 3 To 4)
REM Did you know that multiple statements can be placed
REM on a single line if separated by a colon
a(0) = 0 : a(1) = 1 : a(2) = 2
b(-2) = -2 : b(-1) = -1 : b(0) = 0 : b(1) = 1
m(1, 3) = 3 : m(1, 4) = 4
m(2, 3) = 6 : m(2, 4) = 8
Print "m(2,3) = " & m(2,3)
Print "b(-2) = " & b(-2)
End Sub
To quickly fill a Variant array, use the Array function (see Listing 19), which returns a Variant array with the
included data. The functions LBound and Ubound return the lower bound and upper bound of an array.
Routines supported by OOo Basic are summarized in Table 12, and discussed thoroughly later.
Listing 19. Use Array() to quickly fill an array.
Sub ExampleArrayFunction
Dim a, i%, s$
a = Array("Zero", 1, Pi, Now)
Rem String, Integer, Double, Date
For i = LBound(a) To UBound(a)
s$ = s$ & i & " : " & TypeName(a(i)) & " : " & a(i) & CHR$(10)
Next
MsgBox s$, 0, "Example of the Array Function"
End Sub
Figure 22. Different variable types in the same array.
A variable defined as an array but not dimensioned, such as Dim a(), is called an empty array. Test for an
empty array by comparing the upper bound of the array to the lower bound. If the upper bound is less than
the lower bound, the array is empty and no dimensions have been set. An array that has been dimensioned,
such as Dim a(5), is not empty.
The behavior for LBound and UBound has changed over time. Some releases of OOo produce an error for
UBound(b) and some do not. All versions should work correctly with UBound(b()). At the time of this
writing, the upper and lower array bounds for c (in Listing 20) fails because c is an empty object.
Listing 20. Parentheses are not always required but are always allowed.
Sub ArrayDimensionError
On Error Goto ErrorHandler
46