如何序列化和反序列化元组答案

【问题标题】：how to serialize and deserialize a tuple如何序列化和反序列化元组
【发布时间】：2018-04-01 10:10:54
【问题描述】：

如何在 F# 中将 JSON 序列化为元组（反之亦然）？

JSON 架构

{
  "name": "test",
  "type": "document",
  "id": "e3c7373c-f4bc-4ffa-9a01-7c7d9f83e4cf"
}

元组

let document = ("test", "document", "e3c7373c-f4bc-4ffa-9a01-7c7d9f83e4cf")

理想情况下使用DataContractJsonSerializer

【问题讨论】：

元组("test", "document")应该看到什么JSON？
抱歉没听明白，问题是关于将 JSON 序列化为元组
我的意思是——会有信息丢失。所以这不是“序列化”，因为根据定义，“序列化”必须是可重构的。例如：{"name": "test", "type": "doc" } 最好是(string * obj) * (string * obj)/

标签： f# datacontractjsonserializer

【解决方案1】：

// Functions snipped from here:
// https://gist.github.com/theburningmonk/2071722

open System.Runtime.Serialization.Json

// I changed these two lines from using ASCII to using UTF8,
// for UNICODE support. This is also what Microsoft's similar
// examples use.
let toString = System.Text.Encoding.UTF8.GetString
let toBytes (x : string) = System.Text.Encoding.UTF8.GetBytes x

let serializeJson<'a> (x : 'a) = 
    let jsonSerializer = new DataContractJsonSerializer(typedefof<'a>)
    use stream = new MemoryStream()
    jsonSerializer.WriteObject(stream, x)
    toString <| stream.ToArray()

let deserializeJson<'a> (json : string) =
    let jsonSerializer = new DataContractJsonSerializer(typedefof<'a>)
    use stream = new MemoryStream(toBytes json)
    jsonSerializer.ReadObject(stream) :?> 'a

// End of snip

[<CLIMutable>]
[<DataContract>]
type MyType = {
    [<DataMember>] name: string
    [<DataMember>] ``type``: string
    [<DataMember>] id: string
    }

let document = { name = "test"; ``type`` = "document"; id = "e3c7373c-f4bc-4ffa-9a01-7c7d9f83e4cf" }
let json = serializeJson<MyType> document
json.Dump() // LINQPad output

let json2 = """{"id":"e3c7373c-f4bc-4ffa-9a01-7c7d9f83e4cf","name":"test","type":"document"}"""
let document2 = deserializeJson<MyType> json2
document2.Dump() // LINQPad output

【讨论】：

加一个用于使用 LinqPad :D
它不是一个元组
true，但将其转换为 1 很简单：(document2.id, document2.name, document2.``type``)。