База знаний студента. Реферат, курсовая, контрольная, диплом на заказ

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