Busca CEP

[Marcelo Barcellos 0]

Srs.Segue

Set Obj = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")StrCEP = "02401-100"strURL = "http://www.correios.com.br/servicos/falecomoscorreios/ctBuscaEndereco.cfm?cep=" & strCEPObj.open "GET",strURL,FalseObj.send strHtml = Obj.responseText POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsEndereco = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm + 1)Response.write dsEndereco & "<br>"POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsBairro = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm + 1)Response.Write dsBairro  & "<br>"POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsCidade = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm + 1)Response.Write dsCidade & "<br>"POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsEstado = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm)Response.Write dsEstado & "<br>"

[Salgado 4]

Boa Professor,

 

Vou mover para o "Laboratório de Scripts".

[Marcelo Barcellos 0]

Galera...Há uma pequena falha no código, segue o novo

<%'Set Obj = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")Set Obj = Server.CreateObject("Microsoft.XMLHTTP")StrCEP = Request("StrCEP")strURL = "http://www.correios.com.br/servicos/falecomoscorreios/ctBuscaEndereco.cfm?cep=" & strCEPObj.open "GET",strURL,FalseObj.send strHtml = Obj.responseText POsFim = InStr(1, strHtml, "=")strHtml = Mid(strHtml, PosFIm + 1)POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsEndereco = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm + 1)Response.write dsEndereco & "<br>"POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsBairro = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm + 1)Response.Write dsBairro  & "<br>"POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsCidade = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm + 1)Response.Write dsCidade & "<br>"POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsEstado = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm)Response.Write dsEstado & "<br>"%>

[dark0 0]

opa

 

interessante professor

dei um split, e diminui um pouco mais o seu codigo, mas funcionou beleza.

 

me diz uma coisa.. como você descobriu essa URL dos correios?

 

é uma pérola, hehehe

 

o meu ficou:

http://www.dark0.truehost.com.br/codigos/c...os/busca%5Fcep/

[Lucasf 0]

opa

 

interessante professor

dei um split, e diminui um pouco mais o seu codigo, mas funcionou beleza.

 

me diz uma coisa.. como você descobriu essa URL dos correios?

 

é uma pérola, hehehe

 

o meu ficou:

http://www.dark0.truehost.com.br/codigos/c...os/busca%5Fcep/

<{POST_SNAPBACK}>

Dark0, pode postar o seu código?

[dark0 0]

ele ta aqui

http://www.foo.com.br/viewtopic.php?t=1121

[alphamek 2]

Muito Bom Pessoall.... Gostei bastante também.... Paranbéns aos criadores e colaboradores...

[kaplan 0]

o formulario eu vou montar normal??...

[Marcelo Barcellos 0]

Cara...

Não fui eu...

Um cara postou uma dúvida, apontando para essa URL, e eu fui ver como retornava e achei esse troço...(Foi um cara do WMOnline)..(não lembro quem era).

 

opa

 

interessante professor

dei um split, e diminui um pouco mais o seu codigo, mas funcionou beleza.

 

me diz uma coisa.. como você descobriu essa URL dos correios?

 

é uma pérola, hehehe

 

o meu ficou:

http://www.dark0.truehost.com.br/codigos/c...os/busca%5Fcep/

<{POST_SNAPBACK}>

[dark0 0]

ah tá.. belezaé que a url original dos correios te joga pra um flash, e assim nao tem como capturar nada ali com xmlhttp..por isso por lá não tem como mesmo..

[alphamek 2]

Pessoal!

 

Eu tô com um probleminha...

 

Como eu faço para me retorna o CEP, e não a rua, bairro e estado.

 

Igual a esse exemplo:

 

Busca por Rua e retorna o CEP

 

Tem que mudar algum parâmetro na busca!

 

Abraços,

[Edson Amaro 0]

Boa Professor,Vou mover para o "Laboratório de Scripts".

[Marcelo Barcellos 0]

Bom...

Acho que dá pra perceber que gostei do tal do AJAX...

Busca Endereço por CEP com ajax.

Em funcionamento: http://advocacia.razaodigital.com/ajax/pag4.asp

Como está tudo no client, nem vou postar o código, basta dar um "View Source" lá

[dark0 0]

no ff nao aconteceu nada, heheheno ie ficou no "aguarde..."

[Marcelo Barcellos 0]

Estranho...para mim tá funcionando !

[Salgado 4]

Aqui no IE deu erro:

Linha: 42

Permissão negada

Essa linha é a que dá um .OPEN no code.

[Marcelo Barcellos 0]

Estranho..Para mim não dá erro !!!!...Será que depende de algum tipo de peermissão no IE ???

[Salgado 4]

Pode ser, pelo que percebi você usou JScript (implementação da MS) e pode ser que não rode.

[Marcelo Barcellos 0]

Eu to achando que é porque estou apontando para uma URL com domínio diferente .... sei lá...A implementação dos objetos do XML é assim mesmo salgado.É disso que você falou ?

[Wallcrawler 0]

Os scripts não estão funcionando mais... alguém tem alguma solução???