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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Manipular string em VB6
André
não registrado
Postada em 06/05/2008 11:19 hs   
Olá pessoal,

Estava querendo saber como faço para manipular strings em VB.No meu caso eu vou inserir um valor em uma InputBox, por exemplo um CPF só que vou inseri-lo como string,depis disso queria saber como faço para pegar cada digito  e transformar em inteiro para poder fazer o calculo.

Valew
     
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 06/05/2008 11:28 hs            
dim i as integer
dim cpf as string
dim cpfbyte as string
cpf="12345678901"
for i =1 to len(cpf)
   cpfByte=mid(cpf,1,i)
   msgbox cpfbyte
next i
   
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 06/05/2008 11:30 hs            
'desculpe, troque dentro do for para ficar assim, ficou trocado o 1 com o i ok
dim i as integer
dim cpf as string
dim cpfbyte as string
cpf="12345678901"
for i =1 to len(cpf)
   cpfByte=mid(cpf,i,1)
   msgbox cpfbyte
next i
   
José Ari
MANAUS
AM - BRASIL
Postada em 06/05/2008 16:53 hs            
Legal Alexandre, mas "se fosse eu" (rsrs) eu faria assim:
 
 
dim i as integer
dim cpf as string
dim cpfbyte() as Byte 'usando Byte porque acho que nao precisa usar uma String
                              'aprendi que quanto menor o valor, menos memoria se exige do sistema...
 
cpf="98765432100"
 
for i =1 to len(cpf)
    redim preserve cpfbyte(i)
    cpfByte(i) = mid(cpf,i,1)
next
 
ae os valores de cada caractere do cpf dicaria assim:
cpfByte(1) = 9
cpfByte(2) = 8
cpfByte(3) = 7
.
.
.
cpfByte(9) = 0
 
entendeu???
 
Emoçõesespero ter contribuido.......
 

================================================================
O Aprendizado é Direito de Todos. O Saber é Privilégio de Poucos.

Começando a estudar VB.NET. Realmente é incrível!!!!

     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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