0

I need to extract matching texts from a input based on a regular expression. As there are no built in support for regular expressions in SQL Server, I have written the following UDF to get the job done.

CREATE FUNCTION GetMatch
(
    @Pattern VARCHAR(255),
    @Text VARCHAR(1000)
)
RETURNS VARCHAR(1000)
AS
BEGIN
    DECLARE @Response INT, @ObjRegexExp INT, @ObjMatch INT, @Matchcount INT, @Match VARCHAR(1000);
    DECLARE @source VARCHAR(500), @description VARCHAR(500);

    EXEC @Response = sp_OACreate 'VBScript.RegExp', @ObjRegexExp OUT;

    IF @Response = 0
        EXEC @Response = sp_OASetProperty @ObjRegexExp, 'Pattern', @Pattern;
    IF @Response = 0
        EXEC @Response = sp_OASetProperty @ObjRegexExp, 'IgnoreCase', 1;
    IF @Response = 0
        EXEC @Response = sp_OASetProperty @ObjRegexExp, 'MultiLine', 0;
    IF @Response = 0
        EXEC @Response = sp_OASetProperty @ObjRegexExp, 'Global', 0;                        
    IF @Response = 0
        EXEC @Response = sp_OAMethod @ObjRegexExp, 'execute', @ObjMatch OUT, @Text;
    IF @Response = 0
        EXEC @Response = sp_OAGetProperty @ObjMatch, 'count', @Matchcount OUT;

    IF @Response = 0 AND @Matchcount >= 1
        EXEC @Response = sp_OAGetProperty @ObjMatch, 'item(0).Value', @Match OUT;

    IF @Response <> 0
    BEGIN
        EXEC @Response = sp_OAGetErrorInfo @ObjRegexExp, @source OUT, @description OUT;
        SET @Match = 'source ' + ISNULL(@source, '') + ' -- description ' + ISNULL(@description, '');
    END

    RETURN @Match;
END
GO

I consume it as follows:-

SELECT Barcode, dbo.GetMatch('(^[a-zA-Z]+)', Barcode) BarcodePrefix
FROM TestData

Each time it gets executed successfully for 128 times and then generates the error ODSOLE Extended Procedure which I have captured by sp_OAGetErrorInfo. Any idea what causes this?

enter image description here

0 Answers0