Imports System
Imports System.Collections.Generic
Public Class Program
Public Shared Function StartsWithAny(ByVal str As String, ByVal substrings As List(Of String)) As Boolean
For Each substring In substrings
If str.StartsWith(substring) Then
Return True
End If
Next
Return False
End Function
Public Shared Sub Main()
Dim str As String = "abcdefg"
Dim substrings As List(Of String) = New List(Of String) From {
"xy",
"poq",
"mnop",
"abc",
"rsuvw"
}
If StartsWithAny(str, substrings) Then
Console.WriteLine("The string starts with a substring from the list.")
Else
Console.WriteLine("The string does not start with any substring from the list.")
End If
End Sub
End Class
' run:
'
' The string starts with a substring from the list.
'
