使用 VBScript 中的动态键从 JSON 对象解析值

Question

实际上我想在 VBScript 中使用动态键从 JSON 中获取值。如果有人已经问过但没有找到 VBScript，我会尝试找到类似的问题。

下面是一个示例 json:

{
    "assessmenttype": [{
        "id": "129666",
        "formattedvalue": "wT",
        "value": "WT"
    }],
    "jobid": "2017-2752",
    "jobtitle": "XYZ",
    "links": [{
        "rel": "self",
        "title": "The current profile being viewed.",
        "url": "https://dummyUrl.com/customers"
    }],
    "field33005": {
        "id": "C121",
        "formattedvalue": "XYZ",
        "value": "XYZ"
    }
}

所以在上面 JSON（这是特定于客户端的），对于一个客户端节点名称是 field33005 但对于任何其他客户端，此字段名称可能是 field38045 等等。所以挑战是在这个 field33005 自定义字段中获取 "value" 子字段的值。

请帮助我，因为我在 JSON 使用 VBScript 解析方面并不专业。

注意：对于json解析我使用的是json2-min.js库

Answer 1

为了回答我自己的问题，我在 JavaScript 中创建了一个函数，因为我们可以在 ASP.

中从 VBSript 调用一个 js 函数

<script runat="server" language="javascript">

  function getJSONObject(targetJSONObject, propName)
  {

    for (var prop in targetJSONObject)
    {
      if (prop = propName)
      {
        return targetJSONObject[prop].value;
      }
    }
  return "";
  }
</script>

在上述方法中，我们需要传递实际的 Json 和自定义字段的名称，然后它将 return 该自定义字段的 "value" 子节点。

使用 VBScript 中的动态键从 JSON 对象解析值

parse value from JSON object with dynamic key in VBScript

vbscript

parsing

json

asp-classic

jsonparser