Come trovare il numero di volte che una parola si ripete in una stringa.

Per contare le occorrenze di una parola in una particolare stringa è sufficiente utilizzare l'oggetto RegExp, disponibile con VBS 5.x. In particolare, attraverso la proprietà Count dell'oggetto Matches è possibile contare le occorrenze trovate, come nello script di esempio:

<%
'qui impostiamo la stringa
stringa = "a b c d e f g h i a a b c"
'qui impostiamo la parola da ricercare nella stringa
parola="a"

Function Occorrenze(testo, ricerca)
  Set RegEx = New RegExp 
  RegEx.Pattern = ricerca
  RegEx.Global = True 
  RegEx.IgnoreCase = True 
  Set Matches = RegEx.Execute(testo)
  Occorrenze = Matches.Count
  Set Matches = Nothing
  Set RegEx = Nothing
End Function



TotOccorrenze=Occorrenze(stringa, parola)
Response.Write "la parola: <b>" & parola & "</b>" 
Response.Write " è contenuta " & TotOccorrenze
Response.Write " volta/e nella stringa: <b>" & stringa & "</b>"
%>

scarica, formula1, van basten, script, download, filmati, risorse per webmaster, free, javascript, calcio, radio, cap, lamborghini, ferrari, automobili, cerca lavoro, immagini, visual basic, auto, porsche