数据库正则函数.txt

1.创建函数
USE [BusinessEnglish]
GO
/****** 对象:  UserDefinedFunction [dbo].[reg]    脚本日期: 07/05/2010 15:05:39 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 create  FUNCTION [dbo].[reg]   
 (   
  @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