Menu













Yehpee.com cerca l'azienda e promuovi il made in italy

    Evidenziare una parola in un testo

    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

Usiamo i cookies per rendere possibile il corretto funzionamento del sito web per ogni utente. Utilizzando il nostro sito, accetti le nostre modalità di utilizzo dei cookies.
Privacy e cookie policy