Highlight keyword's array

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Highlight keyword's array

Logged in as: Guest

arrSession:exec spGetSession 2,3,3609

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> ASP >> Highlight keyword's array
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Highlight keyword's array - 7/1/2005 6:51:19 AM

gilgalbiblewheel

Posts: 14
Score: 0
Joined: 4/6/2005
From:
Status: offline

I need to highlight the array of the "keyword".

[CODE]<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
Function Highlight(strText, strFind, strBefore, strAfter)
Dim nPos
Dim nLen
Dim nLenAll

nLen = Len(strFind)
nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1

Highlight = strText

If nLen > 0 And Len(Highlight) > 0 Then
nPos = InStr(1, Highlight, strFind, 1)
Do While nPos > 0
Highlight = Left(Highlight, nPos - 1) & _
strBefore & Mid(Highlight, nPos, nLen) & strAfter &_
Mid(Highlight, nPos + nLen)

nPos = InStr(nPos + nLenAll, Highlight, strFind, 1)
Loop
End If
End Function
</SCRIPT>
<%
'OPTION EXPLICIT
Dim strText, strFind

strFind=[COLOR=Red]keyword[/COLOR]
strText=RS("text_data")
strText= Highlight(strText, strFind,"<font color='red'><b>", "</b></font>")

Response.Write strText
%> [/CODE]