SQL Server regular Special exchange function

Create functionDbo.regexreplace (@source ntext,--Original String    @regexp varchar( +),--Regular Expressions    @replace varchar( +),--Replace value    @globalreplace bit = 1,--whether it is a global replacement    @ignorecase bit = 0 --whether to ignore uppercase and lowercase)returns varchar( +) asbegin    Declare @hr integer    Declare @objregexp integer    Declare @result varchar( the)    exec @hr =sp_OACreate'VBScript.RegExp',@objregexpOutputif @hr <> 0 begin        exec @hr =sp_OADestroy@objregexp        return NULL    End    exec @hr =sp_OASetProperty@objregexp,'pattern',@regexp    if @hr <> 0 begin        exec @hr =sp_OADestroy@objregexp        return NULL    End    exec @hr =sp_OASetProperty@objregexp,'Global',@globalreplace    if @hr <> 0 begin        exec @hr =sp_OADestroy@objregexp        return NULL    End    exec @hr =sp_OASetProperty@objregexp,'ignorecase',@ignorecase    if @hr <> 0 begin        exec @hr =sp_OADestroy@objregexp        return NULL    End    exec @hr =sp_OAMethod@objregexp,'Replace',@resultOutput@source,@replace    if @hr <> 0 begin        exec @hr =sp_OADestroy@objregexp        return NULL    End    exec @hr =sp_OADestroy@objregexp        if @hr <> 0 begin        return NULL    End    return @resultEndGo

SQL Server regular Special exchange function