Base de CEPs online

criquio 22/6/2010, 18:49

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº1

Base de CEPs online

Mensagem criquio 22/6/2010, 18:49

Deixo aqui um exemplo que busca online o cep digitado na pesquisa e exibe rua, bairro, cidade e Estado.
Como o sistema traz os nomes em uma codificação diferente, fazendo com que as letras acentudas venha como símbolos do tipo %E1 ou %DA e por aí afora, eu coloquei a função "Replace" como abaixo:

Me.End = Replace(Me.End, "%E1", "á")
Me.End = Replace(Me.End, "%E2", "â")
Me.End = Replace(Me.End, "%E3", "ã")
Me.End = Replace(Me.End, "%E7", "ç")
Me.End = Replace(Me.End, "%E9", "é")
Me.End = Replace(Me.End, "%EA", "ê")
Me.End = Replace(Me.End, "%ED", "í")
Me.End = Replace(Me.End, "%F3", "ó")
Me.End = Replace(Me.End, "%F4", "ô")
Me.End = Replace(Me.End, "%F5", "õ")
Me.End = Replace(Me.End, "%FA", "ú")

Eu pesquisei vários endereços para ver como as letras acentuadas eram apresentadas para poder colocar o Replace, mas deve ter ainda acentos que eu não encontrei para poder substituir, tais como ü, ö, ï, ë, pois não conheço os equivalentes nas duas codificações. Se alguem encontrar mais símbolos assim, favor fazer as implementações ou postar aqui para que possamos alterar.
Ou se tiver um jeito de declarar a codificação UTF-8 no vba do formulário, seria ainda melhor.
Eu tentei encontrar uma maneira mas não obtive sucesso. Se alguem souber, favor implementar ou dizer como faz.
Tambem tentei achar a codificação que faz os acentos virarem esses símbolos mas tambem não encontrei. Se alguem souber ficaria grato de informar para eu ver a lista de caracteres.

Link para download: http://dl.dropbox.com/u/5454503/CEPonLine.mdb

Link: dropbox.com/s/gcp3lmbwjvf442a/CEP_onLine_Criquio.zip?dl=1

Última edição por criquio em 22/6/2010, 21:30, editado 1 vez(es)

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

soncan 11/12/2011, 21:31

soncan

soncan: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 48
Registrado : 11/07/2011

Mensagem nº2

codigos acentuacao

Mensagem soncan 11/12/2011, 21:31

códigos completos do replace
Me.End = Replace(Me.End, "%C1", "Á")
Me.End = Replace(Me.End, "%E1", "á")
Me.End = Replace(Me.End, "%E2", "â")
Me.End = Replace(Me.End, "%E3", "ã")
Me.End = Replace(Me.End, "%E7", "ç")
Me.End = Replace(Me.End, "%E9", "é")
Me.End = Replace(Me.End, "%EA", "ê")
Me.End = Replace(Me.End, "%ED", "í")
Me.End = Replace(Me.End, "%F3", "ó")
Me.End = Replace(Me.End, "%F4", "ô")
Me.End = Replace(Me.End, "%F5", "õ")
Me.End = Replace(Me.End, "%FA", "ú")
Me.End = Replace(Me.End, "%C2", "Â")
Me.End = Replace(Me.End, "%C3", "Ã")
Me.End = Replace(Me.End, "%C9", "É")
Me.End = Replace(Me.End, "%CD", "Í")
Me.End = Replace(Me.End, "%D3", "Ó")
Me.End = Replace(Me.End, "%D4", "Ô")
Me.End = Replace(Me.End, "%D5", "Õ")
Me.End = Replace(Me.End, "%DA", "Ú")
Me.End = Replace(Me.End, "%DC", "Ü")
Me.End = Replace(Me.End, "%FC", "ü")
Me.End = Replace(Me.End, "%C7", "Ç")

Me.Bairro = Replace(Me.End, "%C1", "Á")
Me.Bairro = Replace(Me.End, "%E1", "á")
Me.Bairro = Replace(Me.End, "%E2", "â")
Me.Bairro = Replace(Me.End, "%E3", "ã")
Me.Bairro = Replace(Me.End, "%E7", "ç")
Me.Bairro = Replace(Me.End, "%E9", "é")
Me.Bairro = Replace(Me.End, "%EA", "ê")
Me.Bairro = Replace(Me.End, "%ED", "í")
Me.Bairro = Replace(Me.End, "%F3", "ó")
Me.Bairro = Replace(Me.End, "%F4", "ô")
Me.Bairro = Replace(Me.End, "%F5", "õ")
Me.Bairro = Replace(Me.End, "%FA", "ú")
Me.Bairro = Replace(Me.End, "%C2", "Â")
Me.Bairro = Replace(Me.End, "%C3", "Ã")
Me.Bairro = Replace(Me.End, "%C9", "É")
Me.Bairro = Replace(Me.End, "%CD", "Í")
Me.Bairro = Replace(Me.End, "%D3", "Ó")
Me.Bairro = Replace(Me.End, "%D4", "Ô")
Me.Bairro = Replace(Me.End, "%D5", "Õ")
Me.Bairro = Replace(Me.End, "%DA", "Ú")
Me.Bairro = Replace(Me.End, "%DC", "Ü")
Me.Bairro = Replace(Me.End, "%FC", "ü")
Me.Bairro = Replace(Me.End, "%C7", "Ç")

Me.Cidade = Replace(Me.End, "%C1", "Á")
Me.Cidade = Replace(Me.End, "%E1", "á")
Me.Cidade = Replace(Me.End, "%E2", "â")
Me.Cidade = Replace(Me.End, "%E3", "ã")
Me.Cidade = Replace(Me.End, "%E7", "ç")
Me.Cidade = Replace(Me.End, "%E9", "é")
Me.Cidade = Replace(Me.End, "%EA", "ê")
Me.Cidade = Replace(Me.End, "%ED", "í")
Me.Cidade = Replace(Me.End, "%F3", "ó")
Me.Cidade = Replace(Me.End, "%F4", "ô")
Me.Cidade = Replace(Me.End, "%F5", "õ")
Me.Cidade = Replace(Me.End, "%FA", "ú")
Me.Cidade = Replace(Me.End, "%C2", "Â")
Me.Cidade = Replace(Me.End, "%C3", "Ã")
Me.Cidade = Replace(Me.End, "%C9", "É")
Me.Cidade = Replace(Me.End, "%CD", "Í")
Me.Cidade = Replace(Me.End, "%D3", "Ó")
Me.Cidade = Replace(Me.End, "%D4", "Ô")
Me.Cidade = Replace(Me.End, "%D5", "Õ")
Me.Cidade = Replace(Me.End, "%DA", "Ú")
Me.Cidade = Replace(Me.End, "%DC", "Ü")
Me.Cidade = Replace(Me.End, "%FC", "ü")
Me.Cidade = Replace(Me.End, "%C7", "Ç")