實現搜尋結果的關鍵詞變色標註的程式

來源:互聯網
上載者:User
程式


<%
' 以前寫全文檢索索引程式的時候寫的.
' 原創 by 飛鳥@dev-club.com
' Email: flybird@dev-club.com
' ie5.5 指令碼引擎 required

   dim patern
   dim found
  
   dim str
   dim result
  
   patern="(a)|(b)"
   str=" A dog fall in love with a cat. Can you believe?"
   result=""  
   call getMatchText(str,result,false)
   Response.Write result

   sub getMatchText(byref str,byref result,isNeedTrunc)
     'on error resume next
     Dim regEx, Match, Matches
     dim tStr
     Set regEx = New RegExp     ' 建立Regex。    
     regEx.Pattern = (patern)  ' 設定模式。
     regEx.IgnoreCase = True     ' 設定是否區分字元大小寫。
     regEx.Global = True     ' 設定全域可用性。
     Set Matches = regEx.Execute(str)  ' 執行搜尋。  
     if err.number<>0 then
       response.write "錯誤1:" & err.description
       err.clear
       exit sub
     end if
     if matches.count <>0 then
       dim startIndex      
       dim myMatchValue
       startIndex=1
       for each match in matches
         if (instr(str,match.value)>0) then
           if instr(str,match.value)-50 >0 then
             startIndex=instr(str,match.value)-50
           else
             startIndex=1
           end if
           myMatchValue=match.value
           exit for
         end if
       next
       if isNeedTrunc then
         result= (mid(str,startIndex,strLength(myMatchValue)+100))
       else
         result= (str)  
       end if
       for each match in matches
         if not(instr(result,"<font color=red>" & match.value & "</font>")>0) then
           result=replace(result,match.value,"<font color=red>" & match.value & "</font>" )
         end if
       next
       found=true
     else
       found=false
     end if  
     set regEx=nothing
   end sub
  
%>




相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。