Mega Code Archive

 

Categories / VB.Net / Data Structure

 

Determines whether an array contains elements

Imports System Public Class Main     Public Shared Sub Main()         Dim numbers() As String = { "Five","Two","Ten","Twenty","Thirty","Zero","Four","Last" }         For Each num As String In numbers             Console.WriteLine(num)         Next num         Dim dinoType As Predicate(Of String)         dinoType = AddressOf EndsWithRaptor         Console.WriteLine(Array.Exists(numbers, dinoType))         Dim subArray() As String = Array.FindAll(numbers, dinoType)         For Each num As String In subArray             Console.WriteLine(num)         Next num     End Sub     Private Shared Function EndsWithRaptor(s As String) As Boolean         If (s.Length > 3) AndAlso (s.Substring(s.Length - 4).ToLower() = "t") Then             Return True         Else             Return False         End If     End Function End Class