VB.net 在字符串数组中获取项目值答案

【问题标题】：VB.net get item value in string arrayVB.net 在字符串数组中获取项目值
【发布时间】：2016-11-02 06:21:17
【问题描述】：

这是我的代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim JsonSub As String = "{""subdomain01"":[""21"",""subdomain01"",""4""],""subdomain02"":[""22"",""subdomain02"",""4""]}"
    Dim objSub As JObject = JObject.Parse(JsonSub)
    Dim dataSub As List(Of JToken) = objSub.Children().ToList

    For Each subdomain As JProperty In dataSub
        subdomain.CreateReader()
        For Each pSub As JObject In subdomain.Value.ToString
            MsgBox(pSub.ToString)
        Next
    Next
End Sub

如何在该字符串的数组中获取值：

[""21"",""subdomain01"",""4""]

【问题讨论】：

将For Each pSub As JObject In subdomain.Value.ToString 更改为For Each pSub As String In subdomain.Value。

标签： arrays json vb.net json.net

【解决方案1】：

如果你想得到它，做一个拆分：

Dim resultarray As String() = JsonSub.Split(":")(1).Split(",")
Dim result As String = resultarray(0) & "," & resultarray(1) & "," & resultarray(2)

因为 JsonSub.Split(CChar(":"))(1) 将返回 [""21"",""subdomain01"",""4""],""subdomain02""

反过来，用逗号将其拆分将使您在这些“，”之间获得4个子字符串。只需要取前3个，结果如图。

【讨论】：