VB6PlusTLB版 – CreateJson函数

说明

创建高性能Json解析。

语法

CreateJson()AsJson

Json的成员

解析字符串

FunctionParse(TextAsString,ErrAsString)AsBoolean

Text

字符串

Err

错误信息

得到长度

FunctionGetLength()AsInteger

得到数组的键值(非数组取当前)

FunctionRs(IndexAsInteger,KeyAsString)AsString

Index

数组从0开始的序号

Key

键

得到子数组的长度(非数组返回1)

FunctionSRsLen(IndexAsInteger,KeyAsString)AsInteger

Index

数组从0开始的序号

Key

键

得到子数组的键值(非数组取当前)

FunctionSRs(IndexAsInteger,KeyAsString,SonIndexAsInteger,SonKeyAsString)AsString

Index

数组从0开始的序号

Key

键

SonIndex

子数组从0开始的序号

SonKey

键

得到指定路径的键值

FunctionGet(PathAsString,[DecodeTextAsBoolean=False])AsString

Path

路径

DecodeText

是否解码

示例

新建工程，添加窗体，设置标题，添加标签、文本框和按钮

打开代码窗口，写入代码

OptionExplicit

PrivateSubcmdJGet_Click()

DimJsnAsJson

DimStrBAsStringBuilder

DimintLenAsInteger

DimiAsInteger

DimStrErrAsString

SetStrB=CreateStringBuilder

"----------------------",vbCrLf

"按路径读取",vbCrLf

"路径：",vbCrLf

"----------------------",vbCrLf

SetJsn=CreateJson

(,StrErr)=FalseThen

,vbCrLf

SetJsn=Nothing

GoToFinal

If

(,True)

SetJsn=Nothing

Final:

=

SetStrB=Nothing

Sub

PrivateSubcmdParseJson_Click()

DimJsnAsJson

DimStrBAsStringBuilder

DimintLenAsInteger

DimiAsInteger

DimStrErrAsString

SetStrB=CreateStringBuilder

"----------------------",vbCrLf

"根解析",vbCrLf

"----------------------",vbCrLf

SetJsn=CreateJson

(,StrErr)=FalseThen

,vbCrLf

SetJsn=Nothing

GoToFinal

If

intLen=()

"序号",vbTab,"名称",vbTab,"值",vbCrLf

Fori=1TointLen

(i),vbTab,(i-1,"name"),vbTab,(i-1,"value"),vbCrLf

Next

SetJsn=Nothing

Final:

=

SetStrB=Nothing

Sub

PrivateSubcmdParseJsonSon_Click()

DimJsnAsJson

DimStrBAsStringBuilder

DimintLenAsInteger

DimiAsInteger

DimStrErrAsString

SetStrB=CreateStringBuilder

"----------------------",vbCrLf

"子解析",vbCrLf

"路径：[0][data]",vbCrLf

"----------------------",vbCrLf

SetJsn=CreateJson

(,StrErr)=FalseThen

,vbCrLf

SetJsn=Nothing

GoToFinal

If

intLen=(0,"data")

"序号",vbTab,"key",vbCrLf

Fori=1TointLen

(i),vbTab,(0,"data",i-1,"key"),vbCrLf

Next

SetJsn=Nothing

Final:

=

SetStrB=Nothing

Sub

运行效果

免责声明

Vb6plusTLB库，使用社区版开发，仅供学习交流使用。

使用本软件风险由用户自行承担，在适用法律允许的最大范围内，对因使用或不能使用本软件所产生的损害及风险，包括但不限于直接或间接的个人损害、商业盈利的丧失、贸易中断、商业信息的丢失或任何其它经济损失，以及任何不可抗力带来的损失，我方不承担任何责任。

如本文不适合发表请通知删除。

很赞哦!（184）