将两列数据读入一个列表中，按字母顺序排序

Question

我需要导入额外列表（酱料来与一顿饭）和他们各自的价格。用老师的一些代码，我可以读取文件，将额外的名字和价格放入一个列表中，然后显示它以显示它已经工作。现在的问题是，当我必须按字母顺序排列额外字符时，才能对其应用二进制搜索。我用.sort和OrderBy等尝试了一切，但没有任何工作。与数据

鹰嘴豆泥，0.75
辣椒，0.50
Tabouli，1.25
Tzatziki

我的外部文本文件，0.50

额外

Public Class extra 
    Public Property Name As String 
    Public Property Price As Decimal 
End Class 

公共类

此代码导入数据，并将其放入一个列表

Dim allExtras = From line In System.IO.File.ReadLines("C:\Users\ExtrasList.txt") 
       Let Columns = line.Split(","c) 
       Where Columns.Length = 2 
       Let Price = Decimal.Parse(Columns(1).Trim()) 
       Let Name = Columns(0).Trim() 
       Select New extra With {.Name = Name, .Price = Price} 

Dim extraList As List(Of extra) = allExtras.ToList() 

显示列表

Console.WriteLine() 
Console.WriteLine("Extra Name" & vbTab & "Price") 
Console.WriteLine("-----------" & vbTab & "-----") 
For Each extra In extraList 
    Console.WriteLine(extra.Name & vbTab & vbTab & extra.Price) 
Next 

我只需要得到一个单独的文件中的演员和他们的价格到一个数组或列表，可以按字母顺序排序，以便用户可以搜索以查看他们想要的额外内容是否存在。我还需要能够访问该列表，以便用户可以选择并额外购买，然后将所需价格添加到总价中。任何帮助将不胜感激，因为这部分是阻止我进一步深入。我不介意如果有人能够帮助我用现有的代码对列表进行排序，或者让我更有效地将文件中的数据读入列表，我只需要某种解决方案。

Answer 1

Imports System.Linq 
. . . . . . 
' I think, this is cleaner way to load list 
Dim eList as List(Of Extra) = File.ReadAllLines("C:\Users\ExtrasList.txt"). 
    Select(
     Function(l) 
      Dim a() As = l.Split(",".ToCharArray()) 
      Return New Extra With { .Name = a[0].Trim(), .Price = Decimal.Parse(a(1).Trim()) } 
     End Function).ToList() 


...... 
' Check if extra exists. Optionally, you can use string comparison options 
If (eList.Any(Function(i) String.Equals(i.Name, "The Name")) Then 

...... 
' get price of specific extra 
Dim price As Decimal = eList.Single(Function(i) String.Equals(i.Name, "The Name")).Price 

Answer 2

按名称搜索和通过名称获得价格最有效的方法，是把名字和相应的价格向Dictionary

Dim sauces = File.ReadAllLines("C:\Users\ExtrasList.txt"). 
        Select(Function(line) line.Split(",")). 
        ToDictionary(Function(pair) pair(0), Function(pair) pair(1)) 

然后你可以使用它

Dim price As String 
If sauces.TryGetValue("Hummus", price) = True Then 
    ' Use price 
Else 
    ' Show not found message 
End If 

对于上市你可以遍历所有的价值 - 钥匙对

Dim orderedPairs = sauces.OrderBy(Function(pair) pair.Key) 
For Each sauce As KeyValuePair(Of String, String) In orderedPairs 
    Dim name = sauce.Key 
    Dim price = sauce.Value 
Next 

我建议创建酱自己的类相应品种

Public Class Sauce 
    Public Property Name As String 
    Public Property Price As Decimal 
End Class 

然后你就可以通过引入自己的方法转换线的Sauce

Public Function LineToSauce(line As String) As Sauce 
    Dim pair As String() = line.Split(",") 
    Return New Sauce With 
    { 
     .Name = pair(0), 
     .Price = Decimal.Parse(pair(1)) 
    } 
End Function 

' Reading 
Dim sauces = File.ReadAllLines("C:\Users\ExtrasList.txt"). 
        Select(AddressOf LineToSauce). 
        ToDictionary(Function(sauce) sauce.Name) 

' searching by name 
Dim sauce As Sauce 
If sauces.TryGetValue("Hummus", sauce) = True Then 
    ' Use sauce.Price or sauce.Name 
Else 
    ' Show not found message 
End If 

' iterating and ordering 
Dim orderedSauces = sauces.Values.OrderBy(Function(sauce) sauce.Name) 
For Each sauce As orderedSauces 
    Dim name = sauce.Name 
    Dim price = sauce.Price 
Next