使用 VB.net 将 Json 字符串转换为 DataTable答案

【问题标题】：Json String Into DataTable using VB.net使用 VB.net 将 Json 字符串转换为 DataTable
【发布时间】：2013-03-26 13:06:05
【问题描述】：

这两天我一直在研究这个，但使用我找到的样本无法让它工作。我真的很纠结 json 解析。

所以我需要做的是将此字符串放入数据表中。我能够得到字符串的位置，我只需要解析它。

{"total": 35799, "results": [{"publisher": "bamamatch.com", "first_seen": "2011-08-01", "times_seen": 1598, "monthly_uniques": null, "last_seen": "2013-04-02"}, {"publisher": "catholicdatingforfree.com", "first_seen": "2011-08-01", "times_seen": 1554, "monthly_uniques": null, "last_seen": "2013-04-02"}], "page_size": 100, "offset": 0}

你们能告诉我一种使用 VB.net 将其解析为数据表的清晰方法吗？

更新

        Dim url As String
        Dim request As HttpWebRequest
        Dim response As HttpWebResponse = Nothing
        Dim reader As StreamReader

        url = "http://api.mixrank.com/v2/json/d73f10e7b22fbc69b79f0e0074913c14/advertisers/" & LCase(txtKeywords.Text) & "/gdn/publishers?page_size=100"

        request = DirectCast(WebRequest.Create(url), HttpWebRequest)
        response = DirectCast(request.GetResponse(), HttpWebResponse)
        reader = New StreamReader(response.GetResponseStream())

        Dim myDataTable As DataTable = DirectCast(JsonConvert.DeserializeObject(reader.ReadToEnd, (GetType(DataTable))), DataTable)

【问题讨论】：

您是否有理由在 DataTable 中而不是自定义类中需要它？您可以使用 Json.Net 轻松地将响应序列化回对象图。

标签： vb.net json

【解决方案1】：

这似乎是一个错误（可能在 VB 的某个地方。）

对于我的测试，我使用了 JsonTextReader() 但出现了同样的错误。我没有尝试创建 DataTable。

注意下面的代码（第 3 行），它从测试字符串中删除了最后一个字符。如果不进行此调整，则会出现“附加文本”错误。

另外 - 在 OP 中，我需要将提供的 JSON 包装在 [ ] 中以使其与此代码一起使用。

    Try
        Dim s As String = TextBox1.Text
        s = s.Remove(s.Length - 1)
        Dim txt As New System.IO.StringReader(s)
        txt.Read()
        Dim reader As New JsonTextReader(txt)
        Do While reader.Read
            If reader.Value IsNot Nothing Then Debug.Print(reader.Depth & ": " & reader.TokenType & ": " & reader.Path & ": " & reader.Value)
        Loop
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

【讨论】：