VB.NET 在列表中搜索对象并将找到的对象的值解析为数组

Question

各位程序员，

我正在寻找一种简单快速的解决方案来检索 List(of Object) 中的一些对象值，然后将这些值组合到一个二维数组中。

让我用代码来解释一下：

Public Class MyMainClass
   Dim lstObjects as new list(of TestObject)

   Sub New()
      lstObjects.Add(new TestObject With {.IndexPos = 2,
                                          .Value1 = 4578,
                                          .Value2 = 9876234)

      lstObjects.Add(new TestObject With {.IndexPos = 8,
                                          .Value1 = 45232378,
                                          .Value2 = 98761111234)

      RetrieveValues(New Integer() {1, 4, 8}
   End Sub


   Function RetrieveValues(SearchValues()) as integer (,)

     Dim y As IEnumerable(Of TestObject) = Sources.Where(Function(a) a.IndexPos .Equals(SearchValues))

    'Then do something here to convert Value1 and Value 2 of the object to a two dimensional array

   End function
End Class


Public Class TestObject
   Public IndexPos As Integer
   Public Value1 As Integer
   Public Value2 As Integer
End Class

代码是一个示例，未经测试（仅在此编辑器中编写）。 TestObject 在这里不包含很多值，但在实际应用中它有很多属性。希望您了解我正在努力实现的目标，并可以帮助我解决这个问题。我在谷歌上花了几个小时寻找解决方案......

Answer 1

使用 Linq 处理多维数组并不容易。请参阅有关此here 的更大讨论。

在这种情况下，我会使用旧的 VB.NET 并遍历变量 y 中已有的项目 - 但是，我会在多次访问之前将其放入列表中。

Dim items = y.ToList()
Dim result(items.Count, 2) as Integer ' god I hate that syntax

For itemIndex As Integer = 0 To items.Count - 1
    result(itemIndex, 0) = items(itemIndex).Value1
    result(itemIndex, 1) = items(itemIndex).Value2
Next

Answer 2

在 Waescher 的所有好建议之后，我终于做出了这个，它的工作速度很快，完全符合我的要求。

PS。你也可以看到我比较了 LINQ 中的数组，这是因为我无法更改为 T 的列表，正如 Waescher 前面提到的那样。

''' <summary>
''' Stores all the input meter values
''' </summary>
Private intInputMeters(,) As Integer

Sub SetArraySize(InputMeters() As Integer)
        'Redim the return integer array's for the meter values
        ReDim intInputMeters(InputMeters.Length, 1)
End sub


Public Function GetInputMeters() As Integer(,)

    'Search for the machting sources and return the once we found.
    Dim y As IEnumerable(Of Source) = Sources.Where(Function(a) intInputMeterRequest.Contains(a.ChannelNumber)).AsParallel

    'Now pass the values to the array
    For i As Integer = 0 To y.Count - 1
        intInputMeters(i, 0) = y(i).MeterValueLeft
        intInputMeters(i, 1) = y(i).MeterValueRight
    Next

    'Return the new filled array to the user
    Return intInputMeters
End Function