VB.net 如何解析Json

Public Shared Sub JavaScriptSerializerDemo()

    Dim user As New User() With { _

        Key .UserId = 1, _

        Key .UserName = "李刚", _

        Key .CreateDate = DateTime.Now.AddYears(-30), _

        Key .Birthday = DateTime.Now.AddYears(-50), _

        Key .Priority = Priority.Highest, _

        Key .Salary = 500000 _

    }

    'JavaScriptSerializer类在System.Web.Extensions.dll中，注意添加这个引用

    Dim serializer As New JavaScriptSerializer()

    'JSON序列化

    Dim result As String = serializer.Serialize(user)

    Console.WriteLine("使用JavaScriptSerializer序列化后的结果：{0},长度：{1}", result, result.Length)

    'JSON反序列化

    user = serializer.Deserialize(Of User)(result)

    Console.WriteLine("使用JavaScriptSerializer反序列化后的结果：UserId:{0},UserName:{1},CreateDate:{2},Priority:{3}", user.UserId, user.UserName, user.CreateDate, user.Priority)

 

End Sub