日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

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 自動化對象返回的 HRESULT 的整數(shù)值。
DECLARE @hr integer
--用于保存返回的對象令牌，以便之后對該對象進行操作
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)用對象方法
EXEC @hr = sp_OAMethod @objRegExp, 'Test', @results OUTPUT, @source
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
--釋放已創(chuàng)建的 OLE 對象
EXEC @hr = sp_OADestroy @objRegExp
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
RETURN @results
END

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