日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

     
      CREATE FUNCTION dbo.find_regular_expression
      
(
      
  @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
      
  
      
/*
      
創(chuàng)建 OLE 對(duì)象實(shí)例,只有 sysadmin 固定服務(wù)器角色的成員才能執(zhí)行 sp_OACreate,
     
     
      并確定機(jī)器中有VBScript.RegExp類庫
      
*/
      
  EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
      
  IF @hr <> 0 BEGIN
      
   SET @results = 0
      
   RETURN @results
      
  END
      
/*
      
以下三個(gè)分別是設(shè)置新建對(duì)象的三個(gè)屬性。下面是'VBScript.RegExp'中常用的屬性舉例：
      
     Dim regEx,Match,Matches         '建立變量。
      
     Set regEx = New RegExp         '建立一般表達(dá)式。
      
     regEx.Pattern= patrn         '設(shè)置模式。
      
     regEx.IgnoreCase = True         '設(shè)置是否區(qū)分大小寫。
      
     regEx.Global=True                             '設(shè)置全局可用性。
      
     set Matches=regEx.Execute(string)             '重復(fù)匹配集合
      
     RegExpTest = regEx.Execute(strng)       '執(zhí)行搜索。
      
   for each match in matches                     '重復(fù)匹配集合
      
   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 <> 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