Tạo một danh sách các Anonymous Gõ vào VB

Question

Tôi muốn tạo ra một danh sách của một loại vô danh, ví dụ:

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

Tôi đã tạo ra kiểu nặc danh. Bây giờ tôi muốn thêm nó vào danh sách loại đó. Làm cách nào để khai báo danh sách loại đó?

Answer 1

Dưới đây là một phương pháp tiện dụng để tạo danh sách loại ẩn danh từ một loại ẩn danh duy nhất.

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 

Bây giờ bạn chỉ có thể làm như sau

Dim list = CreateListFromSingle(dsResource) 

EDIT OP muốn có một cách để tạo ra danh sách trước khi tạo ra một phần tử.

Có 2 cách để thực hiện việc này. Bạn có thể sử dụng đoạn mã sau để tạo một danh sách trống. Nó biên giới trên hacky bởi vì bạn đang đi qua các thông số bạn không bao giờ có ý định sử dụng nhưng nó hoạt động.

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

Vì loại này là ẩn danh, bạn phải sử dụng chung và kiểu suy luận.

Cách tốt nhất là giới thiệu một hàm chung tạo bộ sưu tập trống từ đối tượng mẫu thử nghiệm.

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 

Answer 3

Tôi thích giải pháp Jared nhưng chỉ để hiển thị tương đương trực tiếp mã Jon (mặc dù nhận xét của tôi có):

Public Function EnumerateFromSingle(Of T)(ByVal p1 As T) As IEnumerable(Of T) 
    Return New T() { p1 } 
End Function 

Không rất hữu ích bởi chính nó, vì nó không thể mở rộng ... nhưng có thể được sử dụng để tạo ra các phép thuật LINQ khác để tạo các danh sách lớn hơn.

Answer 4

Sau đây là cách để làm điều đó inline sử dụng đúc bằng ví dụ (mà không cần tạo một chức năng thứ hai):

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

(dựa trên C# phiên bản posted here)

Về cơ bản bạn tạo kiểu nặc danh, đưa nó trong một mảng ({x}) sau đó sử dụng phương thức .ToList() của mảng để lấy danh sách.

Answer 5

Nếu bạn đang thêm giá trị vào danh sách bằng cách lặp lại, tôi giả sử bạn có một số IEnumerable để bắt đầu? Chỉ cần sử dụng .Select với .ToList. Đó là những gì nó được thiết kế cho.

Dim l = dsResources.Select(Function(d) New With { 
           .Name = d.Last_Name & ", " & d.First_Name 
          }).ToList() 

Answer 6

Làm thế nào để xây dựng một dòng như thế này?

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

Answer 7

Trong một dòng duy nhất bạn có thể thêm các kiểu nặc danh vào một danh sách

Dim aList = {(New With {.Name="John", .Age=30}),(.Name="Julie", .Age=32)}.ToList