[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!

[03myersd]

There will be a much cleaner way of doing this but:

Private Sub Command1_Click()
Dim str As String
Dim pos As Integer

str = "SMTP:[email protected]"
pos = InStr(1, str, ":")
str = Right(str, Len(str) - pos)
pos = InStr(1, str, "@")
str = Left(str, pos - 1)
Debug.Print str
End Sub

[Hack]

Another possibility

Dim sString As String
Dim arrName() As String
Dim arrSplit() As String
sString = "SMTP:[email protected]"
arrSplit = Split(sString, "@")
arrName = Split(arrSplit(0), ":")
MsgBox arrName(1)

[LaVolpe]

Slightly modified version of 03myersd post and would be very fast since it does not create any intermediary strings... You mentioned you have 1000+ of these to parse...

Dim str As String
Dim pos As Integer
str = "SMTP:[email protected]"
pos = InStr(1, str, ":")
str = Mid$(str, pos + 1, InStr(pos, str, "@") - pos - 1)

Edited: removed one unnecessary calculation

[techgnome]

And one more possibility:

Dim str As String
str = "SMTP:[email protected]"
str = Replace$(str, "SMTP:", "")
str = Replace$(str, "@abc.com", "")

-tg

[Giraffe Frenzy]

Very cool. Thank you all for your help.

I tried all the suggestions given, and everyone worked great. Much appreciated!