Anonymous user
Array concatenation: Difference between revisions
no edit summary
m (Added Klong example) |
No edit summary |
||
Line 2,838:
}
}</lang>
=={{header|VBA}}==
<lang vba>
Option Explicit
Sub Main()
Dim Aray_1() As Variant, Aray_2() As Variant
Dim Result() As Variant
Aray_1 = Array(1, 2, 3, 4, 5, #11/24/2017#, "azerty")
Aray_2 = Array("A", "B", "C", 18, "End")
Result = Concat_Array(Aray_1, Aray_2)
Debug.Print Join(Result, ", ")
End Sub
Function Concat_Array(A1() As Variant, A2() As Variant) As Variant()
Dim N As Long, i As Long
'ReDim and Preserve the first Array
N = UBound(A1) + 1
ReDim Preserve A1(N + UBound(A2))
'Loop
For i = N To UBound(A1)
A1(i) = A2(i - N)
Next
'return
Concat_Array = A1
End Function
</lang>
<pre>
Aray_1 = Array(1, 2, 3, 4, 5, #11/24/2017#, "azerty")
Aray_2 = Array("A", "B", "C", 18, "End")
Aray_1 + Aray_2 = array(1, 2, 3, 4, 5, 24/11/2017, azerty, A, B, C, 18, End)
</pre>
=={{header|VBScript}}==
| |||