解析 VBA 字典中的数组项时下标超出范围 - 不能使用索引 0

Question

I created a text file with 1 line which looked like this {"key 1":["item1","item2"],"key 2":"ItemX"} and saved it as test.json. I then tried parsing the items in the array in "key 1", using the VBA subroutine below:

Sub testjs3()
    Dim FSO As New FileSystemObject
    Dim JsonTS As TextStream
    Dim JsonText As String
    Dim Parsed As Scripting.Dictionary

    Set JsonTS = FSO.OpenTextFile("C:\test.json", ForReading)
    JsonText = JsonTS.ReadAll
    JsonTS.Close
    Debug.Print JsonText
    Set Parsed = JsonConverter.ParseJson(JsonText)
    
    Debug.Print Parsed.Item("key 1")(0)
    Debug.Print Parsed.Item("key 1")(1)

End Sub

The line Debug.Print Parsed.Item("key 1")(0) caused VBA to return Subscript Out Of Range error, whereas if I commented out that faulty line, the next line that parsed "key 1" for item at index 1 seemed to return the first item in the array which in this case was "item1". I can't figured out why index 0 was returning error.

I then used another subroutine that created the dictionary instead of reading it from a json file, the subroutine is as below:

Sub test4()
 Dim keywords As Object
    
    Set keywords = CreateObject("scripting.dictionary")
    
    keywords.Add "key 1", Array("item1", "item2")
    keywords.Add "key 2", "ItemX"
    
    Debug.Print keywords.Item("key 1")(0)
    Debug.Print keywords.Item("key 1")(1)
    Debug.Print keywords.Item("key 2")
    
    Debug.Print JsonConverter.ConvertToJson(keywords)
        
End Sub

This time the dictionary returned the correct item in the array of "key 1" using index 0, and the debug print also showed both json strings read from the file and the one created via dictionary .add command were identical.

I am sure I missed something, your advice is very much appreciated.

Answer 1

Alex has the answer. The array returned in JsonConverter.ParseJson is of type Collection which starts from index 1, whereas the array created via dictionary object .add method is of type 0-based array which starts from index 0.