VB实体类和Json之间的互相转换

Imports System.IO
Imports System.Runtime.Serialization.Json
Imports System.Text

Public Class JsonToObj

#Region "实体类转换为Json"
    Public Shared Function ObjToJson(ByVal item As Object) As String
        Dim serializer As New DataContractJsonSerializer(item.GetType)
        Dim ms As New MemoryStream
        serializer.WriteObject(ms, item)
        Dim sb As New StringBuilder
        sb.Append(Encoding.UTF8.GetString(ms.ToArray))
        Return sb.ToString
    End Function
#End Region

#Region "Json转换为实体类"
    Public Shared Function JsonToObj(Of T)(ByVal jsonString As String) As T
        Dim ser As New DataContractJsonSerializer(GetType(T))
        Dim ms As New MemoryStream(Encoding.UTF8.GetBytes(jsonString))
        Dim jsonObj As T = ser.ReadObject(ms)
        Return jsonObj
    End Function
#End Region
End Class