Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

Função de busca de Endereço pelo CEP

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Desenvolvido para ajaxbox.com.br, utilizando WebService de CEP da republicavirtual.com.br

 

<%  
   function busca_cep( cep )  
       response.Charset="utf-8"

       url = "http://republicavirtual.com.br/web_cep.php?cep="& request.QueryString("CEPLogin") &"&formato=query_string"  

       set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")   
       xmlhttp.open "GET", url, false   
       xmlhttp.send ""  

       xmlhttp_resultado = xmlhttp.responseText   
       set xmlhttp = nothing   

       arr_resultado = split( xmlhttp_resultado, "&" )  

       dim resultado(7)  
       for i = lbound( arr_resultado ) to ubound( arr_resultado )  

           resultado( i ) = arr_resultado( i )  

       next  

       arr = split( join( resultado, "=" ), "=" )  

       dim arr_2(14)  
       for i = lbound( arr ) to ubound( arr )  

           arr_2( i ) = replace( arr( i ), "+", " " )  

       next      

       busca_cep = arr_2  
   end function  

    '   
    ' Exemplo de utilização    
    '    

    'Vamos buscar o CEP 90020022    
   resultado = busca_cep( "90020022" )  

   select case resultado( 2 )  

       case "2"  
       texto = " "&_  
            "Cidade com logradouro único" &_   
            "<b>Cidade: </b> "&resultado( 8 ) &" "&_  
            "<b>UF: </b> "&resultado( 5 )  


       case "1"  
       texto = " "&_  
            "Cidade com logradouro completo "&_  
            "<b>Tipo de Logradouro: </b> "&resultado( 12 ) &"<br>"&_  
            "<b>Logradouro: </b> "&resultado( 14 ) &"<br>"&_  
            "<b>Bairro: </b> "&resultado( 10 ) &"<br>"&_   
            "<b>Cidade: </b> "&resultado( 8 ) &"<br>"&_  
            "<b>UF: </b> "&resultado( 6 )  

       case else  

       texto = "Falha ao buscar cep: "& resultado( 4 )  
   end select  

   response.write texto  
   %>

Desenvolvido Felipe Olivaes para ajaxbox.com.br e Adaptação de exemplo para utilização com ASP por Otávio Nogueira

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

Atualmente esse codigo esta retornando os endereços que contenha acentos, ç, dentre outros com caracteres especiais.

 

Se alguem que ja usa esse codigo e conseguiu corrigir e quiser postar ai pra sera uma boa.

 

valeu.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

vou dar uma olhada aqui, e ver o charset dele

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel1    1

Daniel1
Postado

Atualmente esse codigo esta retornando os endereços que contenha acentos, ç, dentre outros com caracteres especiais.

 

Se alguem que ja usa esse codigo e conseguiu corrigir e quiser postar ai pra sera uma boa.

 

valeu.

Acho que esta função que fiz pode ajudar, não sei se ajuda muito quem quiser aprimorar e colocar aqui, eu fiz meio que "as carreiras" a funções

 

Function TiraAcentoUrl(sText)
sText = Replace(sText, "%00", "æ")
sText = Replace(sText, "%01", "")
sText = Replace(sText, "%02", "")
sText = Replace(sText, "%03", "")
sText = Replace(sText, "%04", "")
sText = Replace(sText, "%05", "")
sText = Replace(sText, "%06", "")
sText = Replace(sText, "%07", "")
sText = Replace(sText, "%08",chr(0127))
sText = Replace(sText, "%09",chr(09))

sText = Replace(sText, "%0a", "")
sText = Replace(sText, "%0b", "")
sText = Replace(sText, "%0c", "")
sText = Replace(sText, "%0d", "")
sText = Replace(sText, "%0e",chr(013))
sText = Replace(sText, "%0f", "")

sText = Replace(sText, "%0A", "")
sText = Replace(sText, "%0B", "")
sText = Replace(sText, "%0C", "")
sText = Replace(sText, "%0D", "")
sText = Replace(sText, "%0E",chr(013))
sText = Replace(sText, "%0F", "")


sText = Replace(sText, "%10", "")
sText = Replace(sText, "%11", "")
sText = Replace(sText, "%12", "")
sText = Replace(sText, "%13", "")
sText = Replace(sText, "%14", "")
sText = Replace(sText, "%15", "")
sText = Replace(sText, "%16", "")
sText = Replace(sText, "%17", "")
sText = Replace(sText, "%18", "")
sText = Replace(sText, "%19", "")

