Skip to content

Update RestHelpers.bas #10

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
wants to merge 1 commit into from
Closed

Update RestHelpers.bas #10

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 10 additions & 1 deletion src/RestHelpers.bas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -456,8 +456,17 @@ Private Function json_parseObject(ByRef str As String, ByRef index As Long) As O
Dim Key As String

' add key/value pair
json_parseObject.Add Key:=json_parseKey(str, index), Item:=json_parseValue(str, index)

'// Next line commented out as it throws error if key is repeated which is still valid json
'json_parseObject.Add Key:=json_parseKey(str, index), Item:=json_parseValue(str, index)

'// The purpose of this fix is to test for key existence before adding so parser doesen't throw an error
' which would cause the intended RestResponse.Data object to be 'nothing'
currentKey = json_parseKey(str, index)
currentItem = json_parseValue(str, index)

If Not json_parseObject.Exists(currentKey) Then json_parseObject.Add Key:=currentKey, Item:=currentItem

Loop

End Function
Expand Down