Private Shared Function Serialize(ByVal jObj As JToken) As String If jObj.Type = JTokenType.String Then Return "" & jObj.Value(Of String)() & "" End If Dim serializedString As StringBuilder = New StringBuilder() For Each item In jObj.Children().ToList If item.Type <> JTokenType.Array Then Dim jObjItem = item.ToObject(Of JObject)() For Each itemKeyPair In jObjItem Dim itemname As String = itemKeyPair.Key.ToString Dim itemKeyVALUE As String = itemKeyPair.Value.ToString If jObjItem.First.Root(itemname).Type = JTokenType.Array Then ' For Each arrval In jObj.Children().First.Root.First(itemname).ToList 'MessageBox.Show(arrval.Children.First.Root.First(itemname).ToString) For i As Integer = 1 To jObjItem.First.Count 'arrval.Root.First serializedString.Append(Chr(34) & itemname.ToUpper & Chr(34)) serializedString.Append(Chr(34) & itemname.ToUpper & Chr(34) & Chr(34) & itemKeyVALUE.ToUpper & Chr(34)) Next 'Next Else serializedString.Append(itemname.ToUpper) serializedString.Append(Chr(34) & itemKeyVALUE.ToUpper & Chr(34)) End If Next End If Next Return serializedString.ToString()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)