16,549
社区成员
发帖
与我相关
我的任务
分享
Imports System.Runtime.Serialization
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Imports Newtonsoft.Json.Converters
Public Class Class2
Public Function JsonConvertDemo()
Dim user As User = New User() {UserId = 1, UserName = "李刚", CreateDate = DateTime.Now.AddYears(-30), Birthday = DateTime.Now.AddYears(-50), Priority = Priority.BelowNormal, Salary = 5000}
'JsonConvert类在Newtonsoft.Json.Net35.dll中,注意到http://www.codeplex.com/json/下载这个dll并添加这个引用
'JSON序列化
Dim result As String = JsonConvert.SerializeObject(User)
Console.WriteLine("使用JsonConvert序列化后的结果:{0},长度:{1}", result, result.Length)
'JSON反序列化
user = JsonConvert.DeserializeObject < user > (result)
Console.WriteLine("使用JsonConvert反序列化后的结果:UserId:{0},UserName:{1},CreateDate:{2},Priority:{3}", user.UserId, user.UserName, user.CreateDate, user.Priority)
End Function
'<Serializable()>
Public Class User
'' <summary>
'' 编号
'' </summary>
Public Property UserId As Integer
Get
End Get
Set(ByVal value As Integer)
End Set
End Property
.........
Public Sub User()
Urls = New List(Of String)
End Sub
End Class
'' <summary>
'' 权利级别
'' </summary>
Public Enum Priority As Byte
Lowest = 1
BelowNormal = 2
Normal = 4
AboveNormal = 8
Highest = 22
End Enum
End Class