... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Contar espaços de uma frase

Usuário Ronaldo:

Boa Tarde.

Existe alguma função através da qual eu possa contar os espaços de uma determinada frase?

Ex. "Eu amo o MSAccess"

A função me daria como resultado 3.

Grato.

Suporte:

Ronaldo, copie a função proposta para um módulo global:

Public Function fncContaEspaços(str As String)
Dim j&, k%
For j = 1 To Len(str)
    If Asc(Mid(str, j, 1)) = 32 Then
        k = k + 1
    End If
Next
fncContaEspaços = k
End Function

Agora é só usar a função:

fncContaEspaços("Eu amo o MSAccess") :::> 3

Usuário Ronaldo:

Não entendi Avelino!

Veja como quero usar.

Dim strSerie as String
If espaços de strSerie = 1 then ´Se os espaços de strSerie for igual a 1 então...
    strSerie = strSerie '...strSerie é igual a quantidade total de caracteres
else 'Se não...
   '...strSerie é igual a quantidade total de caracteres menos 1.
   strSerie = Left(strSerie,Len(strSerie)-1) 
End if

Quero contar os espaços de strSerie.  Onde e como uso a função?

Grato.

Suporte:

Ronaldo, veja como é simples:

Dim strSerie as String
If fncContaEspaços(strSerie) = 1 then 
    strSerie = strSerie 
else 
   strSerie = Left(strSerie,Len(strSerie)-1) 
End if

Usuário Ronaldo:

Excelente, Avelino!

Obrigado.

 


 

 


Não há comentário

Envie seu comentário: