b4a如何解析json数据

Question

您能帮助我理解如何使用json解译函数在b4a中解析这个函数吗？拜托，我非常需要你的帮助。

[{"success":true,"msg":"Your transaction has been successfully Completed. Thank you for having us. Please enjoy our service.","data":[{"fn":"sdf","mn":"sdf","ln":"sdf","contactNum":"324","email":"sdf@sdf.com","regcode":"201635df42e","regDateTime":"2016-3-5 13:43:26","cus_status":"active","tag":"0ec2c07d19095396d49a41796609a6ae"},{"fn":"sdf","mn":"sdf","ln":"sdf","contactNum":"234","email":"sdf@dsaf.com","regcode":"201635d89f1","regDateTime":"2016-3-5 13:43:26","cus_status":"active","tag":"0ec2c07d19095396d49a41796609a6ae"}]}]

看上去更干净：

 [
{
    "success":true,
    "msg":"Your transaction has been successfully Completed. Thank you for having us. Please enjoy our service.",


    "data":[
        {
            "fn":"sdf",
            "mn":"sdf",
            "ln":"sdf",
            "contactNum":"324",
            "email":"sdf@sdf.com",
            "regcode":"201635df42e",
            "regDateTime":"2016-3-5 13:43:26",
            "cus_status":"active",
            "tag":"0ec2c07d19095396d49a41796609a6ae"
        },
        {
            "fn":"sdf",
            "mn":"sdf",
            "ln":"sdf",
            "contactNum":"234",
            "email":"sdf@dsaf.com",
            "regcode":"201635d89f1",
            "regDateTime":"2016-3-5 13:43:26",
            "cus_status":"active",
            "tag":"0ec2c07d19095396d49a41796609a6ae"
        }
    ]
}

]

非常感谢你的帮助。

Answer 1

这应该适用于你：

Dim parser As JSONParser 
parser.Initialize(<text>) 
Dim root As Map = parser.NextObject 
Dim msg As String = root.Get("msg") 
Dim data As List = root.Get("data") 
For Each coldata As Map In data 
 Dim contactNum As String = coldata.Get("contactNum") 
 Dim regDateTime As String = coldata.Get("regDateTime") 
 Dim mn As String = coldata.Get("mn") 
 Dim ln As String = coldata.Get("ln") 
 Dim cus_status As String = coldata.Get("cus_status") 
 Dim fn As String = coldata.Get("fn") 
 Dim regcode As String = coldata.Get("regcode") 
 Dim tag As String = coldata.Get("tag") 
 Dim email As String = coldata.Get("email") 
Next 
Dim success As String = root.Get("success") 

这个站点为您的JSON数据生成代码：http://www.basic4ppc.com:51042/json/index.html