número de ocorrências de uma substring

[xanburzum 169]

Contando Número de palavras em uma frase,abaixo, tem uma função muito simples que irá devolver o número de palavras em uma frase.

 

<%
Function WordCount(sInput)
'Declara variavéis 
Dim myWordArray, iWords

'A função Split sInput irá dividir a string em um array e recuperar o número 
de elementos usando o caractere de espaço como o delimitador.
myWordArray = Split(sInput ," ") 
'armazenar a quantidade de palavras em iWords, lembre-se que a função retorna Split um array que é zero 
iWords = Ubound(myWordArray) +1
'Devolve a quantidade de palavras
WordCount=iWords
End Function

'Declara variavéis 
Dim sText, iWordCount

sText = "I really like Codefixer's Polling Software."
'A contagem do número de palavras em nossa string sText 
'Função Wordcount atribui valor à variável iWordCount
iWordCount=WordCount(sText)
'Escrever o número de palavras em nossa string
Response.Write "Existem " & iWordCount & " palavras no " & sText
%>

[Ted k' 126]

esse ai é simples, eu tinha feito um há muito tempo para um jornal aqui da cidade grande, hehe, boa man!!!