IF OBJECT_ID(N'dbo.RegexFind') IS NOT NULL
DROP FUNCTION dbo.RegexFind
GO
create function RegexFind(
@pattern VARCHAR(255),
@matchstring VARCHAR(8000),
@global BIT = 1,
@Multiline bit =1)
returns
@result TABLE
(
Match_ID INT,
FirstIndex INT ,
length INT ,
Value VARCHAR(2000),
Submatch_ID INT,
SubmatchValue VARCHAR(2000),
Error Varchar(255)
)
AS -- columns returned by the function
begin
DECLARE @objRegexExp INT,
@objErrorObject INT,
@objMatch INT,
@objSubMatches INT,
@strErrorMessage VARCHAR(255),
@error varchar(255),
@Substituted VARCHAR(8000),
@hr INT,
@matchcount INT,
@SubmatchCount INT,
@ii INT,
@jj INT,
@FirstIndex INT,
@length INT,
@Value VARCHAR(2000),
@SubmatchValue VARCHAR(2000),
@objSubmatchValue INT,
@command VARCHAR(8000),
@Match_ID INT
DECLARE @match TABLE
(
Match_ID INT IDENTITY(1, 1)NOT NULL,
FirstIndex INT NOT NULL,
length INT NOT NULL,
Value VARCHAR(2000)
)
DECLARE @Submatch TABLE
(
Submatch_ID INT IDENTITY(1, 1),
match_ID INT NOT NULL,
SubmatchNo INT NOT NULL,
SubmatchValue VARCHAR(2000)
)
set @strErrorMessage = 'creating a regex object';
set @error='';
EXEC @hr= sp_OACreate 'VBScript.RegExp', @objRegexExp OUT
IF @hr = 0
set @strErrorMessage = 'Setting the Regex pattern';
set @objErrorObject = @objRegexExp
IF @hr = 0
EXEC @hr= sp_OASetProperty @objRegexExp, 'Pattern', @pattern
IF @hr = 0
set @strErrorMessage = 'Specifying a case-insensitive match'
IF @hr = 0
EXEC @hr= sp_OASetProperty @objRegexExp, 'IgnoreCase', 1
IF @hr = 0
EXEC @hr= sp_OASetProperty @objRegexExp, 'MultiLine', @Multiline
IF @hr = 0
EXEC @hr= sp_OASetProperty @objRegexExp, 'Global', @global
IF @hr = 0
set @strErrorMessage = 'Doing a match'
IF @hr = 0
EXEC @hr= sp_OAMethod @objRegexExp, 'execute', @objMatch OUT,
@matchstring
IF @hr = 0
set @strErrorMessage = 'Getting the number of matches'
IF @hr = 0
EXEC @hr= sp_OAGetProperty @objmatch, 'count', @matchcount OUT
set @ii = 0;
WHILE @hr = 0 AND @ii < @Matchcount
BEGIN
--The Match object has four read-only properties.
--The FirstIndex property indicates the number of characters in the string to the left of the match.
--The Length property of the Match object indicates the number of characters in the match.
--The Value property returns the text that was matched.
set @strErrorMessage = 'Getting the FirstIndex property';
set @command = 'item(' + CAST(@ii AS VARCHAR) + ').FirstIndex'
IF @hr = 0
EXEC @hr= sp_OAGetProperty @objmatch, @command,
@Firstindex OUT
IF @hr = 0
set @strErrorMessage = 'Getting the length property';
set @command = 'item(' + CAST(@ii AS VARCHAR) + ').Length';
IF @hr = 0
EXEC @hr= sp_OAGetProperty @objmatch, @command, @Length OUT
IF @hr = 0
set @strErrorMessage = 'Getting the value property';
set @command = 'item(' + CAST(@ii AS VARCHAR) + ').Value';
IF @hr = 0
EXEC @hr= sp_OAGetProperty @objmatch, @command, @Value OUT
INSERT INTO @match(Firstindex,Length,Value)
values(@firstindex + 1,@Length, @Value);
set @Match_ID = @@Identity;
--The SubMatches property of the Match object is a collection of strings.
--It will only hold values if your regular expression has capturing groups.
--The collection will hold one string for each capturing group.
--The Count property indicates the number of string in the collection.
--The Item property takes an index parameter, and returns the text matched by the capturing group.
--The Item property is the default member, so you can write SubMatches(7) as a shorthand to SubMatches.Item(7).
--Unfortunately, VBScript does not offer a way to retrieve the match position and length of capturing groups.
IF @hr = 0
set @strErrorMessage = 'Getting the SubMatches collection';
set @command = 'item(' + CAST(@ii AS VARCHAR) + ').SubMatches';
IF @hr = 0
EXEC @hr= sp_OAGetProperty @objmatch, @command,@objSubmatches OUT
IF @hr = 0
set @strErrorMessage = 'Getting the number of submatches'
IF @hr = 0
EXEC @hr= sp_OAGetProperty @objSubmatches, 'count', @submatchCount OUT
set @jj = 0
WHILE @hr = 0
AND @jj < @submatchCount
BEGIN
IF @hr = 0
set @strErrorMessage = 'Getting the submatch value property';
set @command = 'item(' + CAST(@jj AS VARCHAR) + ')';
set @submatchValue=null;
IF @hr = 0
EXEC @hr= sp_OAGetProperty @objSubmatches, @command, @SubmatchValue OUT
INSERT INTO @Submatch( Match_ID,SubmatchNo,SubmatchValue)
values(@Match_ID,@jj+1,@SubmatchValue);
set @jj = @jj + 1
END
set @ii = @ii + 1
END
IF @hr <> 0
BEGIN
DECLARE @Source VARCHAR(255),
@Description VARCHAR(255),
@Helpfile VARCHAR(255),
@HelpID INT
EXECUTE sp_OAGetErrorInfo @objErrorObject, @source OUTPUT,
@Description OUTPUT, @Helpfile OUTPUT, @HelpID OUTPUT
set @Error = 'Error whilst '
+ COALESCE(@strErrorMessage, 'doing something') + ', '
+ COALESCE(@Description, '')
END
EXEC sp_OADestroy @objRegexExp
EXEC sp_OADestroy @objMatch
EXEC sp_OADestroy @objSubMatches
insert into @result
(Match_ID,
FirstIndex,
[length],
[Value],
Submatch_ID,
SubmatchValue,
error)
SELECT m.[Match_ID],[FirstIndex],[length],[Value],[SubmatchNo],[SubmatchValue],@error
FROM @match m
LEFT OUTER JOIN @submatchs
ON m.match_ID=s.match_ID;
if @@rowcount=0 and len(@error)>0
insert into @result(error) select @error
return
end
GO