VB.NET 中的 Function 将列表（自定义类）中的元素与另一个列表（自定义类）中的元素进行匹配

Question

我在 VB.NET 中有两个自定义类，我将它们用作类列表以包含具有这些属性的多个元素

一个称为materialsDefinition ，其中包含以下内容：

Public Property id As Integer
Public Property name As String

Public Sub New(ByVal identification As Integer, ByVal material As String)
    id = identification
    name = material
End Sub

这个 class 的列表将用作材料字典，其中您将有一个 ID，例如“1”，以及一个材料名称“A_286”，或者例如“2”和“17-4PH”

{"1", "A_286"}, {"2", "17-4PH"}

另一个 class 是componentInfo ，和另一个 class 结构类似：

Public Property componentName As String
Public Property materialID As Integer

Public Sub New(ByVal component As String, ByVal identification As Integer)
    materialID = identification
    componentName = component
End Sub

其中您将在组件中有一个组件的名称，例如“Pin”及其材料 ID“1”，对应于其他 class、A_286 中的材料，以及“Nut”及其材料 ID“2”对应至 17-4PH

{"Pin", "1"}, {"Nut", "2"}

我想创建一个 function 查找并匹配两个类中存在的材料 ID，并将材料名称保存在一个新数组中，该数组将包含以下信息：

{"Pin", "A_286"}, {"Nut", "17-4PH"}

我不确定如何，我认为最基本的解决方案首先是在 for 循环内的 If 循环中一个一个地查找，但最好使用“查找”function。

我遇到的问题是我不知道如何使用查找 function、findIndex 或 Exists in VB.NET 和自定义 class 的列表。

两个列表的大小也可以不同，材料列表比组件列表更大或更短。

我将不胜感激任何输入。 谢谢。

Answer 1

Function MatchParts(materials As IEnumerable(Of materialsDefinition), components As IEnumerable(Of componentInfo) As IEnumerable(Of (String, String))
    Return materials.Join(components, 
         Function(m) m.id,
         Function(c) c.materialID ,
         Function(m, c) (c.componentName, m.name) )
End Function

---

令我恼火的是我们没有这样的.Join()重载：

Function Join(Of TOuter, TInner, TResult)(outer As IEnumerable(Of TOuter), inner As IEnumerable(Of TInner), comparer As Predicate(Of TOuter, TInner), resultSelector As Func(Of TOuter, TInner, TResult)) As IEnumerable(Of TResult)

Function Join(Of TOuter, TInner)(outer As IEnumerable(Of TOuter), inner As IEnumerable(Of TInner), comparer As Predicate(Of TOuter, TInner)) As IEnumerable(Of (TOuter, TInner))

特别是后一个选项，还允许通过简单的.Select()添加来组合前者，并且更容易理解如何使用。 例如，这个问题可以简化为：

Function MatchParts(materials As IEnumerable(Of materialsDefinition), components As IEnumerable(Of componentInfo) As IEnumerable(Of (String, String))
    Return materials.Join(components, Function(m, c) m.id = c.materialId).
         Select(Function(t) (t.Item2.componentName, t.Item1.name) )
End Function

好处不仅在于代码更短，而且更容易编写和理解第一个 function 调用。 不幸的是，这仍然是一个白日梦，我们坚持第一个选项。