--如果存在則刪除原有函數
IF OBJECT_ID(N'dbo.RegexReplace') IS NOT NULL
DROP FUNCTION dbo.RegexReplace
GO
--開始創建正則替換函數
CREATE FUNCTION dbo.RegexReplace
(
@string VARCHAR(MAX), --被替換的字符串
@pattern VARCHAR(255), --替換模板
@replacestr VARCHAR(255), --替換后的字符串
@IgnoreCase INT = 0 --0區分大小寫 1不區分大小寫
)
RETURNS VARCHAR(8000)
AS
BEGIN
DECLARE @objRegex INT, @retstr VARCHAR(8000)
--創建對象
EXEC sp_OACreate 'VBScript.RegExp', @objRegex OUT
--設置屬性
EXEC sp_OASetProperty @objRegex, 'Pattern', @pattern
EXEC sp_OASetProperty @objRegex, 'IgnoreCase', @IgnoreCase
EXEC sp_OASetProperty @objRegex, 'Global', 1
--執行
EXEC sp_OAMethod @objRegex, 'Replace', @retstr OUT, @string, @replacestr
--釋放
EXECUTE sp_OADestroy @objRegex
RETURN @retstr
END
GO
--保證正常運行的話，需要將Ole Automation Procedures選項置為1
EXEC sp_configure 'show advanced options', 1
RECONFIGURE WITH OVERRIDE
EXEC sp_configure 'Ole Automation Procedures', 1
RECONFIGURE WITH OVERRIDE
--2.將姓名倒過來
SELECT dbo.RegexReplace('John Smith', '([a-z]+)\s([a-z]+)', '$2,$1',1)
/*
--------------------------------------
Smith,John
*/
--------------------------------------------------
