string fuction

[Tom B. Cruise]

Given a field with string datatype. How can I write a fuction which will
take this field as input and output a string like following?

example 1,

[email protected] --> input


yahoo.com --> output


example 2,

[email protected] --> input


netvigator.com ---> output




P.S. I want to use this in a query. Thanks.

 

[Cheryl Fischer]

Check out the Mid() function in VBA help.

 

[Tom B. Cruise]

Cheryl,

But this function will take the specified position which is a
variable to my case.

 

[Duane Hookom]

Then use the Instr() function to find where the "@" is located in the
string.

 

[Ron Weiner]

Try using Mid() with InStr() and Len() like this:

YourString = Mid("[email protected]" ,InStr("[email protected]" ,"@")
+1,Len("[email protected]") -InStr("[email protected]" ,"@"))

Ron W

 

[Dirk Goldgar]

Try using Mid() with InStr() and Len() like this:

YourString = Mid("[email protected]" ,InStr("[email protected]" ,"@")
+1,Len("[email protected]") -InStr("[email protected]" ,"@"))

And in fact you don't need the third argument to Mid(), so you can just
write

YourString = _
Mid("[email protected]", InStr("[email protected]","@") +1)

 

[Tom B. Cruise]

Thanks, gentlemen. That help a lot.

And in fact you don't need the third argument to Mid(), so you can just
write

YourString = _
Mid("[email protected]", InStr("[email protected]","@") +1)

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)