如何从 JSON 获取数据并在 vb6 中单独显示

Question

我正在从 JSON 文件获取数据，并希望在文本框中单独显示一些数据。我正在使用（VBA-JSON v2.3.1 JsonConverter）。 Github 上的 VBA-Json）。 Github 中的 VBA-Json

这是输出：

{
"status": "OK",
"code": "OK",
"message": "Ok",
"data": {
"user": {
  "id": 5883,
  "username": "Demo",
  "name": "Niki Jackson",
  "email": "[email protected]",
  "mobile": "9325547989",
  "certificate_id": "122876",
  "address": "Sunshine Bvl",
  "company": "Light Co",
  "expire": "0001-01-01T00:00:00Z",
  "status": "active"
  }
 }
}

我使用此代码但不起作用：

Dim Parsed As Object
Set Parsed = JsonConverter.ParseJson(JSONS)
text1.text = Parsed("data")("user")(1)("name")
text2.text = Parsed("data")("user")(1)("mobile") 

如何解析Json数据？ 请，您的代码来自 JsonConverter 文件，而不是 json 文件。 先谢谢你了

Answer 1

我找到了答案，我会把它留在这里，这样也许可以解决其他人的问题。

Dim Parsed As Object
Set Parsed = JsonConverter.ParseJson(JSONS)
text1.text = Parsed.Item("data").Item("user").Item("name")
text2.text = Parsed.Item("data").Item("user").Item("mobile")