Dim MyJToken As JToken = JObject.Parse(pJSON) Dim MyJToken As JToken = JObject.Parse(pJSON) Dim myjArray As JArray = Nothing myjArray = MyJToken("orders") For i = myjArray.Count - 1 To 0 Step -1 ' Removing may change order MyJObjectOrder = myjArray(i) if ToBeRemoved() then If MyTesting Then File.WriteAllText(zTemp & "SSMergeB4_" & i & ".json", FunRC) End If 'myjArray(i).Remove() ' Removes from jArray and MyJToken MyJObjectOrder.Remove() ' Removes from jArray and MyJToken breaks #5 FunRC = MyJToken.ToString If MyTesting Then File.WriteAllText(zTemp & "SSMergeAft_" & i & ".json", FunRC) End If end if next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)