[Resolvido] Inserindo caractere no meio de uma string

[Rogério Orlando 0]

Boa Noite.

 

Tenho uma aplicação que busca num banco os dados de endereço, onde o CEP está salvo, de maneira continua, com os oito caracteres (03552080), porém em meu form o campo está formatado para ser apresentado como (05252-080).

Existe uma forma de inserir o hífen na string? obrigado.

 

PS. Tenho a necessidade de incluir o hifen pois já existem centenas de registros gravados desta maneira.

[scorpio 7]

Format(1234567, "#####-###")

[Rogério Orlando 0]

Valeu scorpio, deu certo, eu já havia feito desta forma, porém não usei o "#" e meu campo era maskedit.

Troquei o campo por um normal e tudo ficou legal.

 

Obrigado.

[Rogério Orlando 0]

Scorpio, vacilei.

 

Porém o CEP é 03535080 e ele retorna 3535-080, desta forma quando for buscar o número para apresemtar vai dar erro.

 

 

Tem como obrigar a apresentar o "0" do início.

 

Meu código estava assim:

        Formatado = DBCEP.Columns(4)
        txtCep.Text = Format(Formatado, "#####-###")

[scorpio 7]

Basta colocar um zero na frente.

Format(2154, "0####-###")

[Rogério Orlando 0]

Tudo bem, mas e quando não for zero "0".

 

eu tentei e ele substitui o numero que deveria aparecer.

 

Format(13298999, "0####-###"), retornaria 03298-999.

 

tens sugestão?

 

Valeu.

[Rogério Orlando 0]

Tudo resolvido, eu estava utilizando o coringa errado "#".

 

Deveria utilizar o "@", com ele tudo deu certo.

 

Valeu e fui.