Evidenziare un testo nei risultati

Come evidenziare un testo nei risultati di una ricerca con le regular expression.

ecco il codice... è molto semplice basta impostare quale parola o frase si vuole evidenziare all'interno del testo.

<%
Function Evidenzia(testo, ricerca)
  Set RegEx = New RegExp 
  RegEx.Pattern = ricerca
  RegEx.Global = True 
  RegEx.IgnoreCase = True 

  Evidenzia = RegEx.Replace(testo, "<font color=""red"">" & ricerca & "</font>")

  Set RegEx = Nothing
End Function



stringa = "Questa è una semplice stringa nella quale evidenzieremo delle parole."
Response.Write( Evidenzia(stringa, "stringa") )
%>

formula1, shumacher, bugatti, visual basic, filmati, del piero, immagini, pele, php, cap, ferrari, programmazione, meteo, maradona, incidenti, foto, video, free, programmare, download