Læs csv fil

<%
Option Explicit
Dim objFSO, oInStream, sLine, sSeg
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists( Server.MapPath( "stuff.txt" ) ) Then
Set oInStream = objFSO.OpenTextFile( Server.MapPath( "stuff.txt" ), ForReading, False )

Do Until oInStream.AtEndOfStream

sLine = oInStream.ReadLine
sSeg = Split( sLine, "," )

Response.Write "<b>A</b>: " & sSeg(0)
Response.Write "<b>B</b>: " & sSeg(1)
Response.Write "<b>C</b>: " & sSeg(2)
Response.Write "<br>"

Loop

oInStream.Close
Set oInStream = Nothing

Else

Response.Write "File not found!"

End If
Set objFSO = Nothing
%>

Så langt er jeg nået, men virker ikke som det skal.

1: Der splittes på ",", men det kan også forekomme i indholdet (eks "Navn","Adresse,By",, osv )
2: Nogle CSV filer har den samme row i flere linjer.

Er hvert datafelt omsluttet af '"'?
Hvordan angives at en række spreder sig over flere linjer?

Ja ethvert data felt der indeholder data er omsluttet "". Men hvis det er tomt er der bare et komma.
Jeg ved ikke hvordan det angives at en række der spreder sig over flere linjer eller hvordan excel regner det ud. Hvis jeg vidste det ville jeg ikke have noget problem ;)

Jeg fandt i mellemtiden selv en løsning på problemet.

Jeg har lavet en dot net web service med http://www.codeproject.com/KB/database/CsvReader.aspx det laver CSV'en om til XML jeg så kalder fra min asp fil

Det fungere med alle typer CSV filer.