hey.....
i am trying to parse my json to basic4android program, but it gives me error.
i tried my best but failed. please let me know solution. my json code is as:
{"posts":[{"post":{"subcat_id":"1","subcategory":"Salsa Verde Steak Sandwich","description":"Scotch Fillet char-grilled to your liking, on a bed of fresh herb Salsa\r\nVerde and cucumber slices in a toasted Ciabatta bread. Some say they\r\ncan taste summer in this one, what do you say? $14.50","icon":"salsa_verde_steak_sandwich.jpg"}}]}
i am using this code:
Sub Activity_Create(FirstTime As Boolean)
Dim req As HttpRequest
Activity.LoadLayout("json")
If FirstTime Then
hc.Initialize("hc")
End If
req.InitializeGet("http://www.thirdwavecafe.com.au/web-service.php?cat_id=3&format=json")
hc.Execute(req, 1)
End Sub
Sub hc_ResponseSuccess (response As HttpResponse, TaskId As Int)
resultString = response.GetString("UTF8")
End Sub
Sub button1_Click
Dim MenuItems As List
Dim tempstring As String
myJson.Initialize(resultString)
First_MAp.Initialize
Second_map.Initialize
First_MAp = myJson.NextArray
Msgbox(resultString,"map1")
'First_MAp = First_MAp.Get("post")
'Second_map = Second_map.Get("subcat_id")
tempstring = First_MAp.Get("posts")
Msgbox(tempstring,"map")
tempstring = First_MAp.Get("post")
Msgbox(tempstring,"aray")
rgds
i am trying to parse my json to basic4android program, but it gives me error.
i tried my best but failed. please let me know solution. my json code is as:
{"posts":[{"post":{"subcat_id":"1","subcategory":"Salsa Verde Steak Sandwich","description":"Scotch Fillet char-grilled to your liking, on a bed of fresh herb Salsa\r\nVerde and cucumber slices in a toasted Ciabatta bread. Some say they\r\ncan taste summer in this one, what do you say? $14.50","icon":"salsa_verde_steak_sandwich.jpg"}}]}
i am using this code:
Sub Activity_Create(FirstTime As Boolean)
Dim req As HttpRequest
Activity.LoadLayout("json")
If FirstTime Then
hc.Initialize("hc")
End If
req.InitializeGet("http://www.thirdwavecafe.com.au/web-service.php?cat_id=3&format=json")
hc.Execute(req, 1)
End Sub
Sub hc_ResponseSuccess (response As HttpResponse, TaskId As Int)
resultString = response.GetString("UTF8")
End Sub
Sub button1_Click
Dim MenuItems As List
Dim tempstring As String
myJson.Initialize(resultString)
First_MAp.Initialize
Second_map.Initialize
First_MAp = myJson.NextArray
Msgbox(resultString,"map1")
'First_MAp = First_MAp.Get("post")
'Second_map = Second_map.Get("subcat_id")
tempstring = First_MAp.Get("posts")
Msgbox(tempstring,"map")
tempstring = First_MAp.Get("post")
Msgbox(tempstring,"aray")
rgds
Last edited: