ein Array sortieren, in dem jedes Element ein Komma getrennte Liste von Werten

Question

in vb.net ich ein Array von Werten wie unten

arr(0) = "US,20,10,true" 
arr(1) = "Ind,22,8,true" 
arr(2) = "UK,40,6,true" 
arr(3) = "Chi,30,22,true" 
arr(4) = "Jpn,50,18,true" 
arr(5) = "Isr,18,15,true" 

gegeben, was ich jetzt erreichen wollte, ist dieses Array zu sortieren, in die aufsteigende Reihenfolge des dritten Werts in jedem Element (dh Sortieren des gesamten Arrays basierend auf den Werten 10, 8, 6, 22, 18 und 15). wie angegeben Nach der Sortierung ich das Array unter
bekommen sollte

arr(0) ="UK,40,6,true" 
arr(1) ="Ind,22,8,true" 
arr(2) ="US,20,10,true" 
arr(3) ="Isr,18,15,true" 
arr(4) ="Jpn,50,18,true" 
arr(5) ="Chi,30,22,true" 

kann mir jemand bieten den Code bitte?

Danke, KDR

Answer 1

Input:

Dim arr(5) As String 
arr(0) = "US,20,10,true" 
arr(1) = "Ind,22,8,true" 
arr(2) = "UK,40,6,true" 
arr(3) = "Chi,30,22,true" 
arr(4) = "Jpn,50,18,true" 
arr(5) = "Isr,18,15,true" 

arr = arr.Cast(Of String).Select(Function(a) a.Split(","c)). 
          Select(Function(a) New With {Key .State = a(0), 
                  Key .No1 = a(1), 
                  Key .No2 = a(2), 
                  Key .Bool = a(3)}). 
          OrderBy(Function(o) CInt(o.No2)). 
          Select(Function(s) String.Concat(s.State, ",", s.No1, ",", s.No2, ",", s.Bool)).ToArray() 

For Each item In arr 
    Console.WriteLine(item) 
Next 

Output:

UK,40,6,true 
Ind,22,8,true 
US,20,10,true 
Isr,18,15,true 
Jpn,50,18,true 
Chi,30,22,true 

• Split Eingabefeldelemente durch Komma => split(0,0) = "US", split(0, 1) = "20", ... split(1,0) = "Ind",split(1,1) = "22", ....
• erstellen IEnumerable anonymisierter Typs für jedes Element, von Split
• Convert to integer und Reihenfolge von anonymen Typ .No2 (= 3. Wert in array)
• Übertragung bestellt IEnumerable von anonymen Typ zurück zu Array

Answer 2

Warum Sie eine Datatable nicht verwenden?

Dim Table1 As New DataTable 

' Create four typed columns in the DataTable. 
Table1.Columns.Add("Country", GetType(String)) 
Table1.Columns.Add("Num1", GetType(Integer)) 
Table1.Columns.Add("Num2", GetType(Integer)) 
Table1.Columns.Add("Bol", GetType(Boolean)) 

' Add some rows in the DataTable. 
Table1.Rows.Add("IT", "123", "456", True) 
Table1.Rows.Add("DE", "456", "789", False)