SQL2005CLR函数扩展-正则表达式

    用过Oracle的人都知道Oracle有四个正则表达函数REGEXP_LIKE、REGEXP_INSTR、REGEXP_SUBSTR、和EGEXP_REPLACE，而SQLServer却无法完全实现上面的功能。以前我们知道用sp_OAxxx系列函数来调用js组建实现正则，现在我们可以通过CLR扩展来借助.Net实现。

 

    ※ 代码很简单，就是封装一下System.Text.RegularExpressions.Regex到SQLProject当中。我们可以用下面15行代码完成上述的四个函数中的最常用的两个REGEXP_LIKE和EGEXP_REPLACE。

 

 

 

using System;

using System.Data.SqlTypes;

public partial class RegExp

{

    [Microsoft.SqlServer.Server.SqlFunction ]

    public static SqlBoolean RegExp_Like(SqlString input,SqlString pattern)

    {

        if (input.IsNull || pattern.IsNull) return false ;

        return System.Text.RegularExpressions.Regex .IsMatch(input.Value, pattern.Value);

    }

    [Microsoft.SqlServer.Server.SqlFunction ]

    public static SqlString RegExp_Replace(SqlString input,SqlString pattern,SqlString replacement)

    {

        if (input.IsNull || pattern.IsNull || replacement.IsNull) return input;

        return new System.Text.RegularExpressions.Regex (pattern.Value).Replace(input.Value, replacement.Value);

    }

};

 

  ※ 把上述的代码编译为SQLCLR_RegExp.dll，然后找一台服务器发布，我们这里发布到测试数据库sqlclr中。发布代码如下，比较简单，我就不写注释了，大致流程就是启用clr然后注册assembly，最后申明函数。

create database sqlclr

go

use sqlclr

go

exec sp_configure 'clr enabled' , '1'

go

reconfigure ;

exec sp_configure 'show advanced options' , '1' ;

go

 

ALTER DATABASE sqlclr SET TRUSTWORTHY On

  go

CREATE ASSEMBLY SqlClr_RegEx FROM 'E:/sqlclrdata/SQLCLR_RegExp.dll' WITH PERMISSION_SET = UnSAFE;

--

go

CREATE FUNCTION dbo. ufn_RegExp_Like 

(  

    @input  nvarchar ( max ),

    @pattern  nvarchar ( 4000)

)    

RETURNS bit

AS EXTERNAL NAME SqlClr_RegEx. RegExp. RegExp_Like

 

go

CREATE FUNCTION dbo. ufn_RegExp_Replace 

(  

    @input  nvarchar ( max ),

    @pattern  nvarchar ( 4000),

    @replacement nvarchar ( 4000)

)    

RETURNS   nvarchar ( max )

AS EXTERNAL NAME SqlClr_RegEx. RegExp. RegExp_Replace

※ 这样我们就有两个处理正则表达式的函数 ufn_RegExp_Like和 ufn_RegExp_Replace ，下面做一些测试，比如邮箱格式的检查和数字的替换。

set nocount on

declare @t table ( teststring varchar ( 50))

insert into @t select ' 上海市南京路号弄号 '

insert into @t select '[email protected]'

insert into @t select ' 剪刀 @msn.com'

insert into @t select 'fdf98s'

 

-- 获取合法邮箱

select * from @t

where dbo. ufn_RegExp_Like( teststring, '/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)*' )> 0

/*

teststring

--------------------------------------------------

[email protected]

剪刀 @msn.com

*/

 

 

-- 替换数字

select dbo. ufn_RegExp_Replace( teststring, '[/d*$]' , '*' ) as newstring from @t

/*

newstring

-------------------------------------------------

上海市南京路 *** 号 * 弄 * 号

[email protected]

剪刀 @msn.com

fdf**s

*/

 

set nocount off