Help with Removing Email Address Suffix

[BasementDweller]

HI -- I have an array with a varying number of rows and 13 columns. In all rows of Col5 I have email addresses in the form of firstname.lastname@emailaddress.com. All email prefexes (firstname.lastname) are unique, and all email suffixes (@emailaddress.com) are the same. I'd like to remove @emailaddress.com from all Col5 rows. So the result will be only the unique firstname.lastname prefexes remaining in their original Col5 rows. I've tried StringTrimRight, StringTrimLeft, and StringReplace, but haven't been successful. My current unsuccessful attempt is below.

For $i = 0 To UBound($aUsers) - 1
   $vStringCut = StringReplace ("$aUsers[$i][5]", "@emailaddress.com", "")
Next

For $i = 0 To UBound($aUsers) - 1
   $aUsers[$i][5] = $aUsers[$i][$vStringCut]
Next

_ArrayDisplay($aUsers)

 

I hope someone can show me how to get this right. Thank you!

[water]

I think it should be:

For $i = 0 To UBound($aUsers) - 1
   $aUsers[$i][5] = StringReplace($aUsers[$i][5], "@emailaddress.com", "")
Next
_ArrayDisplay($aUsers)

 

[Dana]

Or:

For $i = 0 To UBound($aUsers) - 1
   $aUsers[$i][5] = StringLeft($aUsers[$i][5], StringInStr($aUsers[$i][5], "@")-1)
Next
_ArrayDisplay($aUsers)

 

[Nine]

Or :

$sEmail = "some.user.name@hotmail.com"

$sEmail = StringRegExpReplace($sEmail, "@.+", "")
ConsoleWrite ($sEmail & @CRLF)

 

[BasementDweller]

water -- that's it! Thank you!

[Nine]

  On 4/7/2021 at 7:50 PM, BasementDweller said:

water -- that's it! Thank you!

Expand  

Seriously ? 

[BasementDweller]

Dana, Nine -- Thank you!

[Nine]

  On 4/7/2021 at 6:20 PM, BasementDweller said:

and all email suffixes (@emailaddress.com) are the same

Expand  

I missed that !

[JockoDundee]

  On 4/7/2021 at 7:50 PM, BasementDweller said:

water -- that's it! Thank you!

Expand  

A rare win for the non-regex team