vb.net 教程 4-11 Json文件操作 2 JavaScriptSerializer
发布时间:2020-12-16 23:54:00 所属栏目:大数据 来源:网络整理
导读:使用JavaScriptSerializer生成和解析json: 设计界面: 其中button1和button3是生成,button2和button4是解析。 项目目标框架选择.net Framework 4.5,添加对system.web.extensions的引用,同时代码中添加: Imports System.Web.Script.Serialization 当butt
使用JavaScriptSerializer生成和解析json: 设计界面: 其中button1和button3是生成,button2和button4是解析。 项目目标框架选择.net Framework 4.5,添加对system.web.extensions的引用,同时代码中添加: Imports System.Web.Script.Serialization 当button1按下时,生成json格式的字符串: Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click Dim newbooks As New Books Dim newBook As New BookStore Dim newSingleBook As New Book newSingleBook.Title = "这是测试" newSingleBook.Author = "作者" newSingleBook.Country = "中国" newSingleBook.Price = 10.2 newSingleBook.Year = "1985" newBook.book = newSingleBook newbooks.bookstore = newBook Dim serializer As New JavaScriptSerializer Dim strNewBook As String strNewBook = serializer.Serialize(newbooks) TextBox1.Text = strNewBook End Sub 当button2按下时将json字符串解析为类: Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click Dim serializer As New JavaScriptSerializer Dim strNewBook As String = TextBox1.Text Dim newBooks As New Books newBooks = serializer.Deserialize(Of Books)(strNewBook) TextBox2.Text &= "---------------" & ControlChars.CrLf TextBox2.Text &= "Title:" & newBooks.bookstore.book.Title & ControlChars.CrLf TextBox2.Text &= "Author:" & newBooks.bookstore.book.Author & ControlChars.CrLf TextBox2.Text &= "Country:" & newBooks.bookstore.book.Country & ControlChars.CrLf TextBox2.Text &= "Price:" & newBooks.bookstore.book.Price & ControlChars.CrLf TextBox2.Text &= "Year:" & newBooks.bookstore.book.Year & ControlChars.CrLf End Sub 生成和解析结果: 在对json字符串进行解析时,设置的类的属性名称请务必与json代码中的键名称相同。 button3生成: Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button3.Click Dim newBooks As New Books1 ReDim newBooks.bookstore(2) Dim newSingleBook As New Book newSingleBook.Title = "这是测试" newSingleBook.Author = "作者" newSingleBook.Country = "中国" newSingleBook.Price = 10 newSingleBook.Year = "1985" Dim newBook As New BookStore1 newBook.book = newSingleBook newBooks.bookstore(0) = newBook newSingleBook = New Book newSingleBook.Title = "这是测试1" newSingleBook.Author = "作者" newSingleBook.Country = "中国" newSingleBook.Price = 11 newSingleBook.Year = "1985" newBook = New BookStore1 newBook.book = newSingleBook newBooks.bookstore(1) = newBook newSingleBook = New Book newSingleBook.Title = "这是测试2" newSingleBook.Author = "作者" newSingleBook.Country = "中国" newSingleBook.Price = 12 newSingleBook.Year = "1985" newBook = New BookStore1 newBook.book = newSingleBook newBooks.bookstore(2) = newBook Dim serializer As New JavaScriptSerializer Dim strNewBook As String strNewBook = serializer.Serialize(newBooks) TextBox1.Text = strNewBook End Subbutton4解析: Private Sub Button4_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button4.Click Dim serializer As New JavaScriptSerializer Dim strNewBook As String = TextBox1.Text Dim newBooks As New Books1 newBooks = serializer.Deserialize(Of Books1)(strNewBook) For i As Integer = 0 To newBooks.bookstore.Length - 1 TextBox2.Text &= "---------------" & ControlChars.CrLf TextBox2.Text &= "Title:" & newBooks.bookstore(i).book.Title & ControlChars.CrLf TextBox2.Text &= "Author:" & newBooks.bookstore(i).book.Author & ControlChars.CrLf TextBox2.Text &= "Country:" & newBooks.bookstore(i).book.Country & ControlChars.CrLf TextBox2.Text &= "Price:" & newBooks.bookstore(i).book.Price & ControlChars.CrLf TextBox2.Text &= "Year:" & newBooks.bookstore(i).book.Year & ControlChars.CrLf Next End Sub 生成和解析结果: 由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。 学习更多vb.net知识,请参看vb.net 教程 目录 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |