如何在Sql Server 中使用正则表达式

如果能在Sql Server中使用正则表达式，一定会对程序编写有很大帮助，那么如何实现呢？

其实Sql Server本身并不提供这样的功能，但我们如果能够通过Sql Server 调用VBScript，那么问题就有解决的可能，这中间我们要先详细了解三个系统级别的存数过程：sp_OACreate ， sp_OASetProperty 和 sp_OAMethod

sp_OACreate
翻阅一下帮助文件不难知道，该存储过程可以帮我们生成一个OLE对象的实例。也就是我们可以通过它来建立一个COM对象和系统进行交互，也就意味着在系统层面上几乎没有什么干不了的事情了，当然也包括坏事情，所以要仔细看一下用户在这个存储过程上的执行权限，小心被坏蛋利用哦。
它的语法如下：
sp_OACreate progid, | clsid, objecttoken OUTPUT [ , context ]

progid: 我们要调用的即将被实例化的程序名称

clsid : 我们要调用的即将被实例化的类的名称

objecttoken OUTPUT ：被生成的对象的句柄或指针，是个整型变量

context ：这是个可选的变量，目的是制定你所创建的对象以什么样的方式执行，它有三个值，可供选择：

1 = In-process (.dll) OLE server only 
4 = Local (.exe) OLE server only
5 = Both in-process and local OLE server allowed

为1，则要求对象在一个ActiveX DLL文件中；
值为4，则要求对象在ActiveX EXE服务器中；
如果是缺省的值5，则可以使用任一自动操作。

一般情况下我们可以使用默认值，即不提供该参数变量。

比如你想在数据库中访问微软的Excel,就可以这样来写：

Declare @Object int

Declare @RetVal int

Exec @RetVal=sp_OACreate 'Excel.Application',

@Object OUTPUT

这样你就得到一个被实例化的Excel对象的指针：@Object

有了这个指针，你当然可以让它为你尽份内之事了。至于如何给它设置属性发布命令，就要使用到另外两个系统存储过程：sp_OASetProperty 和 sp_OAMethod, 单从名字就能对他们的功能猜个八九不离十吧。

ok,简单介绍如下：

sp_OASetProperty 和 sp_OAMethod

sp_OASetProperty objecttoken, propertyname, newvalue [ , index... ]

该存储过程的功能就是设置对象的属性值，对于上面的语法及参数，应该不需要罗嗦了吧。

sp_OAMethod objecttoken, methodname [ , returnvalue OUTPUT ] [ , [ @parametername = ] parameter [ OUTPUT ] [ ...n ] ]

上面这个存储过程就是那临门一脚——执行对象的一个方法，并可能同时返回对象的输出值，为什么说是可能，而不是一定呢？因为你知道，有些对象方法只是做事情，它并不告诉你结果的。

好了，现在看看如何在Sql Server中调用VBScript来使用正则表达式吧，我们可以把你要做的事情封装成一个用户自定义函数，以后可随时调用。

程序如下：
CREATE FUNCTION dbo.regexpMatch
 (
  @source varchar(5000), -- 被检验的字符串
  @regexp varchar(1000), -- 正则表达式的字符串
  @ignorecase bit = 0    -- 忽略大小写
 )
RETURNS bit
AS
 BEGIN
  DECLARE @hr integer
  DECLARE @objRegExp integer
  DECLARE @objMatches integer
  DECLARE @objMatch integer
  DECLARE @count integer
  DECLARE @results bit
  
  EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
  IF @hr <> 0 BEGIN
   SET @results = 0
   RETURN @results
  END
  EXEC @hr = sp_OASetProperty @objRegExp, 'Pattern', @regexp
  IF @hr <> 0 BEGIN
   SET @results = 0
   RETURN @results
  END
  EXEC @hr = sp_OASetProperty @objRegExp, 'Global', false
  IF @hr <> 0 BEGIN
   SET @results = 0
   RETURN @results
  END
  EXEC @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignorecase
  IF @hr <> 0 BEGIN
   SET @results = 0
   RETURN @results
  END 
  EXEC @hr = sp_OAMethod @objRegExp, 'Test', @results OUTPUT, @source
  IF @hr <> 0 BEGIN
   SET @results = 0
   RETURN @results
  END
  EXEC @hr = sp_OADestroy @objRegExp
  IF @hr <> 0 BEGIN
   SET @results = 0
   RETURN @results
  END
 RETURN @results
 END

有没有注意到程序的最后还用了一个sp_OADestroy，目的就是释放掉对象的实例，还内存自由的空间