技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 427|回复: 4
收起左侧

【VB6】VB6 读写 JSON 字符串

[复制链接]

1099

主题

1600

回帖

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
242
威望
681 点
宅币
23204 个
贡献
46153 次
宅之契约
0 份
在线时间
2207 小时
注册时间
2014-1-26
发表于 2022-12-9 21:25:16 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有账号?立即注册→加入我们

x

VB6 JSON

针对 Visual Basic 6.0 设计的 JSON 解析/存储库


jsontest.png

用法

从帖子附件或者 GitHub 链接里下载 VB6 的 JSON 库。如果无法访问 GitHub,可从帖子附件下载。

https://github.com/0xAA55/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() 的返回值,可以判断它是否为 LongCurrencyDouble。类型号分别为 vbLongvbCurrencyvbDouble

例子代码

请观察以下例子代码来学习如何使用。

例子代码 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 语法



源码下载: VB6JSON-main.zip (7.52 KB, 下载次数: 2, 售价: 1 个宅币)

https://github.com/0xAA55/VB6JSON
回复

使用道具 举报

7

主题

150

回帖

9658

积分

用户组: 真·技术宅

UID
4293
精华
5
威望
430 点
宅币
7781 个
贡献
835 次
宅之契约
0 份
在线时间
273 小时
注册时间
2018-9-19
发表于 2022-12-9 22:08:55 | 显示全部楼层
第二个例子可以优化一下,改用VB的感叹号语法:
[Visual Basic] 纯文本查看 复制代码
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

这样,就更像js里面调用json的用法了。
JS:obj.xxx 是 obj["xxx"] 的简写
VB:obj!xxx 是 obj("xxx") 的简写

评分

参与人数 1威望 +6 宅币 +66 贡献 +6 收起 理由
0xAA55 + 6 + 66 + 6 666

查看全部评分

52

主题

231

回帖

8973

积分

用户组: 管理员

UID
77
精华
16
威望
237 点
宅币
7890 个
贡献
246 次
宅之契约
0 份
在线时间
229 小时
注册时间
2014-2-22
发表于 2022-12-14 19:26:01 | 显示全部楼层
我个人还是喜欢用INI处理简单的配置和数据存储。我对大量的括号、引号有种特别的反感。

0

主题

16

回帖

61

积分

用户组: 小·技术宅

UID
7859
精华
0
威望
2 点
宅币
41 个
贡献
0 次
宅之契约
0 份
在线时间
5 小时
注册时间
2022-5-24
发表于 2022-12-15 16:56:41 | 显示全部楼层
Golden Blonde 发表于 2022-12-14 19:26
我个人还是喜欢用INI处理简单的配置和数据存储。我对大量的括号、引号有种特别的反感。 ...

INI我也喜欢,但是他没有结构概念,这点不好

1

主题

127

回帖

302

积分

用户组: 中·技术宅

UID
7535
精华
0
威望
0 点
宅币
174 个
贡献
0 次
宅之契约
0 份
在线时间
25 小时
注册时间
2021-10-16
发表于 7 天前 | 显示全部楼层

谢谢楼主无私分享

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2023-2-5 23:18 , Processed in 0.039598 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表