我正在尝试在VB6中使用Web服务。该服务-由我控制-当前可以返回SOAP / XML消息或JSON。我有一个非常困难的时候搞清楚,如果VB6的SOAP类型(第1版)可以处理返回object-而不是简单的类型,如string,int等。到目前为止,我想不出什么,我需要做的就是VB6与返回玩对象。
object
string
int
所以我想我可以将Web服务中的响应序列化为JSON字符串。VB6是否存在JSON解析器?
请访问JSON.org,以多种语言查看JSON解析器的最新列表(请参阅主页底部)。在撰写本文时,您将在此处看到指向几个不同的JSON解析器的链接,但是只有一个用于VB6 / VBA(其他是.NET):
VB-JSON
这个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”库添加为引用。