USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Quantidade de um caracter dentro de uma string
Karina
não registrado
ENUNCIADA !
Postada em 14/07/2010 15:42 hs   
Boa tarde!
Gostaria de saber se tem como contar quantos espaços existe em uma string no VB6?
Por exemplo, "Ana Paula da Silva", tem 3 espaços, 6 letras "a".. tem um comando para isso?
   
J.Carlos
Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 14/07/2010 16:20 hs            
Não sei se há um comando específico pra isso, mas vc pode fazer uma função:
Private sub Contar()
  dim wString as string, Qtd as Integer, wCarac as string
  wCarac = " "
  Qtd = contaCaracter(wString,wCarac)
  msgbox "Esta string tem " & Qtd & " caracteres iguais ao informado"
end Sub
Private Function ContaCaracter(wString as string, wCaracter as string) as integer
  dim I as integer, wQtd as integer
  for i = 1 to len(wString)
     if mid(wstring,i,1) = wCaracter then
        wqtd = wqtd + 1
     endif
  next 
  ContaCaracter = wqtd
End Function
   
Karina
não registrado
ENUNCIADA !
Postada em 14/07/2010 16:41 hs   
Obrigada, eu sabia dessa função, pensei que tivesse algo mais simples ou um comando como Len.
   
Ravaglio
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/07/2010 22:49 hs            
Vc pode usar este comando
 
Dim P As Long, MaxPos As Long, i As Long
sLine = "Fabio;teste;teste"
P = InStr(sLine, ";")
Retorna  P = 2
 
Espero ter ajudado
   
Diego Velazquez
não registrado
Postada em 19/12/2017 13:35 hs   
Dim Pd As Variant
Pd = Split(<texto que deseja contar leltas >, <qual letra deseja contar>)
<Resultado>= UBound(Pd)
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página