Json data include collections, how to get value of collections. thanks.

[poplarfeng]

I want get the first "id" value of schedule->2024->6th, how to use the vba-json?

json as belows.

{
"code": "0001",
"message": "success",
"schedule": {
"2024": {
"6th"：[
{
"id": "1699",
"strong_base_id": "688",
"schedule": "2024-06",
},
{
"id": "1700",
"strong_base_id": "688",
"schedule": "2024-06",
}
]
}
}
}

[aholden10]

Please share your code, what have you tried?  On Thursday, January 2, 2025 at 04:31:39 AM EST, poplarfeng ***@***.***> wrote: I want get the first "id" value of schedule->2024->6th, how to use the vba-json? json as belows. { "code": "0001", "message": "success", "schedule": { "2024": { "6th"：[ { "id": "1699", "strong_base_id": "688", "schedule": "2024-06", }, { "id": "1700", "strong_base_id": "688", "schedule": "2024-06", } ] } } } — Reply to this email directly, view it on GitHub, or unsubscribe. You are receiving this because you are subscribed to this thread.Message ID: ***@***.***>

[DecimalTurn]

There seems to be 2 issues with your JSON:

1. The colon in the following line:

"6th"：[

The colon there is actually a Fullwidth Colon instead of a regular colon.

2. Presence of trailing commas after the schedule keys. This is not supported in the regular JSON specs, so you'll need to remove them.

If I fix those and format your json to be more readable, we get the following:

{
    "code": "0001",
    "message": "success",
    "schedule": {
        "2024": {
            "6th": [
                {
                    "id": "1699",
                    "strong_base_id": "688",
                    "schedule": "2024-06"
                },
                {
                    "id": "1700",
                    "strong_base_id": "688",
                    "schedule": "2024-06"
                }
            ]
        }
    }
}

With that, your VBA code could look like the following:

    Dim JsonString As String
    JsonString = "{""code"": ""0001"",""message"": ""success"",""schedule"": {""2024"": {""6th"": [{""id"": ""1699"",""strong_base_id"": ""688"",""schedule"": ""2024-06""},{""id"": ""1700"",""strong_base_id"": ""688"",""schedule"": ""2024-06""}]}}}"

    Dim Json As Dictionary
    Set Json = ParseJson(JsonString)
    
    Debug.Print Json("schedule")("2024")("6th")(1)("id")

Note that the use of (1) is how you are getting the first element of the collection.

Also, it might be a better practice to use the Item method to avoid using the default member:

Debug.Print Json.Item("schedule").Item("2024").Item("6th").Item(1).Item("id")

[poplarfeng]

Thanks，DecimalTurn. Your reply answered my question. Thanks again.

[DecimalTurn]

@poplarfeng my pleasure! Feel free to close the issue as resolved.

[poplarfeng]

resolved.