Array, Subscript out of range.

koss77 · August 18th, 2006, 01:41 PM

Please help me debug this problem. The error was the subscript was out of range. here is the code:

Thank very much. The Idea seem to work but I have another problem. The value of -1 is not acceptable index for an array.
After I run the code I get this error : "subscript out of range"

Here is the part of the code that with the error:
ReDim arrArrTestNewValue(UBound(arrArrayTest))

    For n = 0 To UBound(arrFields)
            For I = 0 To UBound(arrArrayTest)
              If arrArrayTest(I, 0) = arrFields(n) Then
                arrArrTestNewValue(I) = n

                Else
               arrArrTestNewValue(I) = -1

              End If
        Next I
    Next n

    Do While inFile.AtEndOfStream = False
        record = inFile.ReadLine
        arrFields = Split(record, Separator)

        Dim k As Integer

      If arrArrTestNewValue(k) = -1 Then
            arrFields(arrArrTestNewValue(k)) = ""

BrianWren · August 18th, 2006, 04:31 PM

What VB flavor are you using? (Looks like v6; zatso?)

koss77 · August 18th, 2006, 04:37 PM

I am using VB6

BrianWren · August 18th, 2006, 05:29 PM

VB 6 allows you to specify like:

Code:

    Dim MyArray(-8 To 30) As String ' Just for instance...

So you can use negative indices.

koss77 · August 21st, 2006, 09:35 AM

Thank you very much. This is very helpfull