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
VB实体类和Json之间的互相转换
最新推荐文章于 2024-01-22 09:41:02 发布