如何在VB.NET中读取JSON文件

Question

我有一个JSON文件：

 {
 "items": [
  {
   "id": "HkWO1yuYnLU",
   "snippet": {
    "channelId": "UCR5wZcXtOUka8jTA57flzMg",
    "title": "İlyas Yalçıntaş - İçimdeki Duman",
    "categoryId": "10"
   },
   "statistics": {
    "viewCount": "37266431",
    "likeCount": "122255",
    "dislikeCount": "4472",
    "favoriteCount": "0",
    "commentCount": "7151"
   }
  }
 ]
}

我希望得到这样的信息，如下：

label1.text = "Rap GOD"  
label2.text = "122255 likes"

我该怎么办？

Answer 1

这是你可以做的......

1. 首先，下载JSON Framework
2. 通过项目上的右键单击并添加引用
添加对项目的引用
3. 然后，浏览Newtonsoft.Json.dll （提取您在第1步>中下载的库）并添加参考管理器窗口。



1. 添加此代码：

   Public Class Form1
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim json As String = "{""name"":""Rap God"",""statistics"":{""likeCount"":""122255"",""dislikeCount"":""4472""}}"
      Dim read = Newtonsoft.Json.Linq.JObject.Parse(json)
      TextBox1.Text = read.Item("name").ToString
      TextBox2.Text = read.Item("statistics")("likeCount").ToString + " " + " times"
   End Sub  
   
   End Class
   

而且，这是预期的输出：



而且，我希望以上代码有所帮助。现在，您可以使用 VB.NET 轻松阅读任何 JSON 文件。

Answer 2

Imports System.IO

Dim bowerjson As String = File.ReadAllText(HttpContext.Current.Server.MapPath("~/bower.json"))
Diagnostics.Debug.WriteLine(bowerjson)