--如果存在則刪除原有函數(shù) 
IF OBJECT_ID(N'dbo.RegexReplace') IS NOT NULL 
 DROP FUNCTION dbo.RegexReplace 
GO 
--開始創(chuàng)建正則替換函數(shù) 
 CREATE FUNCTION dbo.RegexReplace 
( 
 @string VARCHAR(MAX), --被替換的字符串 
 @pattern VARCHAR(255), --替換模板 
 @replacestr VARCHAR(255), --替換后的字符串 
 @IgnoreCase INT = 0 --0區(qū)分大小寫 1不區(qū)分大小寫 
) 
RETURNS VARCHAR(8000) 
AS 
BEGIN 
 DECLARE @objRegex INT, @retstr VARCHAR(8000) 
 --創(chuàng)建對象 
 EXEC sp_OACreate 'VBScript.RegExp', @objRegex OUT 
 --設(shè)置屬性 
 EXEC sp_OASetProperty @objRegex, 'Pattern', @pattern 
 EXEC sp_OASetProperty @objRegex, 'IgnoreCase', @IgnoreCase 
 EXEC sp_OASetProperty @objRegex, 'Global', 1 
 --執(zhí)行 
 EXEC sp_OAMethod @objRegex, 'Replace', @retstr OUT, @string, @replacestr 
 --釋放 
 EXECUTE sp_OADestroy @objRegex 
 RETURN @retstr 
END 
GO 
--保證正常運(yùn)行的話，需要將Ole Automation Procedures選項(xiàng)置為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 
*/ 
--------------------------------------------------