将 F# 记录类型序列化为 JSON 在每个属性后包含“@”字符

Question

DataContractJsonSerializer 为在每个属性名称后包含“@”字符的 F# 记录类型创建 JSON。有谁知道是否有可能获得没有这个尾随符号的 JSON？

{"heart_rate@":20,"latitude@":45.0,"longitude@":108.0,"name@":"Rambo"}

这是我用来输出这个样本的脚本

#r "System.Xml"
#r "System.Runtime.Serialization"

open System.Text
open System.Runtime.Serialization.Json
open System.IO

type Update = {
    name: string;
    latitude: decimal;
    longitude: decimal;
    heart_rate: int}

let update = {name = "Rambo"; latitude = 45.0m; longitude = 108.0m; heart_rate = 20}

let serializer = new DataContractJsonSerializer( typeof<Update> )

let stream = new MemoryStream()
let data = serializer.WriteObject(stream, update)
let updateData = stream.ToArray()

let json = (Encoding.UTF8.GetString(updateData))

printfn "%s" json

Answer 1

它使用编译器生成的支持字段的名称。您可以使用DataMemberAttribute 提供您自己的姓名。

[<DataContract>]
type Update = {
    [<field: DataMember(Name="name")>]
    name: string;
    [<field: DataMember(Name="latitude")>]
    latitude: decimal;
    [<field: DataMember(Name="longitude")>]
    longitude: decimal;
    [<field: DataMember(Name="heart_rate")>]
    heart_rate: int}

Answer 2

虽然 Daniel 的解决方案可以正常工作，但必须为记录中的每个属性添加属性是相当乏味的。事实证明，Json.NET 开箱即用地生成更具可读性的 JSON。对于我的应用程序，我不需要专门使用 DataContractSerializer，所以 JSON.net 就是这样！