找不到简单方法
Dim json As String = "[{'Name' : 'Jack', 'Age' : 34}, {'Name' : 'Tomas', 'Age' : 26}, {'Name' : 'Allen', 'Age' : 50}]"
Dim ja = JArray.Parse(json)
Dim d As new sortedDictionary(of Integer,object)
Dim ja2 As new JArray
For Each j As JToken In ja
d.add(j("Age"),j)
Next
For Each v As object In d.values
ja2.Add(v)
Next
Output.Show(ja2.ToString)