[Resolvido] VB6 - Acrescentar 000

[Antenor 0]

Caros,

 

Solicito gentilmente e desde já agradeço por uma ajuda no caso abaixo:

Como faço para validar um determinado campo na hora de exportar um arquivo para .txt no VB6? Por ex., se o cliente selecionado na hora de exportar o lote possui cnpj (14 dígitos) acrescenta o número 2 na frente, agora se o cliente selecionado possui cpf (11 dígitos) acrescenta três zeros na frente do cpf para totalizar 14 dígitos e acrescenta na frente dos três zeros o número 1.

 

Muito obrigado.

[Claudio Neto 3]

Olá Antenor.

 

Para comparar a quantidade de casas de uma string, você pode usar a função len.

Exemplo:

 

len("brasil") = 6

len("maçã") = 4

len("pacatatu") = 8

 

Então você pode montar um if e comparar a quantidade de dígitos que que contém na sua textbox.

 

if len(text1.text) = 12 then

 

Sabendo a quantidade de casas que contém sua textbox fica fácil, é só inserir mais caracteres na sua string.

Exemplo:

 

txtCPF.text = "33366699912"

CPF = "1000" & txtCPF

 

CPF = "100033366699912"

 

Compreende?

 

Tendo dúvidas poste ai.

[Antenor 0]

Obrigado Claudio Neto, como sempre, muito gentil.

 

[]´s

 

Olá Antenor.

 

Para comparar a quantidade de casas de uma string, você pode usar a função len.

Exemplo:

 

len("brasil") = 6

len("maçã") = 4

len("pacatatu") = 8

 

Então você pode montar um if e comparar a quantidade de dígitos que que contém na sua textbox.

 

if len(text1.text) = 12 then

 

Sabendo a quantidade de casas que contém sua textbox fica fácil, é só inserir mais caracteres na sua string.

Exemplo:

 

txtCPF.text = "33366699912"

CPF = "1000" & txtCPF

 

CPF = "100033366699912"

 

Compreende?

 

Tendo dúvidas poste ai.