Stripping the @1234abcd.com out of email.

Hello,

I'd like to use a $RegEx expression to return only the name portion before the @1234abcd.com of an email address

test1@emailaddress.com I would only like to get test1

is this possible using a $RegEx?

Here are 3 possible solutions.

Code:

Alias ChopMail {
  Var %r = $iif($isid,Return,Echo -at)
  If $1 {
    If $regex($1,/^(([^@]+)@[^$]+)$/i) { %r $regml(2) }
  }
}

OR

Alias ChopMail {
  Var %r = $iif($isid,Return,Echo -at)
  If $1 { %r $regsubex($1,/(@[^$]+)$/i,) }
}

OR

Alias ChopMail {
  Var %r = $iif($isid,Return,Echo -at)
  If $1 { %r $gettok($1,1,64) }
}

Usage:

$ChopMail(user@host.domain) returns 'user'.
/ChopMail user@host.domain echoes 'user'.

Regards

Much thanks, works like a charm.

Thanks again.

Cheers!