Slicing and Dicing CSV files - Involves Arrays and Jagged Arrays

[dpsciarrino]

I am retrieving a CSV file from the net. In this file there are 'x' amount of row data and 7 columns. I only care about the values in the 7th column for each row. I also don't care about the entire first row. A graphical version would be represented something like this, with the values I want colored in orange:

|---,---,---,---,---,---,---|
|---,---,---,---,---,---,---|
|---,---,---,---,---,---,---|
|---,---,---,---,---,---,---|
|---,---,---,---,---,---,---|
|---,---,---,---,---,---,---|
|---,---,---,---,---,---,---|

.
. extending until the end of the data set
.

I've managed to dice this thing into a jagged array by first splitting it using vbLf as a delimiter, and therefore adding those to an array called Lines(). Then I split Lines() up using commas as the delimiter and threw those into a jagged array, let's call it Breadcrumbs()(). I want to throw all the values from Breadcrumbs(i)(6) into an array of its own. Here's my code so far:

Public Sub CSVparser(file As String)
   Dim Lines As Variant
   Dim j As Integer
   Lines = Split(file, vbLf)
   ReDim breadCrumbs(UBound(Lines)) As Variant
   For i = 1 to UBound(Lines) - 1
      breadCrumbs(i) = Split(Lines(i), ",")
   Next i
End Sub

 

[pgc01]

Hi

If I understand correctly, you want just the 7th element of each line, in your code:

      breadCrumbs(i) = Split(Lines(i), ",")[B][COLOR=#ff0000](6)[/COLOR][/B]