Converter campos sem mascara

[GuilhermeTI 0]

Oi pessoal tudo bem entao eu gostaria de saber como que eu converto um campo que esta no banco de dados no campo cep assim = 03817060

para 03817-060 em tempo de execução pq a mascara do objeto CEP nao ta aceitando valores sem mascara eu queria converter de 03817060 para 03817-060 !!

 

 

obs: tentei o replace mas nao sei ADCIONAR o caracter "-" soh sei substituir por favor me ajudem é urgente!

[scorpio 7]

Procure pela função Mid. Com ela voc~e poderáfazer isso.

[GuilhermeTI 0]

o MID soh encontra um valor mas nao adiciona ele ! nao consegui com o MID

[scorpio 7]

O MID não encontra valor algum. Ele serve para pegar um pedaço da string.

 

Mid("GuilhermeTI",1,4)

'Retorna 'Guil'

 

Mid("GuilhermeTI",5,3)

'Retorna 'her'

 

Tenta denovo.

[Claudio Neto 3]

Usando o mid duas vezes você pode pegar a primeira parte e a segunda separadas. Tendo essas duas partes você consegue montar sua string da forma que quiser adicionando outros caracteres no meio.

[GuilhermeTI 0]

OBRIGADO ae gente tudo bem soh que eu quero ADICIONAR no caracter "-" entre os numeros pq no banco de dados fala que esta assim o cep 03817060 e que nao pode colocar na mascara do vb _____-___

 

Mid("GuilhermeTI",1,4) -> na minha concepção o MID nao deixa de encontrar uma parte de uma string e eu acho que MID vem de MIDDLE (traduzindo meio) pq existe o left (que pega da esquerda pra direita) o RIGHT(que pega da direita para esquerda) eo MID que pega uma parte !

'Retorna 'Guil'

 

Mid("GuilhermeTI",5,3)

'Retorna 'her'

 

tem um comando tipo assim????

 

ADD(Mid("GuilhermeTI",1,4), "-",Mid("GuilhermeTI",5,3))

 

?????????????

[scorpio 7]

MsgBox Mid("GuilhermeTI",1,4) & "-" & Mid("GuilhermeTI",5,3)

??

[GuilhermeTI 0]

eu quero saber se tem alguma função que ADICIONA um caracter entre uma string e outra e depois armazene em um objeto ou em variavel !

[scorpio 7]

eu quero saber se tem alguma função que ADICIONA um caracter entre uma string e outra e depois armazene em um objeto ou em variavel !

Não.

 

Sinceramente não estou entendendo.

Você não quer colocar o hífen no meio do CEP?

Executou o código que postei? Viu o que retornou?

De novo (agora com o CEP):

Dim CEP_Formatado as String
CEP_Formatado = Mid("03817060", 1, 5) & "-" & Mid("03817060", 6, 3)

 

Imagino que isso abaixo, deve retornar Guil-her

ADD(Mid("GuilhermeTI",1,4), "-",Mid("GuilhermeTI",5,3))

Então você pode usar a função ADD:

Public Function ADD(str1 as String, str2 As String, str3 As String)
	ADD =  str1 & str2 & str3
End Function

 

 

Se não é isso explica melhor, pois é isso que estamos entendo.