parser.fs

type CsvParser(path: string) =
    let _path = path
    
    let index(headers: string[] option, column) = headers.Value |> Seq.findIndex (fun k -> k = column)
 
    let getValuesFor(func) =
        use data = CsvFile.Load(_path)
        data.Rows
        |> Seq.map(fun x -> func(data.Headers, x))
        |> Seq.toArray
 
    member this.GetHeaders() =
        use data = CsvFile.Load(_path)
        if data.Headers.IsSome then data.Headers.Value else [||]
 
    member this.GetValuesForColumn1() = getValuesFor(fun (headers, x) -> x.Item(index(headers, "Column 1")))
    member this.GetValuesForColumn2() = getValuesFor(fun (headers, x) -> x.Item(index(headers, "Column 2")))