Imports System
Imports System.Collections.Generic
Imports System.Data
Imports System.Linq
Imports System.Text
Imports System.Globalization
Module Example
Public Sub Main()
Dim QueryString As String() = New String() {"One", "Two", "Three", "Four", "Five"}
Dim ThisQuery = From StringValue In QueryString _
Where StringValue.Length > 3 _
AndAlso StringValue.StartsWith("F") _
Select StringValue + vbCrLf
For Each ThisValue In ThisQuery
Console.WriteLine(ThisValue)
Next
End Sub
End Module
|