程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> asp高亮字符串中的關鍵字

asp高亮字符串中的關鍵字

編輯:ASP技巧
'==========================================================
'函數名:Highlight
'作  用:標記高亮關鍵字,不區分大小寫
'參  數:strContent -----字符串
'   keyWord -----關鍵字
'返回值:高亮字符串中的關鍵字
'==========================================================
Function Highlight(strContent,keyWord)
 Dim RegEx
 Set RegEx=new RegExp
 RegEx.IgnoreCase =True '不區分大小寫
 RegEx.Global=True
 Dim ArrayKeyWord,i
 ArrayKeyword = Split(keyWord," ")'用空格隔開的多關鍵字
 For i=0 To Ubound(ArrayKeyWord)
  RegEx.Pattern="("&ArrayKeyWord(i)&")"
  strContent=RegEx.Replace(strContent,"<font color=red>$1</font>" )
 Next
 Set RegEx=Nothing
 Highlight=strContent
End Function

 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved