Combine/Join Two Arrays 2

[MrMeric]

I must be thinking too hard because I can't get this to work for the life of me.

How would I combine two arrays into one?

i.e.
----------------
aOne(0) = "zero"
aOne(1) = "one"

aTwo(0) = "two"
aTwo(1) = "three"
aTwo(2) = "four"
----------------

I would like to somehow combine these two, and make one array.

How do I do this?

 

[JohnYingling]

The old fashioned way
Dim aThree() as String
dim iNbr as Integer
iNbr = Ubound(aOne) + 1 Ubound(aTwo) + 1
Redim aThree(iNbr - 1)
Dim I as Integer
Dim J as Integer
J = -1
For I = 0 To Ubound(aOne)
J = J + 1
aThree(j) = aOne(i)
Next
For I = I To Ubound(aTwo)
J = J + 1
aThree(j) = aTwo(I)
Next

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

 

[Hypetia]

Just another thought...

Use the Split/Join combination.
___
[tt]
Private Sub Form_Load()
Dim aOne(1) As String, aTwo(2) As String
aOne(0) = "zero"
aOne(1) = "one"

aTwo(0) = "two"
aTwo(1) = "three"
aTwo(2) = "four"

Dim aThree() As String, N As Long

aThree = Split(Join(aOne, vbNullChar) & vbNullChar & Join(aTwo, vbNullChar), vbNullChar)

For N = 0 To UBound(aThree)
Debug.Print aThree(N)
Next
End
End Sub[/tt]