将2个或更多嵌套词典合并为1，并按自定义顺序排列项目
我是字典的新手。我从外部网站提取数据，该网站输出一个JSON字符串，其中包含我使用找到的here的VBA-JSON代码解析的主动级数据。此JSON解析器输出包含嵌套字典和集合的JSON Dictionary对象。
{
"respCode": 200,
"respMessage": "OK",
"response": [
{
"INIT_ID": 1234567,
"INIT_NAME": "SOME INIT NAME",
"CATE": "PERFUMED WATER",
"CTRY": "GB",
"OPEN_DATE": "2016-02-10 00:00:00",
"ITEMS": [
{
"ITEM_ID": "44556677",
"ITEM_DSCR": "ABC CO, PERFUMED WATER,CARBONATED,AMBIENT,,,,CAFFEINE,PLASTIC,PACK,250ML"
},
{
"ITEM_ID": "45566778",
"ITEM_DSCR": "ABC CO, PERFUMED WATER,CARBONATED,CRYSTAL,,,,CAFFEINE,GLASS,PACK,270ML"
},
{
"ITEM_ID": "46576879",
"ITEM_DSCR": "ABC CO, PERFUMED WATER,NON-CARBONATED,AMBIENT,,,,NON-CAFFEINE,TETRA,PACK,275ML"
}
]
}
]
}
由于此计划中有3个项目，我必须使用另外3个API调用从外部网站再次提取这3个项目的属性数据 - 响应再次是JSON字符串，我必须使用VBA-JSON解析以获取包含嵌套字典和集合的Dictionary对象：
项目1：
{
"respCode": 200,
"respMessage": "OK",
"response": [
{
"ITEM CODE": "44556677",
"ITEM DESCRIPTION": "ABC CO, PERFUMED WATER,CARBONATED,AMBIENT,,,,CAFFEINE,PLASTIC,PACK,250ML",
"ATTR DETAILS": [
{
"ATTR ID": "25",
"ATTR DESCRIPTION": "MOD_NAME",
"ATTR_VAL ID": "22222222",
"ATTR_VAL DESCRIPTION": "PERFUMED WATER - CARBONATED - CAFFIENE"
},
{
"ATTR ID": "45",
"ATTR DESCRIPTION": "PROM ACTIVE",
"ATTR_VAL ID": "44444444",
"ATTR_VAL DESCRIPTION": "NO PROMO"
},
{
"ATTR ID": "38",
"ATTR DESCRIPTION": "BRAND",
"ATTR_VAL ID": "99999999",
"ATTR_VAL DESCRIPTION": "KANE & ABEL"
},
{
"ATTR ID": "51",
"ATTR DESCRIPTION": "WEIGHT/VOLUME",
"ATTR_VAL ID": "66666666",
"ATTR_VAL DESCRIPTION": "250ML"
}
]
}
]
}
项目2：
{
"respCode": 200,
"respMessage": "OK",
"response": [
{
"ITEM CODE": "45566778",
"ITEM DESCRIPTION": "ABC CO, PERFUMED WATER,CARBONATED,CRYSTAL,,,,CAFFEINE,GLASS,PACK,270ML",
"ATTR DETAILS": [
{
"ATTR ID": "25",
"ATTR DESCRIPTION": "MOD_NAME",
"ATTR_VAL ID": "22222222",
"ATTR_VAL DESCRIPTION": "PERFUMED WATER, CRYSTAL - CARBONATED - CAFFIENE"
},
{
"ATTR ID": "45",
"ATTR DESCRIPTION": "PROM ACTIVE",
"ATTR_VAL ID": "44444444",
"ATTR_VAL DESCRIPTION": "PROMO"
},
{
"ATTR ID": "38",
"ATTR DESCRIPTION": "BRAND",
"ATTR_VAL ID": "99999999",
"ATTR_VAL DESCRIPTION": "BEAUTY & BEAST"
},
{
"ATTR ID": "51",
"ATTR DESCRIPTION": "WEIGHT/VOLUME",
"ATTR_VAL ID": "66666666",
"ATTR_VAL DESCRIPTION": "270ML"
}
]
}
]
}
项目3：
{
"respCode": 200,
"respMessage": "OK",
"response": [
{
"ITEM CODE": "46576879",
"ITEM DESCRIPTION": "ABC CO, PERFUMED WATER,NON-CARBONATED,AMBIENT,,,,NON-CAFFEINE,TETRA,PACK,275ML",
"ATTR DETAILS": [
{
"ATTR ID": "25",
"ATTR DESCRIPTION": "MOD_NAME",
"ATTR_VAL ID": "22222222",
"ATTR_VAL DESCRIPTION": "PERFUMED WATER - NON-CARBONATED - NON-CAFFIENE"
},
{
"ATTR ID": "45",
"ATTR DESCRIPTION": "PROM ACTIVE",
"ATTR_VAL ID": "44444444",
"ATTR_VAL DESCRIPTION": "NO PROMO"
},
{
"ATTR ID": "38",
"ATTR DESCRIPTION": "BRAND",
"ATTR_VAL ID": "99999999",
"ATTR_VAL DESCRIPTION": "HENSEL & GRETEL"
},
{
"ATTR ID": "51",
"ATTR DESCRIPTION": "WEIGHT/VOLUME",
"ATTR_VAL ID": "66666666",
"ATTR_VAL DESCRIPTION": "275ML"
}
]
}
]
}
我想要做的是：将3个项目词典与第一个主动词典合并，以便每个项目属性为其项目ID指定的每个项目合并，如下所示：
最后词典：
{
"respCode": 200,
"respMessage": "OK",
"response": [
{
"INIT_ID": 1234567,
"INIT_NAME": "SOME INIT NAME",
"CATE": "PERFUMED WATER",
"CTRY": "GB",
"OPEN_DATE": "2016-02-10 00:00:00",
"ITEMS": [
{
"ITEM_ID": "44556677",
"ITEM_DSCR": "ABC CO, PERFUMED WATER,CARBONATED,AMBIENT,,,,CAFFEINE,PLASTIC,PACK,250ML"
"ATTR DETAILS": [
{
"ATTR ID": "25",
"ATTR DESCRIPTION": "MOD_NAME",
"ATTR_VAL ID": "22222222",
"ATTR_VAL DESCRIPTION": "PERFUMED WATER - CARBONATED - CAFFIENE"
},
{
"ATTR ID": "45",
"ATTR DESCRIPTION": "PROM ACTIVE",
"ATTR_VAL ID": "44444444",
"ATTR_VAL DESCRIPTION": "NO PROMO"
},
{
"ATTR ID": "38",
"ATTR DESCRIPTION": "BRAND",
"ATTR_VAL ID": "99999999",
"ATTR_VAL DESCRIPTION": "KANE & ABEL"
},
{
"ATTR ID": "51",
"ATTR DESCRIPTION": "WEIGHT/VOLUME",
"ATTR_VAL ID": "66666666",
"ATTR_VAL DESCRIPTION": "250ML"
}
]
},
{
"ITEM_ID": "45566778",
"ITEM_DSCR": "ABC CO, PERFUMED WATER,CARBONATED,CRYSTAL,,,,CAFFEINE,GLASS,PACK,270ML"
"ATTR DETAILS": [
{
"ATTR ID": "25",
"ATTR DESCRIPTION": "MOD_NAME",
"ATTR_VAL ID": "22222222",
"ATTR_VAL DESCRIPTION": "PERFUMED WATER, CRYSTAL - CARBONATED - CAFFIENE"
},
{
"ATTR ID": "45",
"ATTR DESCRIPTION": "PROM ACTIVE",
"ATTR_VAL ID": "44444444",
"ATTR_VAL DESCRIPTION": "PROMO"
},
{
"ATTR ID": "38",
"ATTR DESCRIPTION": "BRAND",
"ATTR_VAL ID": "99999999",
"ATTR_VAL DESCRIPTION": "BEAUTY & BEAST"
},
{
"ATTR ID": "51",
"ATTR DESCRIPTION": "WEIGHT/VOLUME",
"ATTR_VAL ID": "66666666",
"ATTR_VAL DESCRIPTION": "270ML"
}
]
},
{
"ITEM_ID": "46576879",
"ITEM_DSCR": "ABC CO, PERFUMED WATER,NON-CARBONATED,AMBIENT,,,,NON-CAFFEINE,TETRA,PACK,275ML"
"ATTR DETAILS": [
{
"ATTR ID": "25",
"ATTR DESCRIPTION": "MOD_NAME",
"ATTR_VAL ID": "22222222",
"ATTR_VAL DESCRIPTION": "PERFUMED WATER - NON-CARBONATED - NON-CAFFIENE"
},
{
"ATTR ID": "45",
"ATTR DESCRIPTION": "PROM ACTIVE",
"ATTR_VAL ID": "44444444",
"ATTR_VAL DESCRIPTION": "NO PROMO"
},
{
"ATTR ID": "38",
"ATTR DESCRIPTION": "BRAND",
"ATTR_VAL ID": "99999999",
"ATTR_VAL DESCRIPTION": "HENSEL & GRETEL"
},
{
"ATTR ID": "51",
"ATTR DESCRIPTION": "WEIGHT/VOLUME",
"ATTR_VAL ID": "66666666",
"ATTR_VAL DESCRIPTION": "275ML"
}
]
}
]
}
]
}
最后，我想循环浏览最终字典，并在工作表上的3列中显示3项详细信息，如下所示：
有人可以指导我如何做到这一点吗？
编辑：这是我能弄明白的.....但空白必须填补....Sub GetJSON()
Dim XMLhttp As Object, oJSON As Object, oRTN As Object
Dim URL1$
Dim arrItemIDs() As Variant
Set oRTN = CreateObject("Scripting.Dictionary")
oRTN.comparemode = vbTextCompare
On Error GoTo ErrorHandler
With ThisWorkbook
Set wsMain = .Sheets("Main")
Set wsOut = .Sheets("Output")
URL = "http://11.27.141.15:8000/dev/getInit?" _
& "email=" & "abc@gmail.com" & "&country=" & "GB" & "&initid=" & "1234567"
Set XMLhttp = CreateObject("MSXML2.ServerXMLHTTP")
With XMLhttp
.Open "GET", URL, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Accept", "application/json"
.Send
If XMLhttp.ReadyState = 4 And XMLhttp.Status = 200 Then
Set oJSON = ParseJson(XMLhttp.ResponseText)
' ******CODE TO BE WRITTEN TO COLLECT THE ITEM IDs IN AN ARRAY*****
arrItemIDs = RecurseDictionary(oJSON)
' *****************************
For x = LBound(arrItemIDs) To UBound(arrItemIDs)
URL = "http://11.27.141.15:8000/dev/getItemAttr?" _
& "email=" & "abc@gmail.com" & "&country=" & "GB" & "&itemid=" & arrItemIDs(x)
Set XMLhttp = CreateObject("MSXML2.ServerXMLHTTP")
With XMLhttp
.Open "GET", URL, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Accept", "application/json"
.Send
If XMLhttp.ReadyState = 4 And XMLhttp.Status = 200 Then
Set oJSON = ParseJson(XMLhttp.ResponseText)
' ******CODE TO BE WRITTEN TO MERGE EACH ITEMS ATTRIBUTES JSON TO EARLIER INITIATIVES JSON *****
' *****************************
End If
End With
Next x
' ******CODE TO BE WRITTEN TO DUMP MERGED ARRAY OR DIC ON TO SHEET*****
i = 1
wsOut.Cells.ClearContents
' *****************************
End If
End With
End With
1 个答案:
答案 0 :(得分：1)
这可能会让你开始：
Sub Tester()
Dim Json As Object, itm As Object, itemDetails, k, s As String
Dim initiatives, initiative, items, itmId, details
'I'm storing the JSON on a worksheet for testing purposes...
Set Json = JsonConverter.ParseJson(Sheet1.Range("A1").Value)
Set initiatives = Json("response") '<< array of inititatives
For Each initiative In initiatives
'Top-level info....
Debug.Print initiative("INIT_ID")
Debug.Print initiative("INIT_NAME")
Debug.Print initiative("CATE")
'etc....
'list info on ITEMS (as a a collection)
Set items = initiative("ITEMS")
For Each itm In items
'itm is a Dictionary
itmId = itm("ITEM_ID")
Debug.Print "Item: " & itmId
'here's where you'd fetch the details using item id...
Set itemDetails = JsonConverter.ParseJson(Sheet1.Range("B1").Value)("response")(1)
Set details = itemDetails("ATTR DETAILS")
Debug.Print details.Count
Next itm
Next
End Sub
我会将请求/响应/解析分解为一个独立的函数：
'return a parsed JSON object given a URL
Function GetJsonObject(URL As String)
Dim XMLhttp As Object, oJSON As Object
Set XMLhttp = CreateObject("MSXML2.ServerXMLHTTP")
With XMLhttp
.Open "GET", URL, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Accept", "application/json"
.Send
If .ReadyState = 4 And .Status = 200 Then
Set oJSON = ParseJson(.ResponseText)
End If
End With
Set GetJsonObject = oJSON
End Function
相关问题
最新问题
- 我写了这段代码，但我无法理解我的错误
- 我无法从一个代码实例的列表中删除 None 值，但我可以在另一个实例中。为什么它适用于一个细分市场而不适用于另一个细分市场？
- 是否有可能使 loadstring 不可能等于打印？卢阿
- java中的random.expovariate()
- Appscript 通过会议在 Google 日历中发送电子邮件和创建活动
- 为什么我的 Onclick 箭头功能在 React 中不起作用？
- 在此代码中是否有使用“this”的替代方法？
- 在 SQL Server 和 PostgreSQL 上查询，我如何从第一个表获得第二个表的可视化
- 每千个数字得到
- 更新了城市边界 KML 文件的来源？