建立正则替换函数,利用了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 */ -------------------------------------------------- |
只有对写程序充满热情,才能写出好的程序!