Visual Basic解析嵌套的JSON文件
Visual Basic解析嵌套的JSON文件
提问于 2018-06-01 05:51:30
所以我有这个嵌套的JSON文件
{
"root": [{
"STATUS_RE": {
"STATUS": {
"STATUS": {
"OWNER": "Manny",
"REQUEST_ID": "00000",
"STATE": "SUCCESS"
}
},
"RESPONSE_FORMAT": "New",
"OWNER": "Manny",
"REQUEST_ID": "00000",
"RESULT": [{
"USER": {
"BUSINESS_ID": "N",
"ID_NUMBER": "016",
"U_LANGUAGE": "F",
"B_CODE": "08302"
}
},
{
"USER_A": {
ROLE": "true",
"ACCESSING": "true"
}
}
}
}]
}我正在使用这个visual basic代码，试图访问这个json文件的某些部分。例如，我想要"USER“下的"BUSINESS_ID”和"ID_Number“，以及"USER_A”下的"ROLE“。
这是我正在使用的代码
Dim FSO As New FileSystemObject
Dim JsonTS As TextStream
Set JsonTS = FSO.OpenTextFile("example.json", ForReading)
JsonText = JsonTS.ReadAll
JsonTS.Close
Set JSON = ParseJson(JsonText)
i = 2
For Each Item In JSON
Sheets(1).Cells(i, 1).Value = Item("BUSINESS_ID")
Sheets(1).Cells(i, 2).Value = Item("ID_Number")
i = i + 1我试着把For Each Item In JSON改成像For Each Item In JSON("root")(STATUS_RE")....这样的东西，一直到("USER")，然后抓取"BUSINESS_ID“，但这不起作用，我该如何提取我需要的信息呢？
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-06-01 07:34:50
例如：
Dim result As String
Dim JSON As Object
result = Range("A9").Value
Set JSON = JsonConverter.ParseJson(result)
Debug.Print JSON("root")(1)("STATUS_RE")("RESULT")(1)("USER")("ID_NUMBER") '>> 016页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50633309
复制相关文章
相似问题