Question

我正在尝试将以下JSON对象解码为Reason对象。

{"AAPL":{"price":217.36}}

对象根中的键是动态的。

当密钥不在根目录中时，以下常规示例有效。我将如何更改它以使其适用于根目录中的动态密钥？

module Decode = {
    let obj = json =>
    Json.Decode.{
      static: json |> field("static",string),
      dynamics: json |> field("dynamics", dict(int)),
    };
};

Answer 1

如果您的数据如下：

let data = {| {
  "AAPL": { "price": 217.36 },
  "ABCD": { "price": 240.5 }
} |};

您可以使用以下内容获得一个Js.Dict：

module Decode = {
  open Json.Decode;
  let price = field("price", float);
  let obj = dict(price);
};

let decodedData = data |> Json.parseOrRaise |> Decode.obj;

let _ = decodedData->(Js.Dict.unsafeGet("AAPL")) |> Js.log;

它应该打印217.36

使用bs-json解码根目录中具有动态键的对象

1 个答案: