在VB中创建匿名类型列表

Question

我想创建一个匿名类型的列表,例如:

Dim lineItem = New With {.Name = myFile(index).Last_Name & ", " & myFile(index).First_Name, _
                         .StartDate = myFile(index).Day,
                         .EndDate = myFile(index).Day}

我创建了匿名类型.现在我想将它添加到该类型的列表中.如何声明该类型的列表？

Answer 1

这是一种从单个匿名类型创建匿名类型列表的方便方法.

Public Function CreateListFromSingle(Of T)(ByVal p1 As T) As List(Of T)
  Dim list As New List(Of T)
  list.Add(p1)
  return List
End Function

现在您可以执行以下操作

Dim list = CreateListFromSingle(dsResource)

EDIT OP想要一种在创建元素之前创建列表的方法.

有两种方法可以做到这一点.您可以使用以下代码创建一个空列表.它接近hacky,因为你传递的参数是你从未打算使用但它有效.

  Public Function CreateEmptyList(Of T)(ByVal unused As T) As List(Of T)
    Return New List(Of T)()
  End Function

  Dim x = CreateEmptyList(New With { .Name = String.Empty, .ID = 42 })

Answer 2

以下是如何通过示例使用内联进行内联(不创建第二个函数):

Sub Main()
    Dim x = New With {.Name = "Bob", .Number = 8675309}
    Dim xList = {x}.ToList()
End Sub

(基于此处发布的c#版本)

基本上,您创建匿名类型,将其放入数组({x}),然后使用数组的.ToList()方法获取列表.

Answer 3

像这样的单行结构怎么样？

Dim yourList = {(New With {.Name="", .Age=0})}.Take(0).ToList

Answer 4

由于类型是匿名的,因此必须使用泛型和类型推断.

最好的方法是引入一个从原型对象创建空集合的泛型函数.

Module Module1

    Sub Main()
        Dim dsResource = New With {.Name = "Foo"}

        Dim List = dsResource.CreateTypedList
    End Sub

    <System.Runtime.CompilerServices.Extension()> _
    Function CreateTypedList(Of T)(ByVal Prototype As T) As List(Of T)
        Return New List(Of T)()
    End Function

End Module