[RESOLVED] String Function Help

[Giraffe Frenzy]

Hi All,

I have a string that I need to extract only a certain part of the data from:

SMTP:[email protected]

I need to extrapolate "Mike.Smith" from the above string.

I have about 1,000 strings like this, the FirstName.LastName will change on each sting.

How do I parse out the "SMTP:" and the "@abc.com"?

Thank you all for your help!

[MarkT]

There are a number of way but here is one.

Option Explicit

Dim strIn
Dim strParts

	strIn = "SMTP:[email protected]"

	' Split the string on the ampersand
	strParts = Split(strIn, "@")

	' You will now have an array that contains
	' SMTP:Mike.Smith as the first element and
	' abc.com as the second element

	' Now remove the first 5 characters of the first element
	strParts(0) = Mid(strParts(0), 6)

	MsgBox strParts(0)

[ooKmonkey]

if its always gonna be the same domain bit then you could also

Replace(Replace(EmailAddressHere, "@abc.com", ""), "SMTP:", "")

that will strip off the domain name and the smtp bit but if there are going to bve different things after the "@" then i would definately go with MarkT's method

[Giraffe Frenzy]

Awesome, thank you guys!

Your explanations and help is why I love coming to this site. Thank you both very much.