PEGAR O NUMERO DO ENDERECO

TRINCA 23/03/2010 15:38:34
#337740

Public Function vExtrair(vx As String)
Dim vString As String
Dim vcontador As Long
For vcontador = 1 To Len(vx) Step 1
If IsNumeric(Mid(vx, vcontador, 1)) Then
vString = vString & Mid(vx, vcontador, 1)
End If
Next
vExtrair = vString
End Function

MKING 23/03/2010 15:48:36
#337741 Resposta escolhida

se o endereço vier sempre nesse formato faça isso

Dim endereco() as String

endereco() = Split( [Ô]rua dos programadores que só se ferram , 1525[Ô] , [Ô],[Ô])

msgbox endereco(0)

RICATOM 23/03/2010 18:46:08
#337753

Eu separei os campos: Endereço - numero - complemento.

Ai qdo fui passar a atualização pro cliente, fiz um select /update no cad de cliente, seguindo o que MKing escreveu.

FUTURA 23/03/2010 18:49:47
#337754

isto ricardo, eu ja tenho os campos no cadastro, porém o cliente não utilizava, e qdo coloquei o sistema la, importei de outro banco q era junto, e agora preciso separar.

EDERMIR 23/03/2010 22:41:06
#337773

Imaginando que você importou os dados com o mesmo padrão e que os valores atualizados pelo usuário estão com a mesma formatação:

Wa = split(rs!ENDERECO,[Ô],[Ô])
for Wx = 0 to ubound(Wa)
if val(replace(Wa(Wx),[Ô] [Ô],[Ô][Ô])) <> 0 then
msgbox([Ô]PROVAVELMENTE o número da rua é [Ô] & Wa(Wx))
endif
next Wx

MKING 23/03/2010 23:48:18
#337776

Caro FUTURA, creio que essa seja a melhor solução mesmo, se todo o endereço vier separador por virgula vc joga ele em um array e depois sai distribuindo a determinada posição em cada variavel correspondente
EX.:
Dim endereco() as String

endereco() = Split( [Ô]rua dos programadores que só se ferram , 1525 , apto 1010 , Vila Binaria[Ô] , [Ô],[Ô])

rua = endereco(0)
numero = endereco(1)
complemento = endereco(2)
bairro = endereco(3)