Tayfun
| | Tarih: 12.12.2006, 03:36 Mesaj konusu: Yaptıgımız Arama Motorunda Bulunan Kelimeyi Farklı Renkte Gö | |
| Aranılan kelimeyi renklendir. Google gibi her kelime için farklı renk.
// Comment lı kısım açılırsa farklı renkleri kendi üretir.
Kod: '// Hilite Search Texts v1.0
Function fm_hilite(byval alltext,byval word)
Dim Arrword, i, ArrColorList(15), Color, xx
Arrword = Split(word,",") '// Make an array from wordlist
'// Generate Color List
' For xx = 0 to 15 Step 3
' Color = "DDFF" & String(2,hex(xx))
' ArrColorList(Int(xx/3)) = color
' Next
Dim ArrNewCList, ArrListi
ArrNewCList = Array ("DF0","DFC","9F0","FCF","9FF","FF0","FF9")
For i = 0 to Ubound(Arrword)
word = Trim(Arrword(i))
If Instr(alltext,word) > 0 Then
alltext = Replace(alltext,word,"<span style=""background-color:#" & ArrNewClist(ArrListi mod Ubound(ArrNewCList)) & "; font-weight:bold"">" & word & "</span>")
ArrListi = ArrListi + 1
End If
Next
fm_hilite = alltext
End Function
|
|
