Use Like "*a*" in case statement 1

[mattscotney]

Hi all,

How do I use the like statement within a case statement to catch wildcards?

This is how I think it should be done but it does not work:

Select Case docTypes

Case Like "*egg*"
'Do something....

Case Like "*tea*"
'Do something else....

End Select

Thanks in advance,
Matt

 

[Scoty]

Matt,
You could use the InStr() Function with if's don't know how you could do it with a case?

If InStr(1, docTypes, "egg", vbTextCompare) Then
    'Do Somthing....
Else:
     If InStr(1, docTypes, "tea", vbTextCompare)
         'Do Something else....
     End If
End If

hth
Scoty :

"Learn from others' mistakes. You could not live long enough to make them all yourself."
-- Hyman George Rickover (1900-86),

 

[JohnYingling]

Select Case True
Case doctypes Like "*egg*"
'Do something....
Case doctypes Like "*tea*"
'Do something else....

End Select

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[sedgely]

JohnYingLing

This looks like the solution i have been looking for BUT...

how can i use this to include "not like" e.g.

Select Case True
Case doctypes Like "*egg*" and not like "*bacon*"
'Do something....
Case doctypes Like "*tea*"
'Do something else....

End Select


Cheers, Craig
Si fractum non sit, noli id reficere

 

[MakeItSo]

hi Craig.

Try this:

Select Case True
Case doctypes Like "*egg*" and not (doctypes Like "*bacon*&quot
'Do something....
Case doctypes Like "*tea*"
'Do something else....

Andreas Galambos
EDP / Technical Support Specialist
(andreas.galambos@bowneglobal.de)
HP:

http://www.andygalambos.de

 

[sedgely]

Cheers Andreas

That worked a treat



Cheers, Craig
Si fractum non sit, noli id reficere