Verificando o tamnho da palavra.

[paulojr 0]

Olá pessoal estou precisando fazer uma verificação mas estou me enrolando no codigo.tenho o seguinte codigo que pega o texto vindo de um textarea e faz a contagem das palavras.

<%dim strTroca, strTexto, strArray, strNumstrTexto = Request.queryString("teste")strTroca = Replace((strTexto), ".", " ")strArray = Split(Trim(strTroca), " ")strNum = UBound(strArray)+1Response.Write "neste texto existe " & UBound(strArray)+1 & " palavras"%>

Porem preciso contar apenas palavras que tiverem mais que 3 caracteres.Alguem pode me dar uma sugestão de como fazer isso ?Obrigado

[paulojr 0]

O galera da uma força por favor !

[Mário Monteiro 179]

depois de dividir voce tera que varrer o array para identificar quem tem mais de 3 letras...

 

em vez disso

 

<%dim strTroca, strTexto, strArray, strNumstrTexto = Request.queryString("teste")strTroca = Replace((strTexto), ".", " ")strArray = Split(Trim(strTroca), " ")strNum = UBound(strArray)+1Response.Write "neste texto existe " & UBound(strArray)+1 & " palavras"%>

seria

 

<%dim strTroca, strTexto, strArray, strNum, IstrTexto = Request.queryString("teste")strTroca = Replace((strTexto), ".", " ")strArray = Split(Trim(strTroca), " ")strNum = 0FOR I = LBOUND(strArray) TO UBOUND(strArray)	IF LEN(strArray(I)) > 3 THEN		strNum = strNum + 1	END IFNEXTResponse.Write "neste texto existe " & strNum  & " palavras"%>

veja ai

[paulojr 0]

Perfeito Marioufpa, muitissimo obrigado.Salvou minha vida, rsrsrs.ainda to estudando e dou essas tropessadas nestes coisas simples.Valew mesmo ! :natalbiggrin: :natalbiggrin:

[Mário Monteiro 179]

Perfeito Marioufpa, muitissimo obrigado.Salvou minha vida, rsrsrs.ainda to estudando e dou essas tropessadas nestes coisas simples.Valew mesmo ! :natalbiggrin: :natalbiggrin:

de nada tiozinho :natalw00t: