How to initialize a two-dimensional Array

[susanta_dutta]

Hello Everybody,

We can initialize a one dimensional array in VB 6.0 as shown below

---------------------
Dim Data(), N As Integer

Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub

Private Sub Form_Load()
Data = Array("Abc", "Pqr", "Uvw", "Xyz")
For N = 0 To UBound(Data)
Combo1.AddItem Data(N)
Next
'This will initially display the first page
Combo1.ListIndex = 0
End Sub
--------------------

But Similarly how to initialize a two-dimensional Array. Following line is coming out of an error.

Dim Data1()

Data1(1 To 2, 1 To 3) = ((“EVA”, “MSA”), (“RA”, “MA8000”), (“Xyz”, “Pqr”))

I have huge data like this to be assigned to a two-dimensional array:

EVA 72GB 11111-111
MSA 36GB 22222-222
MSA 36GB 33333-333
MSA 72GB 44444-444
RA 18GB 55555-555
RA 36GB 66666-666
And so on…..

Thanks in Advance !!

Regards
Susanta

[d3gerald]

you may do it like this

dim arrStr(5,5) as string

[susanta_dutta]

I tried following

Dim data1(5, 5) As String
- - -
data1 = Array(("EVA","MSA1000"), ("RA", "MSA30", "33333-333"))

Still I am getting "Compile error: Expected: )" error on 2nd line
and it takes the cursor to the first comma(,) in the line.

Regards
Susanta

[d3gerald]

you can do this

dim data1(5, 5) as string
data1(0, 0) = "EVA"
data1(0, 1) = "MSA1000"

[da_silvy]

data1 = Array(Array("EVA","MSA1000"), Array("RA", "MSA30", "33333-333"))

[susanta_dutta]

It may be difficult to do this for hundreds of data, Is it not possible to define something like Data = Array("Abc", "Pqr", "Uvw", "Xyz") the way we do for one dimensional array.

Planning to create EXE file which should have list of parts( in the range of hundreds )incorporated in it – We would use the executable file to apply some logic to find the correct part.

Since I am unable to initialize the two dimensional array with the data, Is there any other way to do this.

Regards
Susanta

[da_silvy]

read in the data and populate it

for i = 0 to rowcount
for j = 0 to colcount
somearray(i, j) = <some value>
next
next

?

[susanta_dutta]

Values are “String” variable and can’t be derived from any counter ( I, j). It may not be possible to feed each and every element using “somearray(i, j) = <some value>”

Can you please suggest any other alternate way.

Regards
Susanta

[da_silvy]

i,j is the position in the two dimensional array, not the value that it's initialized too

basically inside that loop, you start reading in your data, and it will store it in array(0,0) array(0,1) etc

somearray(i,j) = "some string" for example...

i don't see what the problem is

[susanta_dutta]

What I am trying to say..my data looks something like:

EVA 72GB 11111-111
MSA 36GB 22222-222
MSA 36GB 33333-333
MSA 72GB 44444-444
RA 18GB 55555-555
RA 36GB 66666-666
And so on…..( There is no pattern )

There are hundreds of data like this. Could you please help me, how to put the data for each element in the array. If “I” is horizontal counter and “j” is vertical, what exactly needs to written at the place of “some string” in your above post.

Regards
Susanta

[da_silvy]

Sub test()
Dim strInput As String, i As Integer
Dim strArray(100, 3) As String
Dim fPos As Integer, sPos As Integer
    Open "C:\test.txt" For Input As #1
    i = 0
    While Not EOF(1)
        Line Input #1, strInput
        fPos = InStr(1, strInput, " ")
        sPos = InStr(fPos + 1, strInput, " ")
        strArray(i, 0) = Left(strInput, fPos)
        strArray(i, 1) = Mid(strInput, fPos, sPos - fPos)
        strArray(i, 2) = Right(strInput, Len(strInput) - sPos)
        Debug.Print strArray(i, 0), strArray(i, 1), strArray(i, 2)
        i = i + 1
    Wend
    Close #1
End Sub

?

[susanta_dutta]

Hi da_silvy,

Thanks for the idea. Now I am getting the result what I expected.

One final small query. Instead of reading data from a separate file , just to embed it inside the executable file, created one dimensional array as below

StrArray = Array("EVA 72GB 11111 222", "MSA 36GB 22222 333", "RA 36GB 33333 444" , and so on)

And then separating the three strings out from each element in the Array. I get an error when I put data like this:

Data = Array(
"EVA 72GB 11111 222",
"MSA 36GB 22222 333",
"RA 36GB 33333 444",
and so on ...
)

And more than 256 Characters are not allowed in one line. Is there anyway to continue with same instruction in next line in the code.

Regards
Susanta

[da_silvy]

Data = Array(
"EVA 72GB 11111 222", _
"MSA 36GB 22222 333", _
"RA 36GB 33333 444", _
and so on ... etc
)