Is there a way to include Like in a Case?

Ie:

dim str as string

Select case str

(Case 1): If Str CONTAINS "blah"

end select

Its like writing If str like "*blah*" then... but with select case.

Use InStr to return the position of "blah" within the string. Something like
this

Sub Test()
Dim str As String

str = "This and That"
Select Case True
Case InStr(1, str, "This")
MsgBox "Found this"
Case InStr(1, str, "That")
MsgBox "Found That"
Case InStr(1, str, "abcd")
MsgBox "Found ABCD"
End Select
End Sub

--
HTH...

Jim Thomlinson


"J@Y" wrote:

Is there a way to include Like in a Case?

Ie:

dim str as string

Select case str

(Case 1): If Str CONTAINS "blah"

end select

Its like writing If str like "*blah*" then... but with select case.

Great thanks!

"Jim Thomlinson" wrote:

Use InStr to return the position of "blah" within the string. Something like
this

Sub Test()
Dim str As String

str = "This and That"
Select Case True
Case InStr(1, str, "This")
MsgBox "Found this"
Case InStr(1, str, "That")
MsgBox "Found That"
Case InStr(1, str, "abcd")
MsgBox "Found ABCD"
End Select
End Sub

--
HTH...

Jim Thomlinson


"J@Y" wrote:

Is there a way to include Like in a Case?

Ie:

dim str as string

Select case str

(Case 1): If Str CONTAINS "blah"

end select

Its like writing If str like "*blah*" then... but with select case.