如何使用 aspJSON.asp 从 json 字符串中获取值？ [复制]

Question

我有这个 JSON，无论我尝试什么，我都无法从中获取任何值。我不知道我错过了什么？

这是 json 字符串。

 {
        "groups": [{
            "name": "Credit Card",
            "types": ["mc", "visa", "amex"]
        }],
        "paymentMethods": [{
            "brands": ["mc", "visa", "amex"],
            "details": [{
                "key": "encryptedCardNumber",
                "type": "cardToken"
            }, {
                "key": "encryptedSecurityCode",
                "type": "cardToken"
            }, {
                "key": "encryptedExpiryMonth",
                "type": "cardToken"
            }, {
                "key": "encryptedExpiryYear",
                "type": "cardToken"
            }, {
                "key": "holderName",
                "optional": true,
                "type": "text"
            }],
            "name": "Card",
            "type": "scheme"
        }, {
            "name": "Få först. Betala sen med Klarna.",
            "supportsRecurring": true,
            "type": "klarna"
        }, {
            "name": "Trustly",
            "supportsRecurring": true,
            "type": "trustly"
        }, {
            "name": "Swish",
            "supportsRecurring": true,
            "type": "swish"
        }, {
            "name": "Paysafecard",
            "supportsRecurring": true,
            "type": "paysafecard"
        }, {
            "name": "Dela upp med Klarna.",
            "supportsRecurring": true,
            "type": "klarna_account"
        }, {
            "name": "Pay now with Klarna.",
            "supportsRecurring": true,
            "type": "klarna_paynow"
        }]
    }

然后我尝试获取一个值（“信用卡”）并循环遍历所有 paymetsMethods.details.key 值，然后循环所有最后一个“名称”。

<!--#include file="aspJSON1.17.asp" -->
        jsonstring = CStr(objXmlHttp.ResponseText)
        'response.write "---"&jsonstring &"---"
        Set oJSON = New aspJSON
        oJSON.loadJSON(jsonstring)
        
        groupsname=oJSON.data("groups").item("name")
        response.write groupsname
        
        For Each x In oJSON.data("paymentMethods").item("details")
        paymentMethods=oJSON.data("paymentMethods").item("details").item("key")
        response.write paymentMethods
        NEXT
        
        For Each x In oJSON.data("name")
        thename=oJSON.data.item("name")
        response.write thename
        NEXT

我显然错过了什么，但是什么？

Answer 1

在解析 JSON 时，如果遇到一个集合（即一个数组），则必须在尝试检索 JSON 结构中更深层次的值之前对其进行迭代。

在这种情况下，要访问 key 属性，您必须遍历两个集合。

1. paymentMethods
2. details

所以这个For 循环；

For Each x In oJSON.data("paymentMethods").item("details")
paymentMethods=oJSON.data("paymentMethods").item("details").item("key")
response.write paymentMethods
NEXT

应该看起来更像;

Dim paymentMethod, paymentMethodsItem, details, detailsItem
For Each paymentMethodsItem In oJSON.data("paymentMethods")
    Set paymentMethod = oJSON.data("paymentMethods").item(paymentMethodsItem)
    For Each detailsItem In paymentMethod.data("details")
        Set details = paymentMethod.data("details").item(detailsItem)
        Call Response.Write(details.item("key"))
    Next
Next

^{#提供的代码未经测试}

---

有用的链接

• Looping though JSON classic ASP
• ASP JSON: Object not a collection