sText = Replace(sText, "%1a", "")
sText = Replace(sText, "%1b", "")
sText = Replace(sText, "%1c", "")
sText = Replace(sText, "%1d", "")
sText = Replace(sText, "%1e", "")
sText = Replace(sText, "%1f",chr(020))

sText = Replace(sText, "%1A", "")
sText = Replace(sText, "%1B", "")
sText = Replace(sText, "%1C", "")
sText = Replace(sText, "%1D", "")
sText = Replace(sText, "%1E", "")
sText = Replace(sText, "%1F",chr(020))

sText = Replace(sText, "%20", "!")
sText = Replace(sText, "%21",chr(034))
sText = Replace(sText, "%22", "#")
sText = Replace(sText, "%23", "$")
sText = Replace(sText, "%24", "%")
sText = Replace(sText, "%25", "&")
sText = Replace(sText, "%26",chr(039))
sText = Replace(sText, "%27", "(")
sText = Replace(sText, "%28", ")")
sText = Replace(sText, "%29", "*")

sText = Replace(sText, "%2a", "+")
sText = Replace(sText, "%2b", ",")
sText = Replace(sText, "%2c", "-")
sText = Replace(sText, "%2d", ".")
sText = Replace(sText, "%2e", "/")
sText = Replace(sText, "%2f", "")

sText = Replace(sText, "%2A", "+")
sText = Replace(sText, "%2B", ",")
sText = Replace(sText, "%2C", "-")
sText = Replace(sText, "%2D", ".")
sText = Replace(sText, "%2E", "/")
sText = Replace(sText, "%2F", "")


sText = Replace(sText, "%30", "0")
sText = Replace(sText, "%31", "1")
sText = Replace(sText, "%32", "2")
sText = Replace(sText, "%33", "3")
sText = Replace(sText, "%34", "4")
sText = Replace(sText, "%35", "5")
sText = Replace(sText, "%36", "6")
sText = Replace(sText, "%37", "7")
sText = Replace(sText, "%38", "8")
sText = Replace(sText, "%39", "9")

sText = Replace(sText, "%3a", ":")
sText = Replace(sText, "%3b", ";")
sText = Replace(sText, "%3c", "<")
sText = Replace(sText, "%3d", "=")
sText = Replace(sText, "%3e", ">")
sText = Replace(sText, "%3f", "?")


sText = Replace(sText, "%3A", ":")
sText = Replace(sText, "%3B", ";")
sText = Replace(sText, "%3C", "<")
sText = Replace(sText, "%3D", "=")
sText = Replace(sText, "%3E", ">")
sText = Replace(sText, "%3F", "?")

sText = Replace(sText, "%40", "@")
sText = Replace(sText, "%41", "A")
sText = Replace(sText, "%42", "B")
sText = Replace(sText, "%43", "C")
sText = Replace(sText, "%44", "D")
sText = Replace(sText, "%45", "E")
sText = Replace(sText, "%46", "F")
sText = Replace(sText, "%47", "G")
sText = Replace(sText, "%48", "H")
sText = Replace(sText, "%49", "I")

sText = Replace(sText, "%4a", "J")
sText = Replace(sText, "%4b", "K")
sText = Replace(sText, "%4c", "L")
sText = Replace(sText, "%4d", "M")
sText = Replace(sText, "%4e", "N")
sText = Replace(sText, "%4f", "O")

sText = Replace(sText, "%4A", "J")
sText = Replace(sText, "%4B", "K")
sText = Replace(sText, "%4C", "L")
sText = Replace(sText, "%4D", "M")
sText = Replace(sText, "%4E", "N")
sText = Replace(sText, "%4F", "O")

sText = Replace(sText, "%50", "P")
sText = Replace(sText, "%51", "Q")
sText = Replace(sText, "%52", "R")
sText = Replace(sText, "%53", "S")
sText = Replace(sText, "%54", "T")
sText = Replace(sText, "%55", "U")
sText = Replace(sText, "%56", "V")
sText = Replace(sText, "%57", "W")
sText = Replace(sText, "%58", "X")
sText = Replace(sText, "%59", "Y")

