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 に答える