LINQ's ForEach'in VB.NET'te anonim yöntemlerle kullanılması

Question

Klasik For Each döngüsünü VB.NET'te LINQ ForEach uzantısıyla değiştirmeye çalışıyorum ...

 Dim singles As New List(Of Single)(someSingleList) 
    Dim integers As New List(Of Integer) 

    For Each singleValue In singles 
    integers.Add(CInt(Math.Round(singleValue))) 
    Next singleValue 

Belki de böyle bir şey?

 singles.ForEach(Function(s As [Single]) Do ??? 

Bunu anonim yöntemler kullanarak (yani yeni bir işlev bildirmeden) doğru bir şekilde nasıl yapabilirim?

Answer 1

bu deneyin: For Each döngünün gövdesi değer döndürmez çünkü

singles.ForEach(Sub(s As [Single]) integers.Add(CInt(Math.Round(s)))) 

Burada bir Sub gerekir.

Answer 2

Satır içi ifadenin bir değer döndürmesini beklerseniz, bir İşlev kullanırsınız. Örneğin:

Dim myProduct = repository.Products.First(Function(p) p.Id = 1) 

Bu da Boolean değerlendirir şey, çünkü bir işlev ifadesini kullanmak (p.Id = 1) olur.

Sen ifadeden döndürülen hiçbir şey yoktur, çünkü bir Sub kullanmak gerekir:

singles.ForEach(Sub(s) integers.Add(CInt(Math.Round(s)))) 

Answer 3

.ForEach uzatma yöntemi kullanılarak, sadece doğrudan sonuçlar bu şekilde üretebilir Aksine o:

Dim integers = singles.Select(Function(x) Math.Round(x)).Cast(Of Integer)() 

Ya da böyle, .Cast kullanmadan:

Dim integers = singles.Select(Function(x) CInt(Math.Round(x))) 

List(Of Integer)'u önceden tanımlamanıza gerek kalmadan kaydeder ve ayrıca bir dönüşümü uyguladığınızı ve sonuç ürettiğinizi (ödevin açık olduğu gibi) daha net olduğunu düşünüyorum.

Not: Bu, List(Of Integer) kullandığı çoğu yerde kullanılabilen birüretmiştir, ancak buna ekleyemezsiniz. Bir List istiyorsanız, yukarıdaki kod örneklerinin sonuna .ToList() numaralı etikete bağlanın.