台灣最大程式設計社群網站
線上人數
1092
 
會員總數:245150
討論主題:189053
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 一個代換字串的 Function
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
一個代換字串的 Function
價值 : 0 QP  點閱數:890 回應數:0

樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
用途:如搜尋引擎中,將搜尋出來的資料含有所鍵入 Keyword 的部分改顏色表示

'---------------------------------------------------
'代換大字串中的某小字串顏色
'ChangeTheIncludeWordColor( 要代換的小字串 , 含有小字串的大字串 , 要代換的顏色)

Function ChangeTheIncludeWordColor( thewordtobechangecolor , thecontentwiththeword , thecolortobechange)

thecontentwiththeword=server.htmlencode(thecontentwiththeword)
thewordlen=len(thewordtobechangecolor)
thewordinstr=instr(UCase(thecontentwiththeword),UCase(thewordtobechangecolor))
thewordmark=mid(thecontentwiththeword,thewordinstr,thewordlen)

replaceitem="<font color="""&thecolortobechange&""">"&thewordmark&"</font>"
ChangeTheIncludeWordColor=mid(thecontentwiththeword,1,thewordinstr-1)+replaceitem
thewordinstrno=thewordinstr+thewordlen
thewordinstr=instr(thewordinstrno,UCase(thecontentwiththeword),UCase(thewordtobechangecolor))

if thewordinstr=0 then
ChangeTheIncludeWordColor=ChangeTheIncludeWordColor+mid(thecontentwiththeword,thewordinstrno)
end if

for i=1 to len(thecontentwiththeword)
if not thewordinstr=0 then
ChangeTheIncludeWordColor=ChangeTheIncludeWordColor+mid(thecontentwiththeword,thewordinstrno,thewordinstr-thewordinstrno)
thewordmark=mid(thecontentwiththeword,thewordinstr,thewordlen)
replaceitem="<font color="""&thecolortobechange&""">"&thewordmark&"</font>"
ChangeTheIncludeWordColor=ChangeTheIncludeWordColor+replaceitem

thewordinstrno=thewordinstr+thewordlen
thewordinstr=instr(thewordinstrno,UCase(thecontentwiththeword),UCase(thewordtobechangecolor))
if thewordinstr=0 then
ChangeTheIncludeWordColor=ChangeTheIncludeWordColor+mid(thecontentwiththeword,thewordinstrno)
exit for
end if
end if
next

End Function

本篇文章發表於2002-01-15 00:00
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.