Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

json格式化字符串组合包裹

时 间:2022-06-23 23:14:23
作 者:鼠标   ID:27902  城市:嘉定
摘 要:json字符串组合包裹。
正 文:

'JSON字符串组合包裹
'使用方法:Objson(Itemjson("name","鹿晗"))            ==输出==>{"name":"鹿晗"}
'         Arjson (ItJson("name", "鹿晗"))            ==输出==>["name":"鹿晗"]
'         Objson (ItJson("name", "鹿晗",false))      ==输出==>{"name":鹿晗}
'json处理---加双引号
Public Function ItJson(key As String, value As Variant, Optional ByVal istext As Boolean = True) 'ItemJson==》ItJosn,istext如果是字符串加双引号,否则不加
    If istext Then
        ItJson = """" & key & """:" & """" & value & """"
    Else
        ItJson = """" & key & """:" & value
    End If
End Function
'json规则格式---对象包裹
 
Public Function Objson(ParamArray items() As Variant)
    Dim item As Variant
    Dim tempitem As String
    For Each item In items
        tempitem = tempitem & "," & item
    Next
    tempitem = Mid(tempitem, 2)
    Objson = "{" & tempitem & "}"
End Function
'json规则格式---数组包裹
Public Function Arjson(ParamArray items() As Variant)
    Dim item As Variant
    Dim tempitem As String
    For Each item In items
        tempitem = tempitem & "," & item
    Next
    tempitem = Mid(tempitem, 2)
    Arjson = "[" & tempitem & "]"
End Function

Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助