Как создать CSV-файл и записать данные в f#

Как я могу создать csv-файл в F sharp и записать в него следующий тип записи?

    type test = { G:array<double>; P:array<double>; GG:array<double>; PP:array<double> } 

    let table = [for x in 0..(Un0.Length - 1) -> 
        let b = Un0.[x] in 
        if b=0.0 then {G=0.0; P=0.0; GG=0.0; PP=0.0}
        else {G=G_0.[x]/b; P=P0.[x]/b; GG=G0.[x]/b; PP=PP0.[x]/b}]
7
f# f#-data

3 ответов

для записи .csv не обязательно использовать данные F#.

Я изменил определение теста и добавил некоторые значения, чтобы вы могли скомпилировать:

type test = { G:double; P:double; GG:double; PP:double }
            override this.ToString() = 
                sprintf "%f;%f;%f;%f\n" this.G this.P this.GG this.PP

let G_0  =  [|(0.0)..(10.0)|]
let Un0  =  [|(1.0)..(11.0)|]
let P0   =  [|(2.0)..(12.0)|]
let G0   =  [|(3.0)..(13.0)|]
let PP0  =  [|(4.0)..(14.0)|]

let table = [for x in 0..(Un0.Length - 1) -> 
                let b = Un0.[x] 
                if b=0.0 then {G=0.0; P=0.0; GG=0.0; PP=0.0}
                else {G=G_0.[x]/b; P=P0.[x]/b; GG=G0.[x]/b; PP=PP0.[x]/b}]

let wr = new System.IO.StreamWriter("Csv.csv")
table |> List.map(string) |> String.concat("") |> wr.Write
wr.Close()

результат:

enter image description here

3

на поставщик типов CSV из FSharp.Данные в первую очередь известен и используется для чтения CSVs (как следует из названия), но он также вполне способен писать CSVs, а также.

все, что вам нужно сделать, это определить тип, либо путем предоставления образца .CSV-файл 

let titanic2 = CsvProvider<"../data/Titanic.csv", Schema="Fare=float,PClass->Passenger Class">.GetSample()

или путем прямого определения схемы

type MyCsvType = CsvProvider<Schema = "A (int), B (string), C (date option)", HasHeaders=false>

затем вы можете создать объект записи и заполнить его (безопасным для типа способом!)

// you can build the rows themselves
let myCsv = new MyCsvType( [ MyCsvType.Row(1, "a", None)
                             MyCsvType.Row(2, "B", Some DateTime.Now) ])

// or, for your scenario, you probably want to define a conversion function
// from your record type to the CSV provider's type
let buildRowFromObject obj = MyCsvType.Row(obj.A, obj.B, obj.C)

let buildTableFromObjects = (Seq.map buildRowFromObject) >> Seq.toList >> MyCsvType

let myCsv = someSequenceOfObjects |> buildTableFromObjects

и наконец, просто позвоните

myCsv.SaveToString()

для получения вывода в формате CSV.

14

это не совсем ответ на ваш вопрос, но это похоже и может быть полезно

как редактировать csv-файл с помощью F# CSV Type Provider

устранение:

#r "..\packages\FSharp.Data.2.3.3\lib\net40\FSharp.Data.dll"
open System.IO
open FSharp.Data

type CsvTest = CsvProvider<"""C:\Users\User\Desktop\sample.csv""">
let textReader = File.OpenRead("""C:\Users\User\Desktop\sample.csv""")// need to use TextReader
let csvTest = CsvTest.Load(textReader)
let modified = csvTest.Append [CsvTest.Row(3,"bum") ]// add row to csv
textReader.Close()// closing file before edit...
modified.Save   """C:\Users\User\Desktop\sample.csv""" //save it

вам может понадобиться Сброс Интерактивной Сессии (если вы работаете с FSX)

объяснение:

простая загрузка файла, как это:

let csvTest = CsvTest.Load("""C:\Users\User\Desktop\sample.csv""")

не работает. Если вы попробуете, вы получите ошибку:

0