Question

我正在使用vba-json来解析json并且在键中保留空格时遇到了麻烦。我是VBA的新手，并没有在课堂上看到任何东西给我选择保留键中的空格。我正在使用班级found here

我有：

Function me_()
    Dim s, json, i
    s = "{'key one':'value one','key two':'value two'}"
    Dim lib As New JSONLib
    Set json = lib.parse(CStr(s))

    For Each i In json
        Debug.Print i & "," & json.Item(i)
    Next
    me_ = "done"
End Function

这会保留值中的空格而不是键：

keyone,value one
keytwo,value two

（jsonlint.com说我的json对密钥中的空格有效）

Answer 1

可以通过更改代码来实现，特别是方法parseKey。

第282行的键中忽略空格（空格，制表符和各种换行符）：

If InStr(vbCrLf & vbCr & vbLf & vbTab & " ", char) Then

如何在检索json密钥时保留空格？

1 个答案: