Contar caracteres en una cadena

Rutina que permite contar las apariciones de una cadena dentro de otra.

[VB]
Public Function CuentaPalabras(Texto As String, Palabra As String) As Long
Dim wptr As Long
Dim count As Long
wptr = InStr(Texto, Palabra)
Do Until wptr = 0
count = count + 1
wptr = InStr(wptr + 1, Texto, Palabra)
Loop
CuentaPalabras = count
End Function
[/VB]

Referencia: Foro VB-Mundo

1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)
Cargando…

Deja un comentario