Manipular string em VB6


	Fórum
	Visual Basic

Responder

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

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

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)

ae os valores de cada caractere do cpf dicaria assim:

cpfByte(1) = 9

cpfByte(2) = 8

cpfByte(3) = 7

cpfByte(9) = 0

entendeu???

espero 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