0

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

]

您的帮助将不胜感激。

4

1 回答 1

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

于 2016-06-29T09:26:47.970 回答