Visual Basic

Imports System.IO
Imports System.Data.OleDb

Public Class Form1

    Dim ITEM_FILE_PATH As String = ""
    Dim ITEM_FILE As String = ""
    Dim ITEM_LIST As String(,)
    Dim ITEM_LINE As String()
    Dim fs As FileStream
    Dim sR As StreamReader
    Dim frstComma As Integer = 0
    Dim thisLine As String = ""
    Dim NumLines As Integer = 0

    Private Sub ReadCSVFile()
        ITEM_FILE_PATH = Application.StartupPath & "\All_Item_Prices.csv"

        fs = New FileStream(ITEM_FILE_PATH, FileMode.Open)
        sR = New StreamReader(fs)

        sR.ReadLine()
        'ITEM_FILE = sR.ReadToEnd

        While sR.EndOfStream = False

            thisLine = sR.ReadLine
            NumLines += 1
            'MsgBox(thisLine)
            frstComma = InStr(thisLine, ",")
            thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
            frstComma = InStr(thisLine, ",")
            thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
            frstComma = InStr(thisLine, ",")
            thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
            'MsgBox(thisLine)
            Dim COMMAS As String = ",,"
            For i As Integer = 2 To 6
                'MsgBox(COMMAS)
                thisLine = Replace(thisLine, COMMAS, "")
                'MsgBox(thisLine)
                COMMAS &= ","
            Next
            'ITEM_FILE &= thisLine & vbNewLine
            'For iC As Integer = 0 To thisLine.Split(",").Count
            '    ITEM_LINE(iC) = thisLine.Split(",")(iC)
            'Next
            MsgBox(thisLine)
            MsgBox(thisLine.Split(",").Count)
            For iC As Integer = 0 To thisLine.Split(",").Count
                ITEM_LIST(iC, NumLines) = thisLine.Split(",")(iC)
                MsgBox(ITEM_LIST(iC, NumLines))
            Next

        End While

        sR.Close()
        fs.Close()

        'MsgBox(ITEM_FILE)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ReadCSVFile()

        For iCount As Integer = 0 To NumLines

            MsgBox(iCount)
            MsgBox(ITEM_LIST(0, iCount))

        Next

    End Sub

End Class