Basic4android - Jsonparser解析器

Question

我有如下的json格式：

{"response":[{Pasien={id=24, name=Erren}, Detailtransaksi=[], Upk={name=Poli Umum}, Pendaftaran={antrian=1, id=1, user_id=9, modified=2015-03-01 14:08:46, keterangan=demam tinggi, pasien_id=24}},
 {Pasien={id=21, name=Lulu Batam}, Detailtransaksi=[], Upk={name=Poli Umum}, Pendaftaran={antrian=2, id=2, user_id=9, modified=2015-03-01 14:09:05, keterangan=kantong kering akut, pasien_id=21}}
]}

但是我不知道，如何将数组数据放入列表中。

Answer 1

我试着告诉每个符号到底是什么意思。您必须使用

 Dim j as Json: j.Initialize(string)
 Dim m as Map = j.NextObject()
 Dim l as List = m.Get("response")
 Dim m2 as Map = l.Get(0)
 Dim m3 as Map = m2.Get("Pasien")
 Dim id as Integer = m3.Get("id")
 Dim l2 as List = m3.Get("Detailtransaksi") 'but it has not child element

这些行告诉我们从json获取数据。

我希望这些技巧对你来说足够了。

​

{  => this mean it is a json object. you must take this to Map by nextObject       

'response':[   => this mean it is a list! you must take this element to List by nextArray
      {        => after take all data to list, get every element from list to Map
         Pasien={   => get "Pasien" value from Map with own key to new Map
                  id=24,   
                  name=Erren
                }, 
         Detailtransaksi=[], 
         Upk={
               name=Poli Umum
             }, 
         Pendaftaran={
                       antrian=1, 
                       id=1, 
                       user_id=9, 
                       modified=2015-03-01 14:08:46,
                       keterangan=demam tinggi, pasien_id=24
                     }
       },

       {
          Pasien={
                    id=21, 
                    name=Lulu Batam
                  }, 
          Detailtransaksi=[],
          Upk={
                name=Poli Umum
              },
          Pendaftaran={
                        antrian=2,
                        id=2, 
                        user_id=9,
                        modified=2015-03-01 14:09:05,
                        keterangan=kantong kering akut, 
                        pasien_id=21
                       }
         }
   ]
}

​

Answer 2

您可以使用JSONParser类。首先，您应该将JSON库添加到您的项目中，然后声明一个JSONParser变量并使用您的JSON文本对其进行初始化。

现在您可以使用以下两种方法来获得结果: parser.NextArray As List (当JSON文本中有多个元素时) parser.NextObject As Map (当json文本中只有一个对象时)

private Sub ParseResponse (text As String) As List
parser.Initialize(text)
Private returnList As List
Private jsonMap As Map
Private jsonList As List

Try
    jsonList = parser.NextArray
    returnList = jsonList
    Return returnList
Catch
    Try
        jsonMap = parser.NextObject
        returnList.Add(jsonMap)
        Return returnList
    Catch
        Return Null     ' not a json text
    End Try
End Try

结束子对象