VBA中的json_encode

smcfy

已于 2023-04-19 11:08:47 修改

阅读量908

点赞数

文章标签： json 开发语言

于 2023-04-18 16:28:55 首次发布

本文链接：https://blog.csdn.net/smcfy/article/details/130224946

版权

本文介绍了在VBA中如何使用字典和递归算法来模拟PHP的json_encode功能，以生成JSON数据。虽然不如PHP的对象转换方便，但对于特定场景已足够。作者分享了自己的改进版代码，用于将VBA字典转换为JSON。

摘要由CSDN通过智能技术生成

最近笔者写vba代码的时候需要将一组数据包装成json数据作为参数传递，然而网上搜索了一圈，并没有发现如PHP的json_encode，decode之类通用的方法。后来看到另外一位博主的文章，是利用字典+递归算法来实现（原文：在 VBA 中将对象转换为 JSON |），虽然对于笔者的场景来说已经够用了，但毕竟没达到php object那样便利，然而vba的字典本身是支持方便的object关联关系的，于是笔者强迫症犯了，尝试着做了一下改写，权作记录吧：

'将数组/dictionary转换为json字符串

'参数：object可以为普通数组、Dictionary或Dictionary数组，Dictionary为key-value键值对，value可以支持数字、字符串、普通数组、Dictionary或Dictionary数组，普通数组中可以是数字或者字符串

'参考来源：https://qa.1r1g.com/sf/ask/2314208291/

Function objToJson(ByVal object) As String
    
    Dim result As String
    If IsArray(object) Then
        result = "["
        For Each obj In object
            result = result & IIf(Len(result) > 1, ",", "")
            If TypeN