在VB.Net中读取文件/循环数据的简单Newtonsoft.Json示例

我想要一个打开Json文件并使用VB.Net循环使用Json.Net的值的简单示例

以下是简单的Json：

{
    root: [
        {
            "__type": "BannerElement",
            "Id": 1,
            "Title": "Politics",
            "Text": "Some Text",
            "ImageFile": "/Religion-in-Politics--DM1.1.jpg",
            "ReadMoreUrl": "http://google.com",
            "SortOrder": 0,
            "Disabled": false
        },
        {
            "__type": "BannerElement",
            "Id": 2,
            "Title": "God",
            "Text": "Some Text",
             "ImageFile": "/Religion-in-Politics--DM1.1.jpg",
            "ReadMoreUrl": "http://google.com",         
            "SortOrder": 1,
            "Disabled": false
        }
    ]
}

我似乎在互联网/谷歌上找不到任何例子

这是我到目前为止所拥有的

strJSonPath = Replace(Replace(String.Format("{0}/json/slides.js", ConfigurationManager.AppSettings("APPhysicalPath")), "\", "/"), "//", "/")
                Dim strJson As String = File.ReadAllText(strJSonPath)
                Dim jobj As JObject = JObject.Parse(strJson)
                Dim arrJArray As JArray = jobj("root")

---

难道你不应该有一个底层类，反序列化成这个类的一个对象，并在代码中像对待任何其他.NET对象那样使用它吗？好问题。我试试看。。。