"SITE LEGAL"

[Bart 0]

Tenho uma string e preciso saber quantos caracteres específicos (por exemplo a letra "E") eu tenho dentro dela.Por exemploString: "Arara é um bicho muito legal"Quantas letras "A" temos nesta string? Resposta: 4O VB não tem uma função nativa que trata disso?Eu queria fazer uma função ou algo do tipo que me retornasse esse número.Por exemplo: qtdCaracter(String, "a") -> retornando 4 por exemploValew galera!!!

[kauebranco 0]

Function ContaLetra(texto,letra)Dim QtdLetrasQtdLetras = 0 for i = 1 to len(texto) if mid(texto,i,1) = letra then QtdLetras = QtdLetras + 1 end if nextContaLetra = QtdLetrasEnd Function

[Bart 0]

Valew cara.... Funcionou beleza!

[Buscopan 0]

Isso tem cara de trabalho escolar ... rs ...