web-services - 是否有适用于 VB6/VBA 的 JSON 解析器？

Question

我正在尝试使用 VB6 中的 Web 服务。我控制的服务目前可以返回 SOAP/XML 消息或 JSON。我很难弄清楚 VB6 的 SOAP 类型(版本 1)是否可以处理返回的 object - 而不是像 string、int< 这样的简单类型 等。到目前为止，我无法弄清楚我需要做什么才能让 VB6 使用返回的对象。

所以我想我可以将 Web 服务中的响应序列化为 JSON 字符串。 VB6 是否存在 JSON 解析器？

Answer 1

查看 JSON.org获取许多不同语言的 JSON 解析器的最新列表(参见主页底部)。在撰写本文时，您将在那里看到几个不同 JSON 解析器的链接，但只有一个用于 VB6/VBA(其他的是 .NET):

• VB-JSON

  • 当我尝试下载 zip 文件时，Windows 说数据已损坏。但是，我可以使用 7-zip拉出文件。事实证明，zip 文件中的主“文件夹”不被 Windows 识别为文件夹，通过 7-zip 可以看到该主“文件夹”的内容，因此您可以打开它然后相应地提取文件.

  • 这个 VB JSON 库的实际语法非常简单:

    Dim p As Object
    Set p = JSON.parse(strFormattedJSON)
    
    'Print the text of a nested property '
    Debug.Print p.Item("AddressClassification").Item("Description")
    
    'Print the text of a property within an array '
    Debug.Print p.Item("Candidates")(4).Item("ZipCode")
    

  • 注意:我必须通过 VBA 编辑器中的工具 > 引用添加“Microsoft Scripting Runtime”和“Microsoft ActiveX Data Objects 2.8”库作为引用。
  • 注意:VBJSON代码实际上是基于一个google代码项目vba-json .但是，VBJSON promise 在原始版本中修复几个错误。