MultiRead_JSON

Reads array of arrays from the parent and return back ANString of 3 columns

CodeFunctionName

What is this?

Public

Tested

Original Work

Function MultiRead_JSON(ParentName, FullJSONString)
    ' Reads array of arrays from the parent and return back ANString of 3 columns
    '    ChildName | amount | date
    '    formatted as ...
    '            "1553866200": { "amount": 1.16, "date": 1553866200 }
    ' Needs VBINSTR, CutString
    '
    Rett = ""
    Found1 = VBInstr(ParentName, FullJSONString)
    If Found1 = 0 Then GoTo ByeBye
    Found2 = VBInstr(":", FullJSONString, Found1)
    If Found2 = 0 Then GoTo ByeBye

    ParJSon = Trim(CutString(FullJSONString, "{", "}}", Found1))
    Rett = ParJSon
ByeBye:
    MultiRead_JSON = Rett
End Function

ParentName, FullJSONString