VB Json Array in Array

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von AnimalMother.

    VB Json Array in Array

    Hi Leute ich will mich auf eine Website einloggen, dazu muss ich ein Json String Posten.
    Jetzt hab ich das Problem das der Json String ein Array im Array hat und ich nicht weiss wie ich das Problem lösen kann.

    So muss der Json String aussehen

    Quellcode

    1. {"id":3,"jsonrpc":"2.0","method":"call","params":["database_api","get_accounts",[["myusername"]]]}


    Meine Propertys sehen folgendermaßen aus

    VB.NET-Quellcode

    1. Friend Class LoginPostHeader
    2. Public Sub New()
    3. End Sub
    5. Public Property id As Integer
    6. Public ReadOnly Property jsonrpc As String = "2.0"
    7. Public ReadOnly Property method As String = "call"
    8. Public Property params As Object() = {"database_api", "get_accounts", "[[myusername]]"}
    9. End Class


    und das bekomme ich mit meiner Methode raus (ich benutze die Newtonsoft api)

    Quellcode

    1. {"id":3,"jsonrpc":"2.0","method":"call","params":["database_api","get_accounts","[[myusername]]"]}


    Hab schon das I-Net durchforstet und weiss nicht mehr weiter stehe komplett auf dem Schlauch, kleines Problem große Uhrsache :S

    AnimalMother schrieb:

    So muss der Json String aussehen


    So siehst er aus, wenn du für das 3. Object in params einen mehrdimensionalen Array nimmst.

    VB.NET-Quellcode

    1. Imports Newtonsoft.Json
    3. Public Class Form1
    5. Public Class Example
    6. Public Property id As Integer
    7. Public Property jsonrpc As String
    8. Public Property method As String
    9. Public Property params As Object()
    10. End Class
    12. Sub SerializeObject()
    13. Dim ex As New Example
    14. ex.id = 3
    15. ex.jsonrpc = "2.0"
    16. ex.method = "call"
    17. ex.params = New Object(2) {}
    18. ex.params(0) = "database_api"
    19. ex.params(1) = "get_accounts"
    20. ex.params(2) = New String(,) {{"myusername"}}
    21. Dim json As String = JsonConvert.SerializeObject(ex)
    22. MessageBox.Show(json)
    23. End Sub
    25. End Class
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

Facebook
Telefonspende