電子メールアドレスでユーザー名を抽出するOutlook VBA正規表現

Question

VBAの電子メールアドレスからユーザー名を抽出するにはどうすればよいですか？例えば

は - 私の電子メールのIDが "prateek@gmail.com" である場合、ユーザ名はこれまで "prateek"

である - 私はこれを書いた -

Set Reg1 = New RegExp 

' \s* = invisible spaces 
' \d* = match digits 
' \w* = match alphanumeric 

With Reg1 
    .Pattern = "\w+@gmail\.com" 
    .Global = True 
End With 
If Reg1.Test(emailAddress) Then 

    Set M1 = Reg1.Execute(emailAddress) 
    For Each M In M1 
     ' M.SubMatches(1) is the (\w*) in the pattern 
     ' use M.SubMatches(2) for the second one if you have two (\w*) 
     Debug.Print M.SubMatches(1)    
    Next 
End If 

しかし、それはのように見えるdoesntのそれはすべてのサブマッチを行く

Answer 1

RegExの広範なとInstrを組み合わせて使用​​することができますの下のコードを試してみてください。

Dim usern As String 

'emailAddress = "prateek@gmail.com" ' <-- for debug 

usern = Left(emailAddress, InStr(emailAddress, "@") - 1) 
MsgBox "UserName is " & usern