正确格式化“For Each”以与 JSON 一起使用答案

【问题标题】：Properly Formatting "For Each" to be used with JSON正确格式化“For Each”以与 JSON 一起使用
【发布时间】：2019-11-15 23:44:41
【问题描述】：

我正在使用 VB.NET 进行编码。我需要帮助阅读 JSON。这是原始 JSON 数据：

{
  "status": 200,
  "likelihood": 2,
  "data": {
    "emails": [
      {
        "address": "none@hotmail.com",
        "type": "personal",
        "sha256": "53ec4387bf9f1e3ff62458000d3203518d1ed08d8de49bdd3493099befed7822",
        "domain": "hotmail.com",
        "local": "none"
      }
    ],

好的，现在为了让我阅读 emails 数组，我需要这样做：

        Dim read = Newtonsoft.Json.Linq.JObject.Parse(GlobalVariables.MostRecentSearch)
        For Each read.Item("data")("emails") As string
            TextBox4.Text = read.Item("data")("emails")(0)("address").ToString
        Next

但显然我的 For Each 语句是错误的。在上面的代码中，索引显示为 (0)，我想遍历所有潜在的电子邮件地址（数量未知），我该怎么做？

感谢您的帮助。

【问题讨论】：

标签： json for-loop

【解决方案1】：

我想通了。这是 For Each 语句的正确格式：

                Dim emails As String
                emails = ""
                For Each email As Newtonsoft.Json.Linq.JObject In read.Item("data")("emails")
                    emails = emails & email.Item("address").ToString & ","
                Next

【讨论】：