Process CSV Files with VB.NET
An example CSV file containing the following record
"Firstname", "Surname", "Date-Time-Entered","Items"
"Trevor","O Connell","26/02/2009 18:01:00","12"
....
Dim fName, sName,sDate,sTime,readLine,strfilename,textdelimiter as String
Dim tmpDate as DateTime
Dim nItems as Integer
Dim splitLine() As String
Dim objStreamReader As StreamReader
filename = Server.MapPath("~/app_data/sampledata.csv")
objStreamReader = File.OpenText(filename)
' Read and Ignore Header
readLine = objStreamReader.ReadLine()
textdelimiter = ","`
While objStreamReader.Peek() <> -1
readLine = objStreamReader.ReadLine()
' Check if its a blank line if so ignore.
If LTrim(RTrim(readLine)) <> "" Then
splitLine = Split(readLine, textdelimiter)
sFname = = splitout(0).Replace("""", "")
sSname = = splitout(1).Replace("""", "")
tmpDate = splitout(2).Replace("""", "")
sDate = tmpDate.Date.ToShortDateString.ToString
sTime = tmpDate.TimeOfDay.ToString
nItems = splitout(3).Replace("""", "")
'
' Process the each record as you wish
'........
End If
End While
"Firstname", "Surname", "Date-Time-Entered","Items"
"Trevor","O Connell","26/02/2009 18:01:00","12"
....
Dim fName, sName,sDate,sTime,readLine,strfilename,textdelimiter as String
Dim tmpDate as DateTime
Dim nItems as Integer
Dim splitLine() As String
Dim objStreamReader As StreamReader
filename = Server.MapPath("~/app_data/sampledata.csv")
objStreamReader = File.OpenText(filename)
' Read and Ignore Header
readLine = objStreamReader.ReadLine()
textdelimiter = ","`
While objStreamReader.Peek() <> -1
readLine = objStreamReader.ReadLine()
' Check if its a blank line if so ignore.
If LTrim(RTrim(readLine)) <> "" Then
splitLine = Split(readLine, textdelimiter)
sFname = = splitout(0).Replace("""", "")
sSname = = splitout(1).Replace("""", "")
tmpDate = splitout(2).Replace("""", "")
sDate = tmpDate.Date.ToShortDateString.ToString
sTime = tmpDate.TimeOfDay.ToString
nItems = splitout(3).Replace("""", "")
'
' Process the each record as you wish
'........
End If
End While
Comments
Post a Comment