PureBasic Forums - English

Code: Select all

Text.s = "{'status':1,'info':'OK','data':{'uid':123,'token':'012345678901234567890123456789'}}"

Text = ReplaceString(Text, "'", #DQUOTE$)
If ParseJSON(0, Text)

  ; Showing step by step... you could combine these and use less variables
  *MainObject = JSONValue(0)
  *Data = GetJSONMember(*MainObject, "data")
  *Token = GetJSONMember(*Data, "token")
  Token.s = GetJSONString(*Token)
  Debug "Token: " + Token
Else
  Debug "Parse failed"
EndIf

Code: Select all

IncludeFile "JSON_Helper.pbi"

Text.s = "{'status':1,'info':'OK','data':{'uid':123,'token':'012345678901234567890123456789'}}"

Text = ReplaceString(Text, "'", #DQUOTE$)
If ParseJSON(0, Text)
  Debug "Token: " + JSONStringFromPath(MainJSONObject(0), "data/token")
  Debug "UID: " + JSONIntegerFromPath(MainJSONObject(0), "data/uid")
Else
  Debug "Parse failed"
EndIf

Code: Select all

Structure UidTokenStructure
  uid.i
  token.s
EndStructure

Structure JSONStructure
  status.i
  info.s
  Data.UidTokenStructure
EndStructure


Define JSON$, JSONStruct.JSONStructure

JSON$ = ~"{\"status\":1,\"info\":\"OK\",\"Data\":{\"uid\":123,\"token\":\"012345678901234567890123456789\"}}"
Debug JSON$

If ParseJSON(0, JSON$)
  ExtractJSONStructure(JSONValue(0), @JSONStruct, JSONStructure)
  Debug JSONStruct\Data\uid
  Debug JSONStruct\Data\token
  FreeJSON(0)
EndIf