【www.bbyears.com--正则表达式】
建立正则替换函数,利用了OLE对象,以下是函数代码:
代码如下
--如果存在则删除原有函数
IF OBJECT_ID(N'dbo.RegexReplace')ISNOTNULL
DROPFUNCTIONdbo.RegexReplace
GO
--开始创建正则替换函数
CREATEFUNCTIONdbo.RegexReplace
(
@stringVARCHAR(MAX),--被替换的字符串
@patternVARCHAR(255),--替换模板
@replacestrVARCHAR(255),--替换后的字符串
@IgnoreCaseINT= 0--0区分大小写 1不区分大小写
)
RETURNSVARCHAR(8000)
AS
BEGIN
DECLARE@objRegexINT, @retstrVARCHAR(8000)
--创建对象
EXECsp_OACreate'VBScript.RegExp', @objRegexOUT
--设置属性
EXECsp_OASetProperty @objRegex,'Pattern', @pattern
EXECsp_OASetProperty @objRegex,'IgnoreCase', @IgnoreCase
EXECsp_OASetProperty @objRegex,'Global', 1
--执行
EXECsp_OAMethod @objRegex,'Replace', @retstrOUT, @string, @replacestr
--释放
EXECUTEsp_OADestroy @objRegex
RETURN@retstr
END
GO
--保证正常运行的话,需要将Ole Automation Procedures选项置为1
EXECsp_configure'show advanced options', 1
RECONFIGUREWITHOVERRIDE
EXECsp_configure'Ole Automation Procedures', 1
RECONFIGUREWITHOVERRIDE
代码如下
--2.将姓名倒过来
SELECTdbo.RegexReplace('John Smith','([a-z]+)\s([a-z]+)','$2,$1',1)
/*
--------------------------------------
Smith,John
*/
--------------------------------------------------
只有对写程序充满热情,才能写出好的程序!