CREATE FUNCTION dbo.RegExptest ( 
@source vArchar(), --需要匹配的源字符串 
@regexp VARchar(), --正则表达式 
@ignorecase bIT = --是否区分大小写，默认为false 
) 
RETURNS bit --返回结果-false，-true 
AS 
BEgin 
--（成功）或非零数字（失败），是由OLE 自动化对象返回的hrESULT 的整数值。 
DECLARE @hr integer 
--用于保存返回的对象令牌，以便之后对该对象进行操作 
DECLARE @objRegExp integer DECLARE @objMatches integer 
--保存结果 
DECLARE @results bit 
/* 
创建OLE 对象实例,只有Sysadmin 固定服务器角色的成员才能执行sp_OACreate,并确定机器中有vbScript.RegExp类库 
*/ 
EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT 
IF @hr <> BEGIN 
SET @results = 
RETURN @results 
END 
/* 

Dim regEx,Match,Matches '建立变量。 
Set regEx = New RegExp '建立一般表达式。 
regEx.Pattern= patrn '设置模式。 
regEx.IgnoreCase = True '设置是否区分大小写。 
regEx.Global=True '设置全局可用性。 
set Matches=regEx.Execute(string) '重复匹配集合 
RegExpTest = regEx.Execute(strng) '执行搜索。 
for each match in matches '重复匹配集合 
RetStr=RetStr &"Match found at position " 
RetStr=RetStr&;match.FirstIndex&".Match Value is '" 
RetStr=RetStr&Match.Value&"'."&vbCRLF Next 
RegExpTest=RetStr 
*/ 
EXEC @hr = sp_OASetPRoPErty @objRegExp, 'Pattern', @regexp 
IF @hr <> BEGIN 
SET @results = 
RETURN @results 
END 
EXEC @hr = sp_OASetProperty @objRegExp, 'Global', false 
IF @hr <> BEGIN 
SET @results = 
RETURN @results 
END 
EXEC @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignorecase 
IF @hr <> BEGIN 
SET @results = 
RETURN @results 
END 
--调用对象方法 
EXEC @hr = sp_OAMethod @objRegExp, 'Test', @results OUTPUT, @source 
IF @hr <> BEGIN 
SET @results = 
RETURN @results 
END 
--释放已创建的OLE 对象 
EXEC @hr = sp_OADestroy @objRegExp 
IF @hr <> BEGIN 
SET @results = 
RETURN @results 
END 
RETURN @results 
END 
--打开高级选项
sp_configure 'show advanced options',
reconfigure
--设置选项打开
sp_configure 'Ole Automation Procedures',
reconfigure