如何在檢索json密鑰時保留空格？

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