Copy array data to another array using vb6

Question

How can I pass the data of an Array to another Array using VB6?

yes, because I have a computation in my program I should retain the data of current time that's why I needed it. Array2 - Array1 then after the computation I will pass the data of Array2 to Array1 so that the Array1 must have already a value and the Array2 must be empty — user3391894
– user3391894, Commented Apr 7, 2014 at 4:28

GSerg · Accepted Answer · 2014-04-07 10:03:43Z

7

In VB6, array is copied on a simple assignment.

Dim arr1() As Long
Dim arr2() As Long

ReDim arr1(1 To 10)
'Fill arr1 with data

arr2 = arr1

answered Apr 7, 2014 at 10:03

GSerg

78.8k18 gold badges173 silver badges377 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

user2240058 Over a year ago

I think this only works if its dynamic but its definitely the simplest way.

MarkJ Over a year ago

+1 Just for fun: you can also use API calls but its much much harder xbeat.net/vbspeed/c_SliceLng.htm

GSerg Over a year ago

@MarkJ When it comes to fun, it is more fun to create linked subarrays ;)

user2240058 · Accepted Answer · 2014-04-07 09:56:28Z

0

Try this:

        Dim lArray1(3) As Long
        Dim lArray2(3) As Long
        Dim count As Long

        lArray1(0) = 1
        lArray1(1) = 2
        lArray1(2) = 3

        lArray2(0) = 10
        lArray2(1) = 20
        lArray2(2) = 30

        For count = LBound(lArray1) To UBound(lArray1)
            lArray2(count) = lArray1(count)
        Next count

        Erase lArray2

if its not fixed length you will need to use redim in the loop.

answered Apr 7, 2014 at 9:56

user2240058

Comments

user3391894 · Accepted Answer · 2014-04-08 01:15:25Z

0

I have already answered my questions :) Thank you guys for the help but this is what I did.

'Delete items in Array first
            For lngIndex = 0 To UBound(time2) - 1
                time2(lngIndex) = time2(lngIndex + 1)
            Next
'Next thing is
'Insert items in Array
            For lngIndex = UBound(time1) - 1 To 0 Step -1
                time1(lngIndex + 1) = time2(lngIndex)
            Next

This code solve my problem :)

answered Apr 8, 2014 at 1:15

user3391894

71 gold badge2 silver badges16 bronze badges

Collectives™ on Stack Overflow

Copy array data to another array using vb6

3 Answers 3

3 Comments

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

3 Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related