JsonString到VB6中的对象

所以我需要将以下响应从JsonString的Httprequest转换为Object。有人能帮忙把它循环到一个对象上吗。[Vb6新增]

请参阅下面的Json响应

{
"Participants": [
{
  "Participant": {
    "EntityHierarchy": {},
    "ProviderPlatform": "string",
    "ProviderPlatformDetail": [
      {
        "ProviderPlatform": "string",
        "Primary": true
      }
    ],
    "FirstName": "string",
    "LastName": "string",
    "BusinessName": "string",
    "City": "string",
    "Region": "string",
    "PostalCode": "string",
    "Phone": "string",
    "CountryCode": "string",
    "Email": "string",
    "AccountNumber": "string",
    "Active": true,
    "PSuiteAttribute": "string",
    "ParticipantIdentifier": "string",
    "SystemParticipantIdentifier": "string",
    "ITAIdentifier": "string"
    },
   "Platform": "string",
   "Program": "string",
   "ProgramFriendlyName": "string",
   "EnterpriseServicesIdentifier": "string",
   "IdentityMapped": true,
   "MappedToMasterPlatform": true,
   "MasterPlatform": "string",
   "SupportingPlatform": "string",
   "MasterPlatformName": "string",
   "SupportingPlatformName": "string",
   "FaultedMessages": [
   "string"
   ]
   }

---

Bruce McPherson大量使用名为

cJobject

的类在VBA/VB6中处理JSON

cJobject

太大，无法容纳答案，但您可以获取其当前源代码。另请参见他的。

有很多JSON类是用VB6、VBA或VB6编写的，可以移植到VBA

这里还有几个：