正确格式化"对于每个"以与 JSON 一起使用

Question

我正在VB.NET中编码。我需要帮助阅读JSON。以下是原始JSON数据：

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

好的，现在为了让我阅读电子邮件阵列，我需要这样做：

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(，我想循环浏览所有潜在的电子邮件地址(数量未知(，我该如何做到这一点？

谢谢你的帮助。

Answer 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