如何在VB6中格式化并缩进单行JSON字符串？

转换后的标准缩进JSON #

{
    "data": {
        "GET:oauth.openapi.it/counters": {
            "counter": 22,
            "paid": 0,
            "limit": false
        },
        "GET:oauth.openapi.it/scopes": {
            "counter": 6,
            "paid": 0,
            "limit": false
        },
        "POST:oauth.openapi.it/token": {
            "counter": 1,
            "paid": 0,
            "limit": false
        },
        "GET:imprese.openapi.it/advance": {
            "counter": 14,
            "paid": 0,
            "limit": false
        },
        "GET:imprese.openapi.it/base": {
            "counter": 2,
            "paid": 0,
            "limit": false
        }
    },
    "success": true,
    "message": "",
    "error": null
}

在VB6中实现自动格式化的方法 #

VB6没有内置JSON处理功能，可借助第三方库VBJSON实现：

1. 将VBJSON模块导入你的VB6工程。
2. 使用以下代码解析并生成格式化JSON：

Dim stringa As String
Dim jsonObj As Object
Dim formattedJson As String

' 原始单行JSON字符串
stringa = "{""data"":{""GET:oauth.openapi.it/counters"":{""counter"":22,""paid"":0,""limit"":false},""GET:oauth.openapi.it/scopes"":{""counter"":6,""paid"":0,""limit"":false},""POST:oauth.openapi.it/token"":{""counter"":1,""paid"":0,""limit"":false},""GET:imprese.openapi.it/advance"":{""counter"":14,""paid"":0,""limit"":false},""GET:imprese.openapi.it/base"":{""counter"":2,""paid"":0,""limit"":false}},""success"":true,""message"":"""",""error"":null}"

' 解析JSON为对象
Set jsonObj = JSON.parse(stringa)
' 生成带4空格缩进的格式化JSON
formattedJson = JSON.toString(jsonObj, , 4)

' 输出结果（可替换为写入文件或其他操作）
MsgBox formattedJson

临时快速格式化方案 #

如果仅需查看结构，可将原始单行JSON复制到本地JSON格式化工具（如文本编辑器的JSON格式化插件）中，一键生成缩进后的格式。

内容的提问来源于stack exchange，提问作者user1579247