jessuss
15 de Mayo del 2003

Hola, necesito una funcion, si la conoceis, que me pueda decir cuantas veces se repite una letra o caracter en una palabra, no puedo depurar esa palabra ya que perdiria mucho tiempo, el volumen de palabras que pueden llegar a tratar es muy elevado.

Gracias

Heber
15 de Mayo del 2003

Leí tu solicitud y me puse a escribir la FUNCIÓN aquí mismo.
Pero cuando casi la termino, me dí cuenta que Teoricamente estaba bien hecha( eso creo, ya que no tengo VB aquí para probarla), que hay formas mucho mas sencillas de hacerlo. Si me contestas a mi correo, te doy una función que hice hace tiempo que utiliza "INSTR"y es mucho más rápida y sencilla.

Dears
15 de Mayo del 2003

Function ChrCount(Cadena, Caracter)
n = 0
Do
i = InStr(i + 1, Cadena, Caracter)
If i <> 0 Then n = n + 1 Else Exit Do
Loop
ChrCount = n
End Function
Sub Main()
aa = ChrCount("12345367", "3")
MsgBox (aa)
End
End Sub