用法
从帖子附件或者 Gitee 链接里下载 VB6 的 JSON 库。如果无法访问 Gitee，可从帖子附件下载。
https://gitee.com/a5k3rn3l/vb6json
复制 modJson.bas 到你的工程里。这一个模块文件包含了全部的功能。
调用 ParseJSONString() 函数或者 ParseJSONString2() 过程来解析 JSON 字符串，得到一个返回的 Variant 类型的变量，里面包含了解析好了的 JSON 数据。
在解析的过程中，这个库使用以下的策略解析 JSON 到 Variant：
- 数值类型被解析为
Long 或者 Currency，取决于数值的范围，数值比较小就用 Long，比较大就用 Currency，而如果数值包含小数点或者科学计数法，则使用 Double 类型。
- JSON 字符串被解析为 VB 字符串，其中字符串的转义字符
\ 会按规范进行转义。
- 列表
[] 被解析为 VB6 的 Variant 数组，每个数组元素都可以是不同的类型。
- 对象
{} 被解析为字典（Scripting.Dictionary）。注意 对象变量需要用 Set 来赋值。
函数 JSONToString() 做相反的工作：把解析出来的 Variant 转换回 JSON 字符串。
注意事项
因为字典在 VB 里是一个对象（Object），但别的类型（数值、字符串、数组）则不是，对于 VB6 在语法上，对象存在一个引用的概念，因此针对对象的变量赋值需要使用 Set 语法，而对普通变量则不需要用 Set 语法，这导致同一条语句在遇到不同的 JSON 内容时会因此报错，比如：
Dim Data As Variant
Data = ParseJSONString(" [ 114, 514, ""1919"", 8.10e2 ] ") '不需要 Set
Debug.Print Data (0); Data (1); Data (2); Data (3) '输出 114 514 1919 810
Set Data = ParseJSONString("{""Mike"": 514, ""Mary"": 1919810, ""Sam"": 114}") '需要 Set
Debug.Print "Sam: "; Data("Sam") '输出 Sam: 114
Debug.Print "Mike: "; Data("Mike") '输出 Mike: 514
Debug.Print "Mary: "; Data("Mary") '输出 Mary: 1919810
在这种情况下建议用 ParseJSONString2() 过程，它使用参数来取得返回值，省去了变量赋值需要考虑要不要用 Set 语法的问题，例子代码如下：
Dim Data As Variant
Call ParseJSONString2(" [ 114, 514, ""1919"", 8.10e2 ] ", Data) '不需要 Set
Debug.Print Data (0); Data (1); Data (2); Data (3) '输出 114 514 1919 810
Call ParseJSONString2("{""Mike"": 514, ""Mary"": 1919810, ""Sam"": 114}", Data) '也不需要 Set
Debug.Print "Sam: "; Data("Sam") '输出 Sam: 114
Debug.Print "Mike: "; Data("Mike") '输出 Mike: 514
Debug.Print "Mary: "; Data("Mary") '输出 Mary: 1919810
如何判断 Variant 的具体类型
- 先判断它是不是对象，使用
IsObject() 来判断。
- 如果不是对象，此时判断它是不是数组，使用
IsArray() 来判断。
- 如果不是数组，则需要判断它是不是字符串，先用
VarType() 来获取 Variant 的类型号，然后判断类型号是不是 vbString。
- 不能直接用
IsNumeric() 进行判断，因为它会把字符串格式存储的数值也判定为是数值。
- 如果不是字符串，那它应该是数值了。根据刚才调用的
VarType() 的返回值，可以判断它是否为 Long、Currency、Double。类型号分别为 vbLong、vbCurrency、vbDouble。
例子代码
请观察以下例子代码来学习如何使用。
例子代码 1
读取一个 JSON 列表。
Sub Example1()
Dim JsonObj As Variant
ParseJSONString2 " [ 114, 514, ""1919"", 8.10e2 ] ", JsonObj
Debug.Print JsonObj(0); JsonObj(1); JsonObj(2); JsonObj(3)
End Sub
输出内容：
114 514 1919 810
例子代码 2
读取一个 JSON 对象。
Sub Example2()
Dim JsonObj As Variant
ParseJSONString2 "{""Mike"": 123, ""Mary"": 456, ""Sam"": 789}", JsonObj
Debug.Print "Sam: "; JsonObj("Sam")
Debug.Print "Mike: "; JsonObj("Mike")
Debug.Print "Mary: "; JsonObj("Mary")
End Sub
输出内容：
Sam: 789
Mike: 123
Mary: 456
例子代码 3
典型例子：在调用 REST API 时，通过 REST API 返回的 JSON 数据判断 API 的执行结果，并弹窗显示。（例子代码无 REST API 调用过程）
Sub Example3()
Dim JsonObj As Variant
ParseJSONString2 "{""success"": true, ""data"": {""text"": ""Hello Json!"", ""title"": ""VB6 Json""}}", JsonObj
'''ParseJSONString2 "{""success"": false, ""wording"": ""API failed.""}", JsonObj
If JsonObj("success") = False Then
MsgBox JsonObj("wording"), vbExclamation, "API failed."
Else
MsgBox JsonObj("data")("text"), vbInformation, JsonObj("data")("title")
End If
End Sub
参考资料
看 JSON 规范
看 VB 的 VarType 语法
|Archiver|小黑屋|技术宅的结界
( 滇ICP备16008837号 )|网站地图
发表于 2022-12-9 21:25:16
发表于 2022-12-9 22:08:55
