|
Displaying Source Code(s)
|
|
Highlight Word Function
--------------------------------------------------------------------------------
Description : Search for occurances of a keyword in a string and
highlight them, by either bold, italic or boli-italic
<%
' YOU CAN CALL THE FUNCTION IN THE FOLLO
' WING WAYS
mys = "This is a test To find the word you, it will highlight
your, "
w2f = "you"
Response.Write doHighlight(mys, w2f, "bi")
Response.Write "<BR>"
Response.Write doHighlight("This is a test To find the word you,
it will highlight your...", "you", "bi")
%>
<%
Function doHighlight(my_sentence, word_to_highlight, my_fn)
' doHighlight Function
' Description: Search for occurances of
' a keyword in a string and highlight them
' , by either bold, italic or boli-italic
' Inputs: String you want searched, word
' to highlight, and the type of highlight
' to perform.
' Types of highlight functions: b=bold;
' i=italic; bi=bold-italic
' Output: Returns the string with highli
' ghting.
Select Case LCase(my_fn)
Case "b"
my_output = "<B>" & word_to_highlight & "</B>"
doHighlight = Replace(my_sentence, word_to_highlight, my_output)
Case "i"
my_output = "<I>" & word_to_highlight & "</I>"
doHighlight = Replace(my_sentence, word_to_highlight, my_output)
Case "bi"
my_output = "<I><B>" & word_to_highlight & "</B></I>"
doHighlight = Replace(my_sentence, word_to_highlight, my_output)
End Select
End Function
%>
|
|
|
123
Eng