PEGAR NUMERO DO ENDERECO

LIZA 26/09/2012 11:18:01
#410522
amigos, como posso montar uma rotina que pegue apenas os numeros do endereço, preciso pegar para passar para outro campo, por ex:

rua jose da silva, 950
avenida 45 , 1280
rua presidente castelo, 987

pensei em ler o campo de direita para a esquerda até a virgula, caso não tenha virgula, e comece com numero à direita, ler eqto for numero......alguma dica de como aplicar um comando ?
MARCELO.TREZE 26/09/2012 11:20:50
#410523 Resposta escolhida
assim

Dim Endereco() As String
Endreco = Split(txtEndereco.Text, [Ô],[Ô])
txtEndreco.Text = Endereco(0)
txtNumero.Text = Endereco(1)
LIZA 26/09/2012 11:50:23
#410534
nossa que pratico...vou testar.......testei, em alguns casos não tenha virgula, endereço incompleto, não vou ter o endereco(1), só o (0), da pra tratar essa string ?, ou jogar no resume next seria a solução ??
LIZA 26/09/2012 11:55:48
#410536
tudo certo, perfeito...
ALEVALE 26/09/2012 11:56:07
#410537
Se não tiver a virgula é porque vai ter somente o endereço ?
Se sim você verificar antes e nem cai no split, já atualiza o campo com o endereço.

if instr(txtEndereco.text,[Ô],[Ô])= true then
Dim Endereco() As String
Endreco = Split(txtEndereco.Text, [Ô],[Ô])
txtEndreco.Text = Endereco(0)
txtNumero.Text = Endereco(1)
Else
txtEndereco.text=txtEndereco.tex
Endif
Tópico encerrado , respostas não são mais permitidas
Voltar