Come evidenziare una certa parola all'interno di un testo.

Con questo script cercheremo ed evidenzieremo una stringa all'interno di un testo. Per fare questo utilizzeremo la funzione Replace combinata con un ciclo, in quanto la sola funzione non ci permette di mantenere le maiuscole/minuscole della stringa. Per evidenziare la stringa la faremo diventare rossa e grassetto.

<%

'stringa in cui cercare
   Testo = "sotto la panca la capra campa, sotto la panca la capra crepa."
'stringa da cercare
   Parola = "capra"
'stringa da inserire prima di Parola
   Pre="<b><font color=red>"
'stringa da inserire dopo Parola
   Post="</font></b>"


Function EvidenziaParola(strTesto, strParola, strPre, strPost)
  Dim intPos, intLen, intLenAll
  Dim strTemp
  
  intLen = Len(strParola)
  intLenAll = intLen + Len(strPre) + Len(strPost) + 1

  strTemp = strTesto

  If intLen > 0 And Len(strTemp) > 0 Then
    intPos = InStr(1, strTemp, strParola, 1)
    Do While intPos > 0
      strTemp = Left(strTemp, intPos - 1) & strPre & Mid(strTemp, intPos, intLen) & strPost & Mid(strTemp, intPos + intLen)
      intPos = InStr(intPos + intLenAll, strTemp, strParola, 1)
    Loop
  End If
  
  EvidenziaParola = strTemp
End Function
%>


<%=EvidenziaParola(Testo, Parola, Pre, Post)%> 

auto, php, calcio, scarica, scripts, animali, radio, natura, script, del piero, chat, formula1, senna, free, video, cap, automobili, freeware, incidenti, javascript