【VBA自学笔记(二)】Json自用笔记——1.格式化Json字符串

最新推荐文章于 2024-09-13 21:34:42 发布

sillsun

最新推荐文章于 2024-09-13 21:34:42 发布

阅读量1.7k

点赞数

分类专栏： vba vb.net

本文链接：https://blog.csdn.net/sillsun/article/details/78765007

版权

本文介绍如何在VBA中处理Json字符串，包括删除无意义的字符，如空格、回车、TAB和换行符，以及将Json字符串转换为易读格式的方法，适合需要在VBA环境中操作Json的读者。

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

由于工作关系，需要生成Json文件的配置，但vba使用dll实在太麻烦了，换了台电脑又需要重新引用，所以决定写Json的解析。

第一步：将字符串格式化。

思路：逐个字符判断该字符所属的类型，期望能将不同格式的Json字符串修改为统一格式的字符串。

将Json字符串中，空格、回车、TAB、换行符这几种没任何意义的字符删除。

    Function StringToJson(st)
        Dim i As Integer, ThisChar As String, NextChar As String, LastChar As String
        Dim isInString As Boolean, OutPutStr As String
        isInString = False
        OutPutStr = ""
        For i = 1 To Len(st)
            ThisChar = Mid(st, i, 1)
            NextChar = Mid(st, i + 1, 1)
            Select Case ThisChar
                Case """"
                    isInString = Not isInString
                    OutPutStr = OutPutStr & ThisChar
                Case " "
                    LastChar = Mid(st, i - 1, 1)
                    If isInString = True Then
                        Out