Infinite loop parsing JSON array

[bensiron]

Test case: ParseJson("[")
results in infinite loop

suggested fix, array abnormally terminated handler in json_ParseArray:

Private Function json_ParseArray(json_String As String, ByRef json_Index As Long) As Collection
    Set json_ParseArray = New Collection

    json_SkipSpaces json_String, json_Index
    If VBA.Mid$(json_String, json_Index, 1) <> "[" Then
        Err.Raise 10001, "JSONConverter", json_ParseErrorMessage(json_String, json_Index, "Expecting '['")
    Else
        json_Index = json_Index + 1

        Do
            If json_Index > Len(json_String) Then
                Err.Raise 10001, "JSONConverter", json_ParseErrorMessage(json_String, json_Index, "array abnormally terminated")
            End If
        
            json_SkipSpaces json_String, json_Index
            If VBA.Mid$(json_String, json_Index, 1) = "]" Then
                json_Index = json_Index + 1
                Exit Function
            ElseIf VBA.Mid$(json_String, json_Index, 1) = "," Then
                json_Index = json_Index + 1
                json_SkipSpaces json_String, json_Index
            End If

            json_ParseArray.Add json_ParseValue(json_String, json_Index)
        Loop
    End If
End Function

[timhall]

@bensiron Thanks for raising this issue and the suggested fix, I'll include this in an upcoming batch of fixes.

[zgrose]

+1 for getting this into a build sometime soon. I had a web request terminate abnormally and the partial text sent Excel into this death dive. Was typing in an issue just now when GitHub suggested this issue based on my title.