Fsharp.Data (F# Data) Json parsing example

#1. set of properties

{ "a" : "apple", "b" : "banana", "c" : "cocoa" }

open FSharp.Data
open FSharp.Data.JsonExtensions

[<entrypoint>]
let main argv = 
    let json_txt= """{"a":"apple","b":"banana","c":"cocoa"}"""
    JsonValue.Parse(json_txt).Properties
    |> Array.iter(fun (key,value) -> printfn "%s:%s" key (value.AsString()))
    0 // return an integer exit code

#2. array of values

["apple","banana","cocoa"]

open FSharp.Data
open FSharp.Data.JsonExtensions

[<entrypoint>]
let main argv = 
    let json_txt= """["apple","banana","cocoa"]"""
    JsonValue.Parse(json_txt).AsArray()
    |> Array.iter(fun value -> printfn "%s" (value.AsString()))
    0 // return an integer exit code

#3. mixed array

["apple","banana",[1,2,3]]

open FSharp.Data
open FSharp.Data.JsonExtensions

[<entrypoint>]
let main argv = 
    let json_txt= """["apple","banana",[1,2,3]]"""
    let ary = JsonValue.Parse(json_txt).AsArray()
    printfn "%s" (ary.[0].AsString())
    printfn "%s" (ary.[1].AsString())
    (ary.[2]).AsArray()
    |> Array.iter(fun value -> printfn "%i" (value.AsInteger()))
    0 // return an integer exit code