b4a如何解析json数据答案

【问题标题】：b4a how to parse a json datab4a如何解析json数据
【发布时间】：2016-03-05 06:18:47
【问题描述】：

你能帮我理解如何使用 jsonparse 函数在 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"
        }
    ]
}

]

非常感谢您的帮助。

【问题讨论】：

How to parse JSON in Android的可能重复

标签： android json vb4android

【解决方案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

【讨论】：