Wildcard Question Letters & Numbers

[silentwolf]

Hi guys,

just wondering if someone help me with this issue.

I need to differentiate between following.

Anyword/Anyword with 124521/12453544

So Anyword can be anyword normally written Properfor example.. Auto/Huber GmbH
And and with Numbers 1234/2356412 those can also be any numbers at any length the same with the letters.
So how do I need to use the wildcards to find Anyword/Anyword and 1234/12457844 both seperated by /

function Test(byval strText as string) as string
dim intPos as integer

Select Case True
Case strText Like "*[a-z]/[a-z]"
intPos=Instr(strText,"/")
case else
end select

as I need any length of letters befor and after the "/" slash I like to ask if someone knows the correct syntax for this and the same for the Numbers.

It would be much appreciated.

Many thanks.. or is it not possible?

 

[Rick Rothstein]

See if this function does what you want...

[table="width: 500"]
[tr]
	[td]Function WordsOrNumbers(S As String) As String
  WordsOrNumbers = Choose(2 + (Not S Like "*[!0-9/]*"), "Numbers", "Words")
End Function[/td]
[/tr]
[/table]

 

[silentwolf]

Hi Rick,
Many thanks to you!!
I will try that out!