Reading data from .csv File in Column wise

Hi

I am writing a code in VB 6.0. i want to Read the .csv file and insert into the SQL Data base. i wrote a code in VB that will read the data in Row wise. but i want i want to read it by Column wise

here is my .csv file data, here first row(only for 1st row) first colum value is empty. this "|" is column seperater

|780|880 | 990| 875| 960|
1000|0 |200 | 600|0 | 200
5000|200|800 | 400|0 | 100
900 |765|200 | 600|0 | 200

i want to insert this data into sql in this format.

cst_cnt_code| Accout_NO| Budget
780 | 1000 |0
780 | 5000 |200
780 | 900 |765
880 | 1000 |200
880 | 5000 |800
880 | 900 |200
990 | 1000 |600
990 | 5000 |400
990 | 900 |600

i want to read the .csv file in the about format. how do i do that.

Thanks in advance

Thanks & Regards
Gandhi

I can't figure out how your manipulating the data to get it to the 3 column layout.

At any rate here's how to read data via columns: (one way anyhow)

VB Code:

dim NewData(1 to 100, 1 to 3) as string
dim tmpLine as string
dim x as integer
 
x = 1
 
open strFile for input as #1
 
    for ColIndex = 1 to 3  'you wanted 3 columns right?
 
        do until eof(1)
 
            line input #1, tmpLine
            tmpValues = split(tmpLine, "|")
 
            'pull the value of the current column to the array
 
            NewData(x, ColIndex) = tmpValues(ColIndex - 1)
 
            x = x + 1
        loop
        
        Close #1
        x = 1
        'reopen file for reinput
        open strFile for input as #1
 
    next ColIndex
 
close #1
 
'all values now stored in NewData