Contar los espacios que hay en una frase
Señores muy buenas noches. Dios los bendiga
Mi pregunta es la siguiente: Como hago para contar los espacios que hay en una frase escrita en un cuadro de texto, por ejemplo:
En la frase "República de Colombia, mi tierra querida", hay 5 espacios. Estos son los que necesito contar le he dado y nada, no he sido capaz.
1 Respuesta
Respuesta de Eduardo Pérez Fernández
1
Puede utilizar la siguiente función, En un módulo copie este código
Public Function fCuentaEspacios(strIn As String) As Integer
On Error GoTo Error_handler
' Cuenta los espacios en una cadena de texto
'Ejemplo:
' fCuentaEspacios("Eduardo perez fernandez")
'Retorna 2
Dim intCount As Integer
Dim intPos As Integer
intPos = InStr(strIn, " ")
Do Until intPos = 0
intCount = intCount + 1
intPos = InStr(intPos + 1, strIn, " ")
Loop
fCuentaEspacios = intCount
Exit_Here:
Exit Function
Error_handler:
MsgBox Err.Number & ": " & Err.Description
Resume Exit_Here
End FunctionEsta función puede contar los espacios, es decir si la llamo como:
¿? FCuentaEspacios("Eduardo Pérez Fernández")
Retorna 2, pero si después de Pérez doy otro espacio obtengo:
¿? FCuentaEspacios("Eduardo Pérez Fernández")
Rertona 3, porque después de Pérez he dado 2 espacios.
Si no hay espacios retorna 0
