[RESOLVED] string.contain(an element of array) ??

[RoyDJ]

i have a long string taken from inputbox and an array/arraylist/hashset(of string) taken from file.readalllines(path)

i know can do:

function
for each word in array
if string.contain word
return true


but there is a string.contain(an element of array) ??

[.paul.]

try this:

Dim s As String = "abcdefghij"
Dim a() As String = {"e", "a", "s", "y"}
MsgBox(a.Any(Function(str) s.Contains(str)))

[dbasnett]

Did you try

if arrayname.contains(word)?

[RoyDJ]

Did you try

if arrayname.contains(word)?

string is "this is example string i will use"
array: [example, red, use]

so cannot use what you suggest

try this:

Dim s As String = "abcdefghij"
Dim a() As String = {"e", "a", "s", "y"}
MsgBox(a.Any(Function(str) s.Contains(str)))

work great! thanks!!
can you explain?
any is methid i was looking for, function(str)? trasform s in array of string? and later check if contain?

[.paul.]

the first line is the string to test
the second line is the array to test
the third line says return true if any element of the array exists in the string

[RoyDJ]

line 1 & 2 was clear, was 3 that i understand half ahaha

anyway is same of for each word in array string.contain(word) only in 1 line lol

[RoyDJ]

line 1 & 2 was clear, was 3 that i understand half ahaha

anyway is same of for each word in array string.contain(word) only in 1 line lol

the first line is the string to test
the second line is the array to test
the third line says return true if any element of the array exists in the string

somethigs faster?
if array have alot of items... is slow

[MattP]

You may be able to eek out some performance by using a For Each loop over Linq. You need to make sure that you short circuit to exit out of the loop when you make a match though.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim input = "Peter Piper picked a peck of pickled peppers."
        Dim search = {"picked", "jar"}
 
        Dim found = CheckViaLoop(input, search)
 
        Dim found2 = CheckViaLinq(input, search)
 
        search = {"pickles", "Joe"}
 
        Dim found3 = CheckViaLoop(input, search)
 
        Dim found4 = CheckViaLinq(input, search)
    End Sub
 
    Private Shared Function CheckViaLoop(ByVal input As String, ByVal search As String()) As Boolean
        For Each item In search
            If (input.Contains(item)) Then
                Return True
            End If
        Next
        Return False
    End Function
 
    Private Shared Function CheckViaLinq(ByVal input As String, ByVal search As String()) As Boolean
        Return search.Any(Function(s) input.Contains(s))
    End Function

[RoyDJ]

thanks but more code than my original for each loop.
reg+ for
matp
.paul