VB.NET 操作Json 包括嵌套的

Imports System.Runtime.Serialization.Json

Imports System.IO



Partial Class _Default

    Inherits System.Web.UI.Page



    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strTest As String

        'strTest = "{""name"":""Peggy"",""email"":""[email protected]""}"



        'Button1.Attributes.Add("onclick", "json(" & strTest & ")")







        strTest = "{""result"":[{""content"":""你好"",""sendPhone"":""15523565211"",""replayTime"":""2011-09-27 09:45:15.887""},{""content"":""大家好"",""sendPhone"":""15523565211"",""replayTime"":""2011-09-27 09:42:48.933""},{""content"":""都好"",""sendPhone"":""15523565211"",""replayTime"":""2011-09-27 09:34:31.727""}],""success"":true}"







        'Dim mytest As Test

        'mytest = FromJosnT(Of Test)(strTest)

        'Response.Write(mytest.name & " " & mytest.email)



        Dim myTest As content

        myTest = FromJosnT(Of content)(strTest)

        For Each ab As BackContent In myTest.result

            Response.Write(ab.content & ab.sendPhone & ab.replayTime)

        Next

        Response.Write(myTest.success)

    End Sub



    Public Function FromJosn(ByVal josn As String) As Object

        Dim ds As DataContractJsonSerializer = New DataContractJsonSerializer(GetType(Test))

        Dim ms As MemoryStream = New MemoryStream(System.Text.Encoding.UTF8.GetBytes(josn))

        Return ds.ReadObject(ms)

    End Function



    Public Function ToJosnT(Of T)(ByVal myT As T) As String

        Dim ds = New DataContractJsonSerializer(GetType(T))

        Dim ms = New MemoryStream()

        ds.WriteObject(ms, myT)



        Dim strReturn As String

        strReturn = Encoding.UTF8.GetString(ms.ToArray())

        ms.Close()

        Return strReturn

    End Function



    Public Function FromJosnT(Of T)(ByVal josn As String) As T

        Dim ds As DataContractJsonSerializer = New DataContractJsonSerializer(GetType(T))

        Dim ms As MemoryStream = New MemoryStream(System.Text.Encoding.UTF8.GetBytes(josn))

        Return ds.ReadObject(ms)

    End Function



    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim myTest As New Test()

        myTest.name = "test"

        myTest.email = "[email protected]"



        Response.Write(ToJosnT(Of Test)(myTest))

    End Sub

End Class





Public Class Test

    Private _name As String

    Public Property name As String

        Get

            Return _name

        End Get

        Set(ByVal value As String)

            _name = value

        End Set

    End Property



    Private _email As String

    Public Property email As String

        Get

            Return _email

        End Get

        Set(ByVal value As String)

            _email = value

        End Set

    End Property

End Class



Public Class BackContent

    Private _content As String

    Public Property content As String

        Get

            Return _content

        End Get

        Set(ByVal value As String)

            _content = value

        End Set

    End Property





    Private _sendPhone As String

    Public Property sendPhone As String 

        Get

            Return _sendPhone

        End Get

        Set(ByVal value As String)

            _sendPhone = value

        End Set

    End Property





    Private _replayTime As String

    Public Property replayTime As String 

        Get

            Return _replayTime

        End Get

        Set(ByVal value As String)

            _replayTime = value

        End Set

    End Property

End Class



Public Class content

    Private _result As IList(Of BackContent)

    Public Property result As IList(Of BackContent)

        Get

            Return _result

        End Get

        Set(ByVal value As IList(Of BackContent))

            _result = value

        End Set

    End Property



    Private _success As String

    Public Property success As String 

        Get

            Return _success

        End Get

        Set(ByVal value As String)

            _success = value

        End Set

    End Property

End Class