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
|
