Dim myDynamicArray() As String

Dim ステートメントには配列の次元についての情報は入っていないので、ステートメントは String 型の要素を持つ動的配列の名前として myDynamicArray という名前を単に予約するだけです。

動的配列を宣言する場合、次元や要素はなく、記憶域も割り当てられません。配列は ReDim ステートメントで次元と範囲を指定するまでは使用できません。ReDim ステートメントは、配列のサイズを定義し、要素用に記憶域を割り当てて初期化します。ReDim ステートメントの構文は、次のとおりです。

ReDim [ Preserve ] arrayName ( bounds ) [ As dataType ]

ここで、arrayName は空の範囲リストを使って宣言した配列の名前、bounds は範囲リストで、この配列に定義する次元の数と範囲を指定します。As dataType は配列で保持される要素のデータ型を指定します。これは Dim ステートメントで定義したデータ型と同じでなければなりません。オプションの Preserve キーワードは、arrayName 内の要素の現在の値を保持するように LotusScript に指示します。これは、Dim で動的配列を定義し、ReDim でサイズを定義して要素に値を代入した後で、配列を拡張して新たな要素を追加して値を代入する場合に便利です。たとえば、次のようになります。

Option Base 1
' Declare a dynamic String array.Later, this is
' defined as a one-dimensional array whose elements
' are assigned values that the user enters.
Dim myNames() As String
Dim ans1 As Integer
Dim ans2 As Integer
Dim counter As Integer
Dim userInput As String
' Ask the user to enter a number and assign it to ans1%.
ans1% = CInt(InputBox$ _
("How many names would you like to enter?"))
' Use ans1% as the upper bound of the array's only dimension.
ReDim myNames(ans1%)
' Elicit ans1% strings from the user, and assign them
' to successive elements in the array.
For counter% = 1 to ans1%
myNames(counter%) = InputBox$("Enter a name:")
Next
' Print the contents of the array on a single line
' with a space between the value of each element.
For counter% = 1 to ans1%
Print myNames(counter%) " " ;
Next
' Output:a newline
Print ""

' Ask the user for another number and assign it to ans2%.
ans2% = CInt(InputBox$("How many more names?"))
' If the number is greater than 0, resize the
' array, preserving its original values, so that the
' user can enter additional values.
If ans2% > 0 Then
ReDim Preserve myNames(ans1% + ans2%)
' Elicit the new values and assign them to the
' elements that have been allocated after the old ones.
For counter% = 1 to ans2%
myNames(counter% + ans1%) = InputBox$("Enter a name:")
Next
' Print the contents of the array on a single line
' with a space between the value of each element.
For counter% = 1 to ans1% + ans2%
Print myNames(counter%) " " ;
Next
Print ""
End If

Preserve キーワードを使用する動的配列のサイズを定義するために最初に適用した ReDim ステートメントによって、その配列の次元数が永続的に定義されます。範囲リスト中の上限値または下限値は、使用する ReDim ステートメントに Preserve キーワードが含まれない限り、後で変更できます。範囲を変更すると、LotusScript は範囲リストで指定された量の記憶域を割り当て直し、配列要素をそのデータ型に適切な既定値で初期化します。ReDim ステートメントに Preserve を含めた場合、値を大きくして変更できるのは、配列の最後の次元の上限値だけです。その場合、LotusScript は適切な量の記憶域を追加で割り当て、追加された配列要素を初期化します。ReDim ステートメントで配列の次元数や要素のデータ型を変更することはできません。
Erase ステートメントを使用するErase ステートメント を使用して、動的配列に現在割り当てられているすべての記憶域を取り戻すことができます。 固定長配列に適用された場合、Erase ステートメントは配列要素の初期化だけを行います (配列要素のデータ型に応じて、ゼロ、空の文字列、EMPTY、または NOTHING に初期化します)。
組み込み関数を使用するIsArray 関数を使えば、ある識別子が既存の配列の名前であるかどうか判断できます。また、DataType 関数を使えば、ある配列が固定長配列であるか、あるいは動的配列であるかを判別できます。また、DataType 関数や TypeName 関数を使って、配列要素のデータ型を調べられます。配列要素の操作には、スカラー値を操作する LotusScript の組み込み関数を使用できます。たとえば、次のようになります。
' Declare arrays with a base of 1 and containing 10 elements

Dim myDblArray(1 To 10) As Double
Dim anIntArray(1 To 10) As Integer
Dim counter As Integer

' Seed the random number generator.
Randomize
' Populate myDblArray with random numbers
' greater than 0 and less than 1.
For counter% = 1 To 10
myDblArray(counter%) = Rnd()
Next

' Populate anIntArray with the elements of myDblArray
' after rounding to one decimal place, multiplying
' by 10, dividing by 10 and adding 1 to the remainder
' to yield a whole number between 1 and 10.
For counter% = 1 To 10
anIntArray(counter%) = _
((Round(myDblArray(counter%), 1) * 10) Mod 10) + 1
Next

' Test the first element of anIntArray for its data type.
Print TypeName(anIntArray(1))
' Output:INTEGER

' Print the contents of myDblArray and anIntArray.
For counter% = 1 To 10
print myDblArray(counter%) & " " & anIntArray(counter%)
Next
' Output:something like the following:
' .402520149946213 5
' .530154049396515 6
' .309299051761627 4
' 5.76847903430462E-02 2
' 2.41877790540457E-02 1
' .988802134990692 1
' .688120067119598 8
' .493557035923004 6
' .28598952293396 4
' .610387742519379 7

Dim aStringArray(1 to 5, 1 to 2)
aStringArray(1,1) = "Roman"
aStringArray(1,2) = "Minsky"
aStringArray(2,1) = "Sara"
aStringArray(2,2) = "Nala"
aStringArray(3,1) = "Raymond"
aStringArray(3,2) = "Nala"
aStringArray(4,1) = "Sandra"
aStringArray(4,2) = "Brooks"
aStringArray(5,1) = "Simon"
aStringArray(5,2) = "Anders"
' Check to see if the first two characters of each element
' in the first dimension of aStringArray would be SA
' if they were uppercase.If so, print the corresponding
' element in the second dimension of the array, making
' its first character uppercase and the rest lowercase.
For counter% = 1 to 5
If UCase$(Left$(aStringArray(counter%, 1), 2)) = "SA" Then
Print UCase$(Left$(aStringArray(counter%, 2), 1)) _
& LCase$(Mid$(aStringArray(counter%, 2), 2, _
Len(aStringArray(counter%, 2))))
End If
Next
' Output:
' Nala
' Brooks

関連項目

配列
Dim ステートメント
ReDim ステートメント
クラスの配列とリスト

用語集