多个字符串按.分割并按分割后的字符串分类储存到json，体现层级关系

将多个字符串按 . 分割并按分割后的字符串分类储存到JSON中的示例代码。假设我们有一个字符串列表，如下所示：

 
Dim inputStrings As String() = {"a.b.c", "a.b.d", "x.y.z", "x.y.w"}
 

我们可以使用 Newtonsoft.Json 库中的 JObject 和 JArray 类来创建JSON对象。以下是一个示例代码，将输入列表中的字符串分割为层级关系，并将结果作为JSON对象保存：

Imports Newtonsoft.Json.Linq
Dim root As New JObject()

For Each inputString In inputStrings
Dim keys As String() = inputString.Split("."c)
Dim current = root
For Each key In keys
Dim child As JObject
If current.TryGetValue(key, child) Then
' 如果指定层级已经存在，则继续向下遍历子对象
current = child
Else
' 否则，创建一个新的子对象并将其添加到当前层级
child = New JObject()
current.Add(key, child)
current = child
End If
Next
Next

' 输出JSON对象
Console.WriteLine(root.ToString())
 

在上面的示例代码中，我们首先创建一个空的 JObject对象root，该对象将保存所有分割字符串的层级关系。我们使用For Each循环迭代输入列表中的每个字符串，并在每次迭代中执行以下操作：

将字符串按照 . 分隔成层级关系（键）。
遍历每个层级键，并在 root 对象树中逐层检查是否存在一个名为该键的子对象。
如果单前层级已存在，则继续向下遍历该层级的子对象；否则，我们创建一个新的 JObject 对象作为子对象，并将其添加到当前层级。
在跟随完所有层级后，我们将最终对象作为当前键值对的值添加到创建或查找后的当前对象中。

循环结束后，我们将整个JSON对象作为字符串输出。对于上面的输入列表，此代码将生成以下JSON对象：

 
{
"a": {
"b": {
"c": {},
"d": {}
}
},
"x": {
"y": {
"z": {},
"w": {}
}
}
}
 

可以看到，该JSON对象反映了每个分割字符串的层级结构。每个键都成为其父键的子对象，最终形成树形结构。