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
' 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
Views 183
Downloads 68
CodeID
DB ID