16

DataContractJsonSerializer 为在每个属性名称后包含“@”字符的 F# 记录类型创建 JSON。有谁知道是否可以获得没有此尾随 at 符号的 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
4

2 回答 2

13

它使用编译器生成的支持字段的名称。您可以使用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}
于 2012-10-23T19:36:47.067 回答
8

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

于 2012-10-24T04:39:35.547 回答