亚洲乱色熟女一区二区三区丝袜,天堂√中文最新版在线,亚洲精品乱码久久久久久蜜桃图片,香蕉久久久久久av成人,欧美丰满熟妇bbb久久久

CREATE FUNCTION dbo.find_regular_expression_r
(
@source varchar(5000),   --需要匹配的源字符串
@regexp varchar(1000),  --正則表達(dá)式
@ignorecase bit = 0  --是否區(qū)分大小寫(xiě)，默認(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 編輯過(guò)