是否有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提取文件。事实证明，Windows无法将zip文件中的主要“文件夹”识别为文件夹，通过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脚本运行时”和“ Microsoft ActiveX数据对象2.8”库添加为引用。

  • 注意：VBJSON代码实际上是基于Google代码项目vba-json的。但是，VBJSON承诺会从原始版本中修复一些错误。