Contains for string?

[Tom]

Is there such a thing as a CONTAINS for a string variable in VB.NET? For
instance, I want to do something like the following:

If strTest Contains ("A","B", "C") Then
Debug.WriteLine ("Found characters")
Else
Debug.WriteLine ("Did NOT find characters!")
End If

[Shiva]

Is String.IndexOfA ny() what you are looking for?

"Tom" <to*@nospam.com > wrote in message
news:Oe******** ******@TK2MSFTN GP11.phx.gbl...
Is there such a thing as a CONTAINS for a string variable in VB.NET? For
instance, I want to do something like the following:

If strTest Contains ("A","B", "C") Then
Debug.WriteLine ("Found characters")
Else
Debug.WriteLine ("Did NOT find characters!")
End If

[Jay B. Harlow [MVP - Outlook]]

Tom,
As Shiva suggests, you can use String.IndexOfA ny, something like:

If strTest.IndexOf Any("ABC".ToCha rArray) <> -1 Then
Debug.WriteLine ("Found characters")
Else
Debug.WriteLine ("Did NOT find characters!")
End If
Or

If strTest.IndexOf Any(New Char() {"A"c, "B"c, "C"c}) <> -1 Then

NOTE: "A"c is a char literal, while "A" is a string literal.

Depending on how often I was using the above, I would consider making the
char array Static to the routine.

Static anyOf() As Char = New Char() {"A"c, "B"c, "C"c}
If strTest.IndexOf Any(anyOf) <> -1 Then

Hope this helps
Jay

"Tom" <to*@nospam.com > wrote in message
news:Oe******** ******@TK2MSFTN GP11.phx.gbl... Is there such a thing as a CONTAINS for a string variable in VB.NET? For
instance, I want to do something like the following:

If strTest Contains ("A","B", "C") Then
Debug.WriteLine ("Found characters")
Else
Debug.WriteLine ("Did NOT find characters!")
End If

[Tom]

Shiva: Yes, that works for CHARACTERs, but not for strings. I probably
should have made my example
as such:

strTest = "The cat jumped over the sleepy dog."
If strTest Contains ("cat","dog" , "sleep") Then
Debug.WriteLine ("Found strings")
Else
Debug.WriteLine ("Did NOT find strings!")
End If

I -could- write my own function easily enough for this, but it seems like
the framework should have a similar string function somewhere.

Tom

"Shiva" <sh******@onlin e.excite.com> wrote in message
news:uj******** ******@TK2MSFTN GP11.phx.gbl...

Is String.IndexOfA ny() what you are looking for?

"Tom" <to*@nospam.com > wrote in message
news:Oe******** ******@TK2MSFTN GP11.phx.gbl...
Is there such a thing as a CONTAINS for a string variable in VB.NET? For
instance, I want to do something like the following:

If strTest Contains ("A","B", "C") Then
Debug.WriteLine ("Found characters")
Else
Debug.WriteLine ("Did NOT find characters!")
End If

[Cor Ligthert]

Tom,

You cannot, you should or use a Regex or use a loop with the normal indexof

Where the performance decission when to use the regex is in my opinion about
20 words to search for.

Cor

[Jay B. Harlow [MVP - Outlook]]

Tom,
I think you are going to have to create your own routine...

I would consider using a RegEx in that routine.

Const pattern As String = "cat|dog|sl eep"
Static theRegEx As New System.Text.Reg ularExpressions .Regex(pattern,
Text.RegularExp ressions.RegexO ptions.Compiled )
If theRegEx.IsMatc h(strTest) Then
Debug.WriteLine ("Found strings")
Else
Debug.WriteLine ("Did NOT find strings!")
End If

Of course if "cat","dog" , "sleep" are dynamic, you could build the pattern
with String.Join:

Dim pattern As String = String.Join("|" , New String() {"cat", "dog",
"sleep"})
If System.Text.Reg ularExpressions .Regex.IsMatch( pattern, strTest)
Then

Which I used would depending on the whether or not the strings I was looking
for were static or dynamic & how often the routine was being called...

Hope this helps
Jay

"Tom" <to*@nospam.com > wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

Shiva: Yes, that works for CHARACTERs, but not for strings. I probably
should have made my example
as such:

strTest = "The cat jumped over the sleepy dog."
If strTest Contains ("cat","dog" , "sleep") Then
Debug.WriteLine ("Found strings")
Else
Debug.WriteLine ("Did NOT find strings!")
End If

I -could- write my own function easily enough for this, but it seems like
the framework should have a similar string function somewhere.

Tom

"Shiva" <sh******@onlin e.excite.com> wrote in message
news:uj******** ******@TK2MSFTN GP11.phx.gbl...

Is String.IndexOfA ny() what you are looking for?

"Tom" <to*@nospam.com > wrote in message
news:Oe******** ******@TK2MSFTN GP11.phx.gbl...
Is there such a thing as a CONTAINS for a string variable in VB.NET? For
instance, I want to do something like the following:

