Робота з регулярними виразами в SQL Server

Христофоров Юрій

У SQL Server 7/2000 немає вбудованої підтримки роботи з регулярними виразами. Але SQL Server похволяет працювати з COM-об'єктами. У VBScript (бібліотека vbscript.dll) є спеціальний об'єкт для роботи з регулярними виразами - RegExp.

Нижче наведений код збереженої процедури sp_RegExpReplace, яка дозволяє заміняти текст, що задовольняє заданим регулярним виразом на інший заданий текст в рядку.

Текст процедури sp_RegExpReplace:           

CREATE   PROCEDURE [dbo]. Sp_RegExpReplace   

@ strIn1 varchar (8000),   

@ strIn2 varchar (8000),   

@ strPattern varchar (2000),   

@ strOut varchar (8000) OUT   

AS   

DECLARE @ object int, @ hr int   

DECLARE @ src varchar (255), @ desc   varchar (255)   

--   створюємо об'єкт RegExp для роботи з регулярними виразами   

EXEC @ hr =   sp_OACreate 'VBScript.RegExp', @ object OUT   

  

IF (@ hr <> 0) BEGIN   

EXEC sp_OAGetErrorInfo @ object, @ src   OUT, @ desc OUT   

SELECT hr = convert (varbinary (4), @ hr),   Source = @ src, Description = @ desc   

RETURN   

END   

  

EXEC @ hr = sp_OASetProperty @ object,   'Pattern', @ strPattern   

IF (@ hr <> 0) BEGIN   

EXEC sp_OAGetErrorInfo @ object, @ src   OUT, @ desc OUT   

SELECT hr = convert (varbinary (4), @ hr),   Source = @ src, Description = @ desc   

RETURN   @ hr   

END   

--   буде глобальна заміна   

EXEC @ hr =   sp_OASetProperty @ object, 'Global', 1   

IF (@ hr <> 0) BEGIN   

EXEC sp_OAGetErrorInfo @ object, @ src   OUT, @ desc OUT   

SELECT hr = convert (varbinary (4), @ hr),   Source = @ src, Description = @ desc   

RETURN @ hr   

END   

- виклик методу Replace   

EXEC @ hr = sp_OAMethod @ object, 'Replace',   @ strOut OUT, @ strIn1, @ strIn2   

IF (@ hr <> 0) BEGIN   

EXEC sp_OAGetErrorInfo @ object, @ src   OUT, @ desc OUT   

SELECT hr = convert (varbinary (4), @ hr),   Source = @ src, Description = @ desc   

RETURN @ hr   

END   

- видаляємо об'єкт   

EXEC @ hr = sp_OADestroy @ object   

IF (@ hr <> 0) BEGIN   

EXEC sp_OAGetErrorInfo @ object, @ src   OUT, @ desc OUT   

SELECT hr = convert (varbinary (4), @ hr),   Source = @ src, Description = @ desc   

RETURN   @ hr   

END   

RETURN   0        

Необхідно враховувати, що користувач, від імені якого буде запускатися наша процедура, повинен входити в роль sysadmin (це обмеження накладають процедури sp_OACreate, sp_OASetProperty, sp_OAMethod, sp_OADestroy).

протестуємо процедуру sp_RegExpReplace - видалимо з її допомогою з заданої рядки все HTML-теги.

DECLARE @ strOut varchar (8000)

EXEC sp_RegExpReplace 'Це тестовий тест

текст ',

'','<.+?>', @ strOut OUT

SELECT @ strOut

GO

У результаті значенням змінної @ strOut буде рядок "Це тестовий тест текст".

Файли SQL-скриптів додаються: sqlregexp.zip

Список літератури

Для підготовки даної роботи були використані матеріали з сайту http://www.activex.net.ru/