VB6 Json字符串合成

最新推荐文章于 2025-03-22 19:54:22 发布

長安只在旧夢中（梁瀚文）

最新推荐文章于 2025-03-22 19:54:22 发布

阅读量1.5k

点赞数 1

分类专栏： Win 系统问题文章标签： vb6 VBjson Json

本文链接：https://blog.csdn.net/wangshengfeng1986211/article/details/113088259

版权

本文详细介绍了如何在VB6环境下使用VBjson库来创建和处理JSON字符串，包括基本语法、实例演示以及常见问题解析，帮助开发者更好地进行数据序列化操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Function dictToJson(pDicX As Dictionary, Optional ByVal isEscape As Boolean = True, Optional ByVal isObjBeginEndYinHao As Boolean = False) As String

    '字典转为带有转义符号的json
    '   参数:
    '   isEscape 是否传出携带转义的字符串[默认有转义符号]
    '   isObjBeginEndAddYinHao[默认关闭]    者{} 前后是否增加引号显示    value是否字典前面或者数组前面增加引号   ,"{    或者    ,{            。后面为 }"  或者  }
    
    '......入参Demo
    'Dim pDicX As Dictionary
    'Set pDicX = New Dictionary
    'or Dim pDicX As New Dictionary
    'pDicX.Add "A", 100
    
































































    '空检测
    If IsNull(pDicX) Or TypeName(pDicX) <> "Dictionary" Then
        dictToJson = ""
        Exit Function
    End If
    
    '..........字典转json
    Dim sStr As String
    Dim i As Integer
    Dim keyArray As Variant, itemArray As Variant
    keyArray = pDicX.keys
    itemArray = pDi