If strTest Contains ("A","B", "C") Then
Debug.WriteLine ("Found characters")
Else
Debug.WriteLine ("Did NOT find characters!")
End If

[Jay B. Harlow [MVP - Outlook]]

Doh!,

Dim pattern As String = String.Join("|" , New String() {"cat",
"dog", "sleep"})
If System.Text.Reg ularExpressions .Regex.IsMatch( pattern, strTest)
Reversed the patterns, it should be:

If Regex.IsMatch(s trTest, pattern) Then

Jay

"Jay B. Harlow [MVP - Outlook]" <Ja************ @msn.com> wrote in message
news:ux******** ******@tk2msftn gp13.phx.gbl... Tom,
I think you are going to have to create your own routine...

I would consider using a RegEx in that routine.

Const pattern As String = "cat|dog|sl eep"
Static theRegEx As New
System.Text.Reg ularExpressions .Regex(pattern,
Text.RegularExp ressions.RegexO ptions.Compiled )
If theRegEx.IsMatc h(strTest) Then
Debug.WriteLine ("Found strings")
Else
Debug.WriteLine ("Did NOT find strings!")
End If

Of course if "cat","dog" , "sleep" are dynamic, you could build the pattern
with String.Join:

Dim pattern As String = String.Join("|" , New String() {"cat",
"dog", "sleep"})
If System.Text.Reg ularExpressions .Regex.IsMatch( pattern, strTest)
Then

Which I used would depending on the whether or not the strings I was
looking for were static or dynamic & how often the routine was being
called...

Hope this helps
Jay

"Tom" <to*@nospam.com > wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

Shiva: Yes, that works for CHARACTERs, but not for strings. I probably
should have made my example
as such:

strTest = "The cat jumped over the sleepy dog."
If strTest Contains ("cat","dog" , "sleep") Then
Debug.WriteLine ("Found strings")
Else
Debug.WriteLine ("Did NOT find strings!")
End If

I -could- write my own function easily enough for this, but it seems like
the framework should have a similar string function somewhere.

Tom

"Shiva" <sh******@onlin e.excite.com> wrote in message
news:uj******** ******@TK2MSFTN GP11.phx.gbl...

Is String.IndexOfA ny() what you are looking for?

"Tom" <to*@nospam.com > wrote in message
news:Oe******** ******@TK2MSFTN GP11.phx.gbl...
Is there such a thing as a CONTAINS for a string variable in VB.NET? For
instance, I want to do something like the following:

If strTest Contains ("A","B", "C") Then
Debug.WriteLine ("Found characters")
Else
Debug.WriteLine ("Did NOT find characters!")
End If

[Herfried K. Wagner [MVP]]

"Tom" <to*@nospam.com > schrieb:

Is there such a thing as a CONTAINS for a string variable in VB.NET? For
instance, I want to do something like the following:

If strTest Contains ("A","B", "C") Then
Debug.WriteLine ("Found characters")
Else
Debug.WriteLine ("Did NOT find characters!")
End If

For reasons of readability, I prefer this solution:

\\\
Dim s As String = _
"Quidquid id est timeo Danaos et dona ferentes."
If _
InStr(s, "Quidquid") AndAlso _
InStr(s, "timeo") AndAlso _
InStr(s, "dona") _
Then
MsgBox("True")
Else
MsgBox("False")
End If
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Jay B. Harlow [MVP - Outlook]]

Herfried,
You raised an interesting question. Does Tom want to know if strTest
contains all three or one of?

Its harder with RegEx to check to see if it contains all three...

Wondering
Jay

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:OD******** ******@TK2MSFTN GP12.phx.gbl...

"Tom" <to*@nospam.com > schrieb:

Is there such a thing as a CONTAINS for a string variable in VB.NET? For
instance, I want to do something like the following:

If strTest Contains ("A","B", "C") Then
Debug.WriteLine ("Found characters")
Else
Debug.WriteLine ("Did NOT find characters!")
End If

For reasons of readability, I prefer this solution:

\\\
Dim s As String = _
"Quidquid id est timeo Danaos et dona ferentes."
If _
InStr(s, "Quidquid") AndAlso _
InStr(s, "timeo") AndAlso _
InStr(s, "dona") _
Then
MsgBox("True")
Else
MsgBox("False")
End If
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Herfried K. Wagner [MVP]]

Jay,

"Jay B. Harlow [MVP - Outlook]" <Ja************ @msn.com> schrieb:

You raised an interesting question. Does Tom want to know
if strTest contains all three or one of?
First I tested if 'String' contains a 'Contains' method, but it doesn't
contain such a method.

BTW: My solution can be simply adapted by replacing 'AndAlso' with 'OrElse'
in order to check for the occurance of one (or more) of the substrings in
the string.
Its harder with RegEx to check to see if it contains all
three...

Especially for longer strings, the way I propagate may be inefficient, but I
don't know how Regex is implemented...

Wondering too...

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>