Mega Code Archive

 

Categories / VB.Net / LINQ

 

Alternative syntax for Take While

Imports System.IO Imports System.Reflection Imports System.Linq Imports System.Xml.Linq Public Class MainClass    Public Shared Sub Main         Dim numbers() As Integer = {5, 4, 1, 3, 9, 8, 6, 7, 2, 0}         'Dim firstNumbersLessThan6 = numbers.TakeWhile(Function(n) n < 6)         Console.WriteLine("First numbers less than 6:")         For Each n In numbers             Console.WriteLine(n)         Next    End Sub End Class