MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    Base de CEPs online

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Base de CEPs online Empty 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.

    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Base de CEPs online Empty 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", "Ç")
    avatar
    jowfs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/04/2012

    Base de CEPs online Empty Re: Base de CEPs online

    Mensagem  jowfs 3/4/2017, 12:54

    O arquivo não está mais disponível no link. Alguém tem uma cópia?
    pcnet
    pcnet
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 302
    Registrado : 16/12/2015

    Base de CEPs online Empty Re: Base de CEPs online

    Mensagem  pcnet 4/4/2017, 21:29

    Boa noite,

    Copie o link e cole no seu navegador.

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

    Cumprimentos
    avatar
    jowfs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/04/2012

    Base de CEPs online Empty Re: Base de CEPs online

    Mensagem  jowfs 26/4/2017, 18:22

    Obrigado!

    Conteúdo patrocinado


    Base de CEPs online Empty Re: Base de CEPs online

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 20:23