crop string

[M626]

How can i crop a string so i remove everything after the "@" sign. For example say i want to take a string "AAA@INTERNET" and remove everhing from the @ so my new string is AAA?

 

[Freemo]

Hello

A way i think of dealing with this is by a loop function. Take the string and loop by each character until @ appears.

I can try and sort out some coding if you get stuck.

 

[ettienne]

Use the InStr function to find the position of @, then use Left to get the first x characters from the string.
For example:
Left("AAA@INTERNET",InStr("AAA@INTERNET","@")-1)

 

[Error7]

n = InStr(mystring, "@")
newstring = Right(mystring, Len(mystring) - n)
MsgBox newstring

[gray]Experience is something you don't get until just after you need it.[/gray]

 

[vladk]

MsgBox Split("AAA@INTERNET", "@")(0)

 

[comaboy]

Or just be lazy... (Great if you've got a lot of addresses to parse)

    Dim email() As String
    email = Split("me@here.com", "@")
    MsgBox email(0) ' or whatever....