Contar caracteres en una cadena
4880
post-template-default,single,single-post,postid-4880,single-format-standard,ajax_fade,page_not_loaded,,vertical_menu_enabled,side_area_uncovered_from_content,qode-theme-ver-11.0,qode-theme-bridge,wpb-js-composer js-comp-ver-5.0.1,vc_responsive

Contar caracteres en una cadena

Contar caracteres en una cadena

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

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

Referencia: Foro VB-Mundo

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

Deja un comentario

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies
Ver botones
Ocultar botones