T-SQL - to remove -Integer and dashes starting from the emailID - sql

Question

I have a emailID column in my database .Which has some numeric value in starting followed by 3 dashes then comes emailID I want to remove the numberic values as well as 3 dashes. which are coming starting from the emailID . The numeric values can be increase or decrease but dashes will remain same.below are the examples
dbo.regexp_replace('128888822229990976---Anand.chaudhary#gmail.com','^(\d+\-{3})','') as email_guess1
dbo.regexp_replace('222299---Anand.chaudhary#gmail.com','^(\d+\-{3})','') as email_guess1
dbo.regexp_replace('45390976---Archit.kumar-bhargav#gmail.com','^(\d+\-{3})','') as email_guess1
dbo.regexp_replace('0042352229990976---shiv.mangal-gupta#gmail.com','^(\d+\-{3})','') as email_guess1
I am using below user defined function its working fine but taking more time because my table has millions of records .. Please help me.
CREATE function [dbo].[regexp_replace] (
--
--
-- These match exactly the parameters of RegExp
--
#searchstring varchar(4000),
#pattern varchar(4000),
#replacestring varchar(4000)
)
returns varchar(4000)
as
begin
declare #objRegexExp int,
#objErrorObj int,
#strErrorMessage varchar(255),
#res int,
#result varchar(4000)
if #searchstring is null or len(ltrim(rtrim(#searchstring))) = 0 begin
return null
end;
set #result='';
exec #res = sp_OACreate 'VBScript.RegExp', #objRegexExp out;
if #res <> 0 begin
return 'VBScript did not initialize!';
end;
exec #res=sp_OASetProperty #objRegexExp, 'Pattern', #pattern;
if #res <> 0 begin
return 'Pattern property set failed!';
end;
exec #res=sp_OASetProperty #objRegexExp, 'IgnoreCase', 0;
exec #res=sp_OASetProperty #objRegexExp, 'global', 1;
if #res <> 0 begin
return 'IgnoreCase option failed!';
end;
exec #res=sp_OAMethod #objRegexExp, 'Replace', #result out, #searchstring, #replacestring;
if #res <> 0 begin
return 'Bad search string!';
end;
exec #res=sp_OADestroy #objRegexExp;
return #result
end;

Answer 1

It is too expensive to use VB COM objects in your queries.
Here you can use RIGHT, LEN and CHARINDEX to achieve that:
CREATE TABLE t (email varchar(100)) ;
INSERT INTO t (email)
VALUES ('123---Anand.chaudhary#gmail.com') ;
SELECT RIGHT(email, LEN(email) - CHARINDEX('---', email) - 2) as email
FROM t ;
So your function would be:
CREATE function [dbo].[fn_email] (
#email varchar(200), -- I beleive there won't be email addresses longer than 200 chars
)
returns varchar(200)
as
begin
SELECT RIGHT(#email, LEN(#email) - CHARINDEX('---', #email) - 2)
end