91网首页-91网页版-91网在线观看-91网站免费观看-91网站永久视频-91网站在线播放

CREATE FUNCTION dbo.find_regular_expression_r
(
@source varchar(5000),   --需要匹配的源字符串
@regexp varchar(1000),  --正則表達(dá)式
@ignorecase bit = 0  --是否區(qū)分大小寫，默認(rèn)為false
)
RETURNS bit  --返回結(jié)果0-false，1-true
AS
BEGIN
--0（成功）或非零數(shù)字（失敗），是由 OLE 自動(dòng)化對(duì)象返回的 HRESULT 的整數(shù)值。
DECLARE @hr integer
--用于保存返回的對(duì)象令牌，以便之后對(duì)該對(duì)象進(jìn)行操作
DECLARE @objRegExp integer   DECLARE @objMatches integer
--保存結(jié)果
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
--調(diào)用對(duì)象方法
EXEC @hr = sp_OAMethod @objRegExp, 'Test', @results OUTPUT, @source
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
--釋放已創(chuàng)建的 OLE 對(duì)象
EXEC @hr = sp_OADestroy @objRegExp
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
RETURN @results
END

該文章在 2010/12/15 0:07:19 編輯過