VB6 JSON Parser

I have json string like this:

Code:

---

{"0":"1","id":"1","1":"cliv","name":"cliv","2":"alecsandri","address":"alecsandri","3":"29-Jan-14 10:42:55 AM","datetime":"29-Jan-14 10:42:55 AM"}{"0":"2","id":"2","1":"dsad","name":"dsad","2":"adasdsa dadsa","address":"adasdsa dadsa","3":"29-Jan-14 10:45:03 AM","datetime":"29-Jan-14 10:45:03 AM"}{"0":"3","id":"3","1":"dada","name":"dada","2":"dasdadsa","address":"dasdadsa","3":"29-Jan-14 11:02:44 AM","datetime":"29-Jan-14 11:02:44 AM"}{"0":"4","id":"4","1":"dragcos","name":"dragcos","2":"craiova","address":"craiova","3":"29-Jan-14 11:28:44 AM","datetime":"29-Jan-14 11:28:44 AM"}{"0":"5","id":"5","1":"andrei","name":"andrei","2":"calea bucuresti","address":"calea bucuresti","3":"29-Jan-14 11:56:58 AM","datetime":"29-Jan-14 11:56:58 AM"}

---

And i use VB6 JSON Parser Class Library from here:

HTML Code:

---

http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html

---

and this code to parse:

Code:

---

Private Sub decodeJSON(sData As String)
    Dim p As Object
    Set p = JSON.parse(sData)
   
    If Not (p Is Nothing) Then
        If JSON.GetParserErrors <> "" Then
            MsgBox JSON.GetParserErrors, vbInformation, "JSON Error"
        Else
            'MsgBox = p.Count
            MsgBox "OUT : " & JSON.toString(p)
            MsgBox p.Item("name")
        End If
    Else
        MsgBox "Parse Error"
    End If
End Sub

---

... but I read only only first row...
HOW CA I LOOP? (i want to load all record in a recordset...)
Thank you...

If you want to read all 5 of your "Rows" properly, then you have to validate your JSON-string first:

Any decent parser will only go up to the point where the second curly-brace-opening starts:
{"0":"1","id":"1","1":"cliv","name":"cliv","2":"alecsandri","address":"alecsandri","3":"29-Jan-14 10:42:55 AM","datetime":"29-Jan-14 10:42:55 AM"}{...

You will need to introduce commas between the Curly-Braces, to separate the Object-entries - and you will have to enclose the whole
construct within square-brackets, to treat those 5-Objects as Array-members ... below is a correctly formatted version of what I mean.
(you can simply use an Online-JSON-validator for such things - e.g. this one here was quite good: http://jsonlint.com

Oh - and there's quite a bit of "unnecessary redundancy" in your data - hope you're aware of that.

Code:

---

[
    {
        "0": "1",
        "1": "cliv",
        "2": "alecsandri",
        "3": "29-Jan-14 10:42:55 AM",
        "id": "1",
        "name": "cliv",
        "address": "alecsandri",
        "datetime": "29-Jan-14 10:42:55 AM"
    },
    {
        "0": "2",
        "1": "dsad",
        "2": "adasdsa dadsa",
        "3": "29-Jan-14 10:45:03 AM",
        "id": "2",
        "name": "dsad",
        "address": "adasdsa dadsa",
        "datetime": "29-Jan-14 10:45:03 AM"
    },
    {
        "0": "3",
        "1": "dada",
        "2": "dasdadsa",
        "3": "29-Jan-14 11:02:44 AM",
        "id": "3",
        "name": "dada",
        "address": "dasdadsa",
        "datetime": "29-Jan-14 11:02:44 AM"
    },
    {
        "0": "4",
        "1": "dragcos",
        "2": "craiova",
        "3": "29-Jan-14 11:28:44 AM",
        "id": "4",
        "name": "dragcos",
        "address": "craiova",
        "datetime": "29-Jan-14 11:28:44 AM"
    },
    {
        "0": "5",
        "1": "andrei",
        "2": "calea bucuresti",
        "3": "29-Jan-14 11:56:58 AM",
        "id": "5",
        "name": "andrei",
        "address": "calea bucuresti",
        "datetime": "29-Jan-14 11:56:58 AM"
    }
]

---

Olaf

Quote:

---

Originally Posted by Schmidt

I
You will need to introduce commas between the Curly-Braces

---

Than you for your answer...but this is the string return by php script on server side

Code:

---

$result=mysql_query($sql);
while($rows=mysql_fetch_array($result)){
print json_encode($rows);

---

...so i need to read this.

You have bad JSON - look at this image!!

Hi, sorry to bring the topics again, but I have the proper JSON format, So how can I loop through all the sets. Thank You in Advance.

Quote:

---

Originally Posted by imranctgbd

Hi, sorry to bring the topics again, but I have the proper JSON format, So how can I loop through all the sets. Thank You in Advance.

---

I think I solve the issue. Thank you anyway :-)

If Not (p Is Nothing) Then
If JSON.GetParserErrors <> "" Then
MsgBox JSON.GetParserErrors, vbInformation, "JSON Error"
Else
Dim I As Long
' MsgBox p.Count
' MsgBox "OUT : " & JSON.toString(p)
' MsgBox p.Item("name")
I = 0
For I = 1 To p.Count
MsgBox p.Item(I).Item("id") & " - " & p.Item(I).Item("name")
Next
End If
Else
MsgBox "Parse Error"
End If