Passing array to another array in VB6

Question

I have a CSV file that will parse and put in an Array this is a DYNAMIC ARRAY after that I will get the difference between the two Arrays but I can't proceed in my computation because my second array can't get the value.

This is what i have got so far

Option Explicit

Private Sub cmd_parse_Click()

Dim adata() As String
Dim time1() As String
Dim holder1, holder2
Dim time2() As String
Dim lngIndex As Integer
Dim totaltime() As String

Do Until ft1.AtEndOfStream
  On Error Resume Next
        a = ft1.ReadLine
        b = a
        p(0) = a
        r = r + 1
        Text1.Text = r
        z = Left(b, 1)
            adata = Split(a, ",")

If Not IsNumeric(z) Then
            For i = 0 To UBound(adata)
                Text3 = adata(i)
                    If Text3 <> "Time Stamp" Then
                        ft2.WriteLine Text3
                    End If
            Next

        Else

If holder1 = "" Then
            time1 = Split(a, ",")
            For lngIndex = 0 To UBound(time1)
                holder1 = time1(lngIndex)
            Next lngIndex

        Else
            time2 = Split(a, ",")
            For lngIndex = 0 To UBound(time2)
                holder2 = time2(lngIndex)
            Next lngIndex

        End If

    'subtract array time1 from time2

        If holder1 <> "" And holder2 <> "" Then
            For lngIndex = 0 To UBound(time2)
                holder3 = time2(lngIndex) - time1(lngIndex)

            Next lngIndex
        End If
  End If
DoEvents

Loop

Can somebody help me please.

Hrqls · Accepted Answer · 2014-04-03 07:33:17Z

1

you have not completely declared the arrays time1 and time2 and totaltime yet ...

by declaring them with empty () the program doesnt know the size of the array yet ... the array adata() is dimensioned by the split() function, but the other arrays arent

have a look at redim

you probably want time1 to be the same size as adata?:

ReDim time1(UBound(adata)) As String

answered Apr 3, 2014 at 7:33

Hrqls

2,9634 gold badges38 silver badges58 bronze badges

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

3 Comments

bebebe Over a year ago

see the edited code above. Why is that my time1 and time2 has a same value?

bebebe Over a year ago

i already fix it :) I just change the lngIndex of time2 into lngIndexx then it work :) thank you for your big help @Hrqls :)

Hrqls Over a year ago

:-) <--- my cutest smile :)

Collectives™ on Stack Overflow

Passing array to another array in VB6

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related