LotusScript中使用ArrayAppend的一个小技巧

在LotusScript中使用ArrayAppend的时候,语法大概如下:
array1 = ArrayAppend(array1,array2)
顾名思义就是把array2合到array1中去,其中根据Help的说法,array2不一定要是数列,但是array1必须是数列!
这个要求很讨厌,因为这意味着我们在自己从0开始造一个数组的时候,都不能用非常好用的ArrayAppend,而是要没完没了的在for循环在redim。
就是说下面这个看似很合理的写法,却会被提示不符合语法。
v = 1
v = ArrayAppend(v,2)
但是我们知道如果v是一个数列的话,那就没有这个问题了,如果你不想redim的话,那么下面这个小技巧将非常好用。
v = Split(1)
v = ArrayAppend(v,2)

Split将为我们强行制造一个数列,而这个数列里只有一个值,即1,这样既不会破坏v的值,也解决了语法问题。

一个实际应用就是:

Dim i As Integer, numberlist As VariantnumberList = Split( 1 )For i = 2 To 20numberList = Arrayappend( numberlist, i )NextPrint Join( numberList, ", " )'Prints 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20


 

原文地址:https://www.cnblogs.com/hannover/p/2299055.html