sText = Replace(sText, "%5a", "Z")
sText = Replace(sText, "%5b", "[")
sText = Replace(sText, "%5c", "\")
sText = Replace(sText, "%5d", "]")
sText = Replace(sText, "%5e", "^")
sText = Replace(sText, "%5f", "_")

sText = Replace(sText, "%5A", "Z")
sText = Replace(sText, "%5B", "[")
sText = Replace(sText, "%5C", "\")
sText = Replace(sText, "%5D", "]")
sText = Replace(sText, "%5E", "^")
sText = Replace(sText, "%5F", "_")

sText = Replace(sText, "%60", "`")
sText = Replace(sText, "%61", "a")
sText = Replace(sText, "%62", "c")
sText = Replace(sText, "%63", "d")
sText = Replace(sText, "%64", "e")
sText = Replace(sText, "%65", "f")
sText = Replace(sText, "%66", "g")
sText = Replace(sText, "%67", "h")
sText = Replace(sText, "%68", "i")
sText = Replace(sText, "%69", "j")

sText = Replace(sText, "%6a", "k")
sText = Replace(sText, "%6b", "l")
sText = Replace(sText, "%6c", "m")
sText = Replace(sText, "%6d", "n")
sText = Replace(sText, "%6e", "o")
sText = Replace(sText, "%6f", "p")

sText = Replace(sText, "%6A", "k")
sText = Replace(sText, "%6B", "l")
sText = Replace(sText, "%6C", "m")
sText = Replace(sText, "%6D", "n")
sText = Replace(sText, "%6E", "o")
sText = Replace(sText, "%6F", "p")

sText = Replace(sText, "%70", "q")
sText = Replace(sText, "%71", "r")
sText = Replace(sText, "%72", "s")
sText = Replace(sText, "%73", "t")
sText = Replace(sText, "%74", "u")
sText = Replace(sText, "%75", "v")
sText = Replace(sText, "%76", "w")
sText = Replace(sText, "%77", "x")
sText = Replace(sText, "%78", "y")
sText = Replace(sText, "%79", "z")

sText = Replace(sText, "%7a", "{")
sText = Replace(sText, "%7b", "|")
sText = Replace(sText, "%7c", "}")
sText = Replace(sText, "%7d", "~")
sText = Replace(sText, "%7e", "")
sText = Replace(sText, "%7f", "")

sText = Replace(sText, "%7A", "{")
sText = Replace(sText, "%7B", "|")
sText = Replace(sText, "%7C", "}")
sText = Replace(sText, "%7D", "~")
sText = Replace(sText, "%7E", "")
sText = Replace(sText, "%7F", "")

sText = Replace(sText, "%80", "€")
sText = Replace(sText, "%81", "")
sText = Replace(sText, "%82", "‚")
sText = Replace(sText, "%83", "ƒ")
sText = Replace(sText, "%84", "„")
sText = Replace(sText, "%85", "…")
sText = Replace(sText, "%86", "†")
sText = Replace(sText, "%87", "‡")
sText = Replace(sText, "%88", "ˆ")
sText = Replace(sText, "%89", "‰")

sText = Replace(sText, "%8a", "Š")
sText = Replace(sText, "%8b", "‹")
sText = Replace(sText, "%8c", "Œ")
sText = Replace(sText, "%8d", "")
sText = Replace(sText, "%8e", "")
sText = Replace(sText, "%8f", "Ž")

sText = Replace(sText, "%8A", "Š")
sText = Replace(sText, "%8B", "‹")
sText = Replace(sText, "%8C", "Œ")
sText = Replace(sText, "%8D", "")
sText = Replace(sText, "%8E", "")
sText = Replace(sText, "%8F", "Ž")

sText = Replace(sText, "%90", "")
sText = Replace(sText, "%91", "‘")
sText = Replace(sText, "%92", "’")
sText = Replace(sText, "%93", "“")
sText = Replace(sText, "%94", "”")
sText = Replace(sText, "%95", "•")
sText = Replace(sText, "%96", "–")
sText = Replace(sText, "%97", "—")
sText = Replace(sText, "%98", "˜ ")
sText = Replace(sText, "%99", "™")

sText = Replace(sText, "%9a", "š")
sText = Replace(sText, "%9b", "›")
sText = Replace(sText, "%9c", "œ")
sText = Replace(sText, "%9d", "")
sText = Replace(sText, "%9e", "ž")
sText = Replace(sText, "%9f", "Ÿ")

sText = Replace(sText, "%9A", "š")
sText = Replace(sText, "%9B", "›")
sText = Replace(sText, "%9C", "œ")
sText = Replace(sText, "%9D", "")
sText = Replace(sText, "%9E", "ž")
sText = Replace(sText, "%9F", "Ÿ")

sText = Replace(sText, "%a0", "")
sText = Replace(sText, "%A0", "")

sText = Replace(sText, "%a1", "¡")
sText = Replace(sText, "%a2", "¢")
sText = Replace(sText, "%a3", "£")

sText = Replace(sText, "%A1", "¡")
sText = Replace(sText, "%A2", "¢")
sText = Replace(sText, "%A3", "£")

sText = Replace(sText, "%a4", "")
sText = Replace(sText, "%A4", "")

sText = Replace(sText, "%a5", "¥")
sText = Replace(sText, "%a6", "|")
sText = Replace(sText, "%a7", "§")
sText = Replace(sText, "%a8", "¨")
sText = Replace(sText, "%a9", "©")
sText = Replace(sText, "%aa", "ª")
sText = Replace(sText, "%ab", "«")
sText = Replace(sText, "%ac", "¬")
sText = Replace(sText, "%ad", "¯")
sText = Replace(sText, "%ae", "®")
sText = Replace(sText, "%af", "¯")
sText = Replace(sText, "%b0", "°")
sText = Replace(sText, "%b1", "±")
sText = Replace(sText, "%b2", "²")
sText = Replace(sText, "%b3", "³")
sText = Replace(sText, "%b4", "'")
sText = Replace(sText, "%b5", "µ")
sText = Replace(sText, "%b6", "¶")
sText = Replace(sText, "%b7", "·")
sText = Replace(sText, "%b8", "¸")
sText = Replace(sText, "%b9", "¹")
sText = Replace(sText, "%ba", "º")
sText = Replace(sText, "%bb", "»")
sText = Replace(sText, "%bc", "¼")
sText = Replace(sText, "%bd", "½")
sText = Replace(sText, "%be", "¾")
sText = Replace(sText, "%bf", "¿")

sText = Replace(sText, "%A5", "¥")
sText = Replace(sText, "%A6", "|")
sText = Replace(sText, "%A7", "§")
sText = Replace(sText, "%A8", "¨")
sText = Replace(sText, "%A9", "©")
sText = Replace(sText, "%AA", "ª")
sText = Replace(sText, "%AB", "«")
sText = Replace(sText, "%AC", "¬")
sText = Replace(sText, "%AD", "¯")
sText = Replace(sText, "%AE", "®")
sText = Replace(sText, "%AF", "¯")
sText = Replace(sText, "%B0", "°")
sText = Replace(sText, "%B1", "±")
sText = Replace(sText, "%B2", "²")
sText = Replace(sText, "%B3", "³")
sText = Replace(sText, "%B4", "'")
sText = Replace(sText, "%B5", "µ")
sText = Replace(sText, "%B6", "¶")
sText = Replace(sText, "%B7", "·")
sText = Replace(sText, "%B8", "¸")
sText = Replace(sText, "%B9", "¹")
sText = Replace(sText, "%BA", "º")
sText = Replace(sText, "%BB", "»")
sText = Replace(sText, "%BC", "¼")
sText = Replace(sText, "%BD", "½")
sText = Replace(sText, "%BE", "¾")
sText = Replace(sText, "%BF", "¿")

sText = Replace(sText, "%c0", "À")
sText = Replace(sText, "%c1", "Á")
sText = Replace(sText, "%c2", "Â")
sText = Replace(sText, "%c3", "Ã")
sText = Replace(sText, "%c4", "Ä")
sText = Replace(sText, "%c5", "Å")
sText = Replace(sText, "%c6", "Æ")
sText = Replace(sText, "%c7", "Ç")
sText = Replace(sText, "%c8", "È")
sText = Replace(sText, "%c9", "É")
sText = Replace(sText, "%ca", "Ê")
sText = Replace(sText, "%cb", "Ë")
sText = Replace(sText, "%cc", "Ì")
sText = Replace(sText, "%cd", "Í")
sText = Replace(sText, "%ce", "Î")
sText = Replace(sText, "%cf", "Ï")
sText = Replace(sText, "%d0", "Ð")
sText = Replace(sText, "%d1", "Ñ")
sText = Replace(sText, "%d2", "Ò")
sText = Replace(sText, "%d3", "Ó")
sText = Replace(sText, "%d4", "Ô")
sText = Replace(sText, "%d5", "Õ")
sText = Replace(sText, "%d6", "Ö")

sText = Replace(sText, "%C0", "À")
sText = Replace(sText, "%C1", "Á")
sText = Replace(sText, "%C2", "Â")
sText = Replace(sText, "%C3", "Ã")
sText = Replace(sText, "%C4", "Ä")
sText = Replace(sText, "%C5", "Å")
sText = Replace(sText, "%C6", "Æ")
sText = Replace(sText, "%C7", "Ç")
sText = Replace(sText, "%C8", "È")
sText = Replace(sText, "%C9", "É")
sText = Replace(sText, "%CA", "Ê")
sText = Replace(sText, "%CB", "Ë")
sText = Replace(sText, "%CC", "Ì")
sText = Replace(sText, "%CD", "Í")
sText = Replace(sText, "%CE", "Î")
sText = Replace(sText, "%CF", "Ï")
sText = Replace(sText, "%D0", "Ð")
sText = Replace(sText, "%D1", "Ñ")
sText = Replace(sText, "%D2", "Ò")
sText = Replace(sText, "%D3", "Ó")
sText = Replace(sText, "%D4", "Ô")
sText = Replace(sText, "%D5", "Õ")
sText = Replace(sText, "%D6", "Ö")

sText = Replace(sText, "%d7", "")
sText = Replace(sText, "%D7", "")

sText = Replace(sText, "%d8", "Ø")
sText = Replace(sText, "%d9", "Ù")
sText = Replace(sText, "%da", "Ú")
sText = Replace(sText, "%db", "Û")
sText = Replace(sText, "%dc", "Ü")
sText = Replace(sText, "%dd", "Ý")
sText = Replace(sText, "%de", "Þ")
sText = Replace(sText, "%df", "ß")
sText = Replace(sText, "%e0", "à")
sText = Replace(sText, "%e1", "á")
sText = Replace(sText, "%e2", "â")
sText = Replace(sText, "%e3", "ã")
sText = Replace(sText, "%e4", "ä")
sText = Replace(sText, "%e5", "å")
sText = Replace(sText, "%e6", "æ")
sText = Replace(sText, "%e7", "ç")
sText = Replace(sText, "%e8", "è")
sText = Replace(sText, "%e9", "é")
sText = Replace(sText, "%ea", "ê")
sText = Replace(sText, "%eb", "ë")
sText = Replace(sText, "%ec", "ì")
sText = Replace(sText, "%ed", "í")
sText = Replace(sText, "%ee", "î")
sText = Replace(sText, "%ef", "ï")

sText = Replace(sText, "%D8", "Ø")
sText = Replace(sText, "%D9", "Ù")
sText = Replace(sText, "%Da", "Ú")
sText = Replace(sText, "%DB", "Û")
sText = Replace(sText, "%DC", "Ü")
sText = Replace(sText, "%DD", "Ý")
sText = Replace(sText, "%DE", "Þ")
sText = Replace(sText, "%DF", "ß")
sText = Replace(sText, "%E0", "à")
sText = Replace(sText, "%E1", "á")
sText = Replace(sText, "%E2", "â")
sText = Replace(sText, "%E3", "ã")
sText = Replace(sText, "%E4", "ä")
sText = Replace(sText, "%E5", "å")
sText = Replace(sText, "%E6", "æ")
sText = Replace(sText, "%E7", "ç")
sText = Replace(sText, "%E8", "è")
sText = Replace(sText, "%E9", "é")
sText = Replace(sText, "%EA", "ê")
sText = Replace(sText, "%EB", "ë")
sText = Replace(sText, "%EC", "ì")
sText = Replace(sText, "%ED", "í")
sText = Replace(sText, "%EE", "î")
sText = Replace(sText, "%EF", "ï")

sText = Replace(sText, "%f0", "ð")
sText = Replace(sText, "%f1", "ñ")
sText = Replace(sText, "%f2", "ò")
sText = Replace(sText, "%f3", "ó")
sText = Replace(sText, "%f4", "ô")
sText = Replace(sText, "%f5", "õ")
sText = Replace(sText, "%f6", "ö")
sText = Replace(sText, "%f7", "÷")
sText = Replace(sText, "%f8", "ø")
sText = Replace(sText, "%f9", "ù")
sText = Replace(sText, "%fa", "ú")
sText = Replace(sText, "%fb", "û")
sText = Replace(sText, "%fc", "ü")
sText = Replace(sText, "%fd", "ý")
sText = Replace(sText, "%fe", "þ")
sText = Replace(sText, "%ff", "ÿ")

sText = Replace(sText, "%F0", "ð")
sText = Replace(sText, "%F1", "ñ")
sText = Replace(sText, "%F2", "ò")
sText = Replace(sText, "%F3", "ó")
sText = Replace(sText, "%F4", "ô")
sText = Replace(sText, "%F5", "õ")
sText = Replace(sText, "%F6", "ö")
sText = Replace(sText, "%F7", "÷")
sText = Replace(sText, "%F8", "ø")
sText = Replace(sText, "%F9", "ù")
sText = Replace(sText, "%FA", "ú")
sText = Replace(sText, "%FB", "û")
sText = Replace(sText, "%FC", "ü")
sText = Replace(sText, "%FD", "ý")
sText = Replace(sText, "%FE", "þ")
sText = Replace(sText, "%FF", "ÿ")

TiraAcentoUrl = sText
End Function

Espero ajudar

Até +

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito