vb.net 教程 4-11 Json文件操作 2 JavaScriptSerializer

最新推荐文章于 2024-01-22 09:41:02 发布

chinaherolts2008

最新推荐文章于 2024-01-22 09:41:02 发布

阅读量260

点赞数

分类专栏： vb.net教程文章标签： json html5 自动驾驶

原文链接：https://blog.csdn.net/uruseibest/article/details/79243658

版权

vb.net教程专栏收录该内容

563 篇文章 114 订阅

订阅专栏

这篇博客展示了如何在VB.NET环境下利用JavaScriptSerializer类生成和解析JSON数据。通过按钮事件，实现了从UI界面创建JSON字符串，并将其解析回对应的类实例，强调了属性名与JSON键名的一致性要求。

摘要由CSDN通过智能技术生成

使用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 Sub
button4解析：

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教程目录

————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。