CSV problem....

[RaceAap]

Hi,

I need some help with the followijng issue..

I need to import a csv file uploaded to a website into the database, the uplaod works.. but the import gives errors..

I use data = Split(readline,",&quot to split the readline from the csv into an array, that is where it goes wrong :S
The csv file looks like this:

"id","what","misc","date"
"1","record,1","data334345","11-11-2002"

Who can help me with this ??

Thanx
Lon

 

[RobJDB]

Is it because you've got text qualifiers (&quot surrounding your strings?

The " sign is chr(34), so you could create a string like this:

strSeparator = chr(34) & "," & chr(34)

and use it as your delimiter:

Split(readline,strSeparator)

but then you'd still need to strip the first " off the first string, and the final " off the last one.

I hope this is useful...

Rob

 

[GabeC]

To remove the first and last ", you could use replace.

strSeparator = chr(34) & "," & chr(34)
asMyArray = Split(readline,strSeparator)
asMyArray(0) = replace(asMyArray, """", "") OR
asMyArray(0) = replace(asMyArray, chr(34), "")
asMyArray(ubound(asMyArray)) = replace(asMyArray(ubound(asMyArray), """", "")

If you are positive the original data will never have a " in it, you could do the replace it up front.

readline = replace(readline, """", "")
asMyArray = Split(readline, ",")

Thanks,

Gabe

 

[RobJDB]

Gabe,

Would it not be replace(readline, """, "&quot - three not four in the second argument?

Rob

 

[GabeC]

Nope,

VBScript sees "" as a single quote.
The first " starts the string.
The second and third "s are turned into one " by VBScript.
The fourth " closes the string.


Thanks,

Gabe

 

[RobJDB]

Ok, thanks for the explanation!

Rob

 

[RaceAap]

Thanx for the replies, I've got it working with the code you posted here!


Thanx
Lon