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"":""peggy@gmail.com""}"

'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 = "adfas@163.com"

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