--SQL正則替換函數
代碼如下:
CREATE function dbo.regexReplace
(
@source ntext, --原字串
@regexp varchar(1000), --Regex
@replace varchar(1000), --替換值
@globalReplace bit = 1, --是否是全域替換
@ignoreCase bit = 0 --是否忽略大小寫
)
returnS varchar(1000) AS
begin
declare @hr integer
declare @objRegExp integer
declare @result varchar(5000)
exec @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
IF @hr <> 0 begin
exec @hr = sp_OADestroy @objRegExp
return null
end
exec @hr = sp_OASetProperty @objRegExp, 'Pattern', @regexp
IF @hr <> 0 begin
exec @hr = sp_OADestroy @objRegExp
return null
end
exec @hr = sp_OASetProperty @objRegExp, 'Global', @globalReplace
IF @hr <> 0 begin
exec @hr = sp_OADestroy @objRegExp
return null
end
exec @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignoreCase
IF @hr <> 0 begin
exec @hr = sp_OADestroy @objRegExp
return null
end
exec @hr = sp_OAMethod @objRegExp, 'Replace', @result OUTPUT, @source, @replace
IF @hr <> 0 begin
exec @hr = sp_OADestroy @objRegExp
return null
end
exec @hr = sp_OADestroy @objRegExp
IF @hr <> 0 begin
return null
end
return @result
end
/*
配置對擴充預存程序的支援
Microsoft SQL Server 2005 -> 組態工具 -> 介面區配置器 -> 功能的介面區配置 -> Ole自動化:支援Ole自動化
使用舉例1:
代碼如下:
declare @source nvarchar(4000)
set @source = 'dsafsdf'
select dbo.regexReplace(@source, '<[^>]+>', '', 1, 1)
使用舉例2: (將資料庫欄位中含有<font color='#ff0000'>aaa</font>替換為<font>aaa</font>)
Select id,dbo.regexReplace(欄位,'<font([^>])*>','<font>',1,0) AS 別名 From 表
*/