狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

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