[Resolvido] destacar palavra-chave

[xanburzum 169]

Busca de ocorrências de uma palavra-chave em uma string e destaca, por negrito, itálico ou boli-itálico

Tipos de destacar funções: b = bold; I = italic; bi = negrito-itálico

 

 

<%
       mys = "Este é um teste para descobrir a palavra que você, irá destacar , "
        w2f = "você"
        response.write doHighlight(mys, w2f, "bi")
        response.write "<br>"
        response.write doHighlight("Este é um teste para descobrir a palavra, ele irá destacar ...", "você", "bi")
    %>

 

<%
    Function Highlight(my_sentence, word_to_highlight, my_fn)

       ' Saída: Retorna a string com destaque
        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
    %>