Simple problem... 4-column CSV file -> VB 4-column Array

[gabba]

Hi,
I've got a simple question to most... but I've never used multiple-column arrays before (never could learn how to, mind-boggling!), and not really sure how to progress with this... not even sure if I should be using a multi-column array!

The CSV is like this (even with linebreaks):
392,3290,109
310,1900,490
390,1903,300
321,1033,610

and the CSV has 365 lines in it (one for every day of the year).

I am trying to get the data into an array so it also has an index, like this:

Index, Cost, Units, Time
    1,  392,  3290,  109
    2,  310,  1900,  490
    3,  390,  1903,  300
    4,  321,  1033,  610

This is the cost I use for importing the data into the program, and process into the array:

In the FOR loop, I want to 'index' the CSV file..

Public Sub GetCostTimeRatio()

Dim hFile As Long
Dim LocalFileName As String

Dim CostTimeRatioIndex(0 To 365, 0 To 365, 0 To 365, 0 To 365) As Long
Dim CostTimeRatioString As String
Dim CostTimeRatioLines() As String
Dim n As Long

LocalFileName = "Q:\timeandcost.csv"
      hFile = FreeFile
      Open LocalFileName For Input As #hFile
         CostTimeRatioString = Input$(LOF(hFile), hFile)
      Close #hFile

CostTimeRatioLines = Split(CostTimeRatioString, vbCrLf)

For n = 0 To UBound(CostTimeRatioLines)
    CostTimeRatioIndex(n,,,) = Split(CostTimeRatioLines(n), ",")
Next

Debug.Print CostTimeRatioLines(UBound(CostTimeRatioLines))
End Sub

But it says 'Can't assign to array' when I call the function, and it itemises the CostTimeRatioIndex as the culprit...

Help.... please...

Many thanks,

Gabba

[westconn1]

you can't use split to a multicolumn or fixed size array, you would need to write the values to the array in a loop

[jeroen79]

http://vbforums.com/showthread.php?p...71#post2672071