How to read specific CSV cell?

Question

0.00/5 (No votes)

See more:

.NET4.5

How to read specific CSV cell file? Im using CSVReader to get all data from CSV for sending to database purposes.

Currently there is some csv file that start from some line. Refer image here[^] for sample of this kind of csv.

I want to get data for cell A:4, A:5, A:6 and read all value start from A8:D8 downwards.

I'm only done for reading everything if I remove Row 1-7

VB.NET

Private Sub ReadCSVData(ByVal filepathname As String)
    Using csv As New CsvReader(New StreamReader(filepathname), True)
        Dim fieldCount As Integer = csv.FieldCount
        Dim headers() As String = csv.GetFieldHeaders()
        Dim jsonData As New JArray()
        Dim dt As New DataTable
        Do While csv.ReadNextRecord()
            Dim record As New JObject()
            For i As Integer = 0 To fieldCount - 1
                record.Add(New JProperty(headers(i), csv(i)))
            Next
        Loop
    End Using
End Sub

Now the real csv file is like attach link's image

What I have tried:

Private Sub ReadCSVData(ByVal filepathname As String)
Using csv As New CsvReader(New StreamReader(filepathname), True)
Dim fieldCount As Integer = csv.FieldCount
Dim headers() As String = csv.GetFieldHeaders()
Dim jsonData As New JArray()
Dim dt As New DataTable
Do While csv.ReadNextRecord()
Dim record As New JObject()
For i As Integer = 0 To fieldCount - 1
record.Add(New JProperty(headers(i), csv(i)))
Next
Loop
End Using
End Sub

Posted 24-Aug-16 20:39pm

Luiey Ichigo

Updated 25-Aug-16 3:16am

Add a Solution

Comments

Richard MacCutchan 25-Aug-16 3:57am

You just need to use a counter to read the first 7 lines but ignore them. So you only process the cells when your line count reaches 8.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard Deeming · Accepted Answer · 2016-08-25T03:16:00

Assuming you're always skipping the first three lines, and the CSV data is always separated from the extra data by a blank line, something like this should work:

VB.NET

Private Function ReadCSVData(ByVal filepathname As String) As JObject
    Dim result As New JObject()
    
    Using sr As New StreamReader(filepathname)
        ' Skip the first three lines:
        sr.ReadLine()
        sr.ReadLine()
        sr.ReadLine()
        
        ' Grab the extra data from the next lines:
        Dim line As String = sr.ReadLine()
        Do Until String.IsNullOrWhiteSpace(line)
            Dim parts() As String = line.Split(":"c)
            If parts.Length = 2 Then
                result.Add(New JProperty(parts(0).Trim(), parts(1).Trim()))
            End If
            
            line = sr.ReadLine()
        Loop
        
        ' Read the CSV data:
        Using csv As New CsvReader(sr, True)
            Dim fieldCount As Integer = csv.FieldCount
            Dim headers() As String = csv.GetFieldHeaders()
            Dim jsonData As New JArray()
            
            Do While csv.ReadNextRecord()
                Dim record As New JObject()
                For i As Integer = 0 To fieldCount - 1
                    record.Add(New JProperty(headers(i), csv(i)))
                Next
                
                jsonData.Add(record)
            Loop
            
            result.Add(New JProperty("data", jsonData))
        End Using
    End Using
    
    Return result
End Function

Output:

JavaScript

{
  "Sensor ID": "...",
  "Sensor Description": "...",
  "Status": "...",
  "data": [
    {
      "Time": "...",
      "Sensor A": "...",
      "Sensor B": "...",
      "Sensor C": "..."
    },
    ...
  ]
}