Solved

# Transferring Array Contents

Posted on 2013-11-23
218 Views
Is there a way to transfer the contents of one array to another and still keep the original array?  Here is what I want to do:

``````        For i = 0 To UBound(RaceBibs) - 1
AvailBibArr(k) = RaceBibs(i)
k = k + 1
ReDim Preserve AvailBibArr(k)
Next i
``````

Thanks!
0
Question by:Bob Schneider
• 4
• 3
• 2
• +1

LVL 76

Accepted Solution

GrahamSkan earned 250 total points
ID: 39671754
Yes. Your code looks OK, but and this is a little simpler and faster:

Sub txarray()
Dim i As Integer
Dim AvailBibArr() As Integer ' ? Same type as RaceBibs

ReDim AvailBibArr(UBound(RaceBibs))
For i = 0 To UBound(RaceBibs)
AvailBibArr(i) = RaceBibs(i)
Next i
End Sub
0

LVL 8

Assisted Solution

Mohit Vijay earned 126 total points
ID: 39671769
ReDim Preserve not require for second array, as you know the size of the array, it will be same as first array, isnt it?

so declare the second array with size initially. apart from that your code looks ok. If you use C# or Visual studio, there are many other generic types and functions available to do this. but it seems you are using VB 6 or older. So your code is fine, except above size initialization.
0

LVL 76

Assisted Solution

GrahamSkan earned 250 total points
ID: 39671800
VjSoft,

Thank you for the explanation that I omitted.

Actually, there is an even simper solution, which uses the Variant type, which I try to avoid. In that method, you declare the new array as a variant.

``````Sub txarray()
Dim AvailBibArr
Dim RaceBibs(2) As String

RaceBibs(1) = "X"
RaceBibs(0) = "Z"
RaceBibs(2) = "A"
AvailBibArr = RaceBibs

End Sub
``````
0

LVL 8

Assisted Solution

Mohit Vijay earned 126 total points
ID: 39671808
GrahamSkan,

Agree! But this is having performance impact, because at runtime you will decide the size, you dont know the size of array at compile time. Apart from that this is also fine for small type of arrays.
0

Author Comment

ID: 39671811
Semi-related question:  If you have to include different types of data in a multi-dimensional array, do you have to user Variant data type?
0

LVL 76

Assisted Solution

GrahamSkan earned 250 total points
ID: 39671843
I am always willing to learn, but I believe that all elements in an array, including multi-dimensional arrays must have the same type.
0

LVL 92

Assisted Solution

Patrick Matthews earned 124 total points
ID: 39671912
Graham,

All dimensions of an array must be of the same type, but if you declare the array as type Variant (or omit a specific type in the declaration), then each element will be a variant, and a Variant element can in fact hold any data type.

:)

Patrick
0

Author Comment

ID: 39672637
How do you create an array like, say TestArr(3, 0) that is populated on the fly and data type each element?
0

LVL 92

Assisted Solution

Patrick Matthews earned 124 total points
ID: 39672830
As I wrote above, if you need to accommodate a mix of data types in your array, then declare it as a Variant.  In doing so, you make each element in the array a Variant, and a Variant can store any other data type.
0

LVL 76

Assisted Solution

GrahamSkan earned 250 total points
ID: 39672835
Patrick,
Thanks for pointing that out. I had forgotten.

BobbaBuoy,
I'm not sure that I understand that query, but here is some code to demonstrate what Patrick has just described.
``````Dim TestArray(3, 0) As Variant
Dim i As Integer

TestArray(0, 0) = 2
TestArray(1, 0) = 1.234
TestArray(2, 0) = TestArray(0, 0) * TestArray(1, 0)
TestArray(3, 0) = "abc"
For i = 0 To 3
Debug.Print TestArray(i, 0)
Next i
``````
0

Author Comment

ID: 39672840
Thanks.  That is good clarification.
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question