open Sanchime.Json open Sanchime.Json.Parser let json = """ { "Name": "Bob", "Email": "bob@example.com", "IsActive": true, "Info": { "Age": 18, "Gender": "男", "Address": "江西", "City": "赣州", "Record": [ "小学", "初中", "高中" ] } } """ let foo = function | Object v -> v | _ -> failwith "其他" let user = json |> parse user |> foo |> List.iter (fun a -> printfn $"Name: {fst a}, Value: {snd a}")