ENDERECO POR CEP

 Tópico anterior Próximo tópico Novo tópico

ENDERECO POR CEP

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#492577 - 08/02/2020 15:07:02

FUTURA
.
Cadast. em:Maio/2004


Como não usa certificado nem assinatura, apenas consumir o serviço, da pra fazer em vb6 ?  



#492587 - 10/02/2020 12:06:21

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Private Sub CEP(ByVal pCEP As String)
        Dim ds As DataSet
        Dim Resultado As String = String.Empty
        Dim DD(4) As String

        Try
            ds = New DataSet()
            ds.ReadXml("http://cep.republicavirtual.com.br/web_cep.php?cep=" + pCEP.Replace("-", "").Trim() + "&formato=xml")

            If Not IsNothing(ds) Then
                If (ds.Tables(0).Rows.Count > 0) Then
                    Resultado = ds.Tables(0).Rows(0).Item("resultado").ToString()

                    Select Case Resultado
                        Case "1"
                            DD(0) = (ds.Tables(0).Rows(0).Item("uf").ToString().Trim())
                            DD(1) = (ds.Tables(0).Rows(0).Item("cidade").ToString().Trim())
                            DD(2) = (ds.Tables(0).Rows(0).Item("bairro").ToString().Trim())
                            DD(3) = (ds.Tables(0).Rows(0).Item("logradouro").ToString().Trim())
                            DD(4) = (ds.Tables(0).Rows(0).Item("tipo_logradouro").ToString().Trim())
                        Case "2"
                            DD(0) = (ds.Tables(0).Rows(0).Item("uf").ToString().Trim())
                            DD(1) = (ds.Tables(0).Rows(0).Item("cidade").ToString().Trim())
                            DD(2) = String.Empty
                            DD(3) = String.Empty
                            DD(4) = String.Empty
                        Case Else
                            DD(0) = String.Empty
                            DD(1) = String.Empty
                            DD(2) = String.Empty
                            DD(3) = String.Empty
                            DD(4) = String.Empty
                    End Select
                End If
            End If

            Me.CBO_UF.Text = DD(0)
            Me.CBO_MUNICIPIO.Text = DD(1)
            Me.TXT_BAIRRO.Text = DD(2)
            Me.TXT_LogRA.Text = DD(4) & " " & DD(3)

        Catch ex As Exception
            MessageBox.Show("Falha ao Buscar o Cep" & vbCrLf & ex.Message & vbCrLf & ex.Source)
        End Try
    End Sub

Esta funcionando a 5 anos.



#492588 - 10/02/2020 12:55:25

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
exemplo em c#

try
            {
              string xml = "http://cep.republicavirtual.com.br/web_cep.php?cep=@cep&formato=xml".Replace("@cep", txtcep.Text);
              DataSet ds = new DataSet();
              ds.ReadXml(xml);
             campo recebe tal  = ds.Tables[0].Rows[0][1].ToString();
             campo recebe tal = ds.Tables[0].Rows[0][6].ToString();
             campo recebe tal  = ds.Tables[0].Rows[0][4].ToString();
             campo recebe tal= ds.Tables[0].Rows[0][3].ToString();
             campo recebe tal = ds.Tables[0].Rows[0][2].ToString();
            }
            catch
            {

            }



   oi, Fabricio!

tem um exemplo em vb6?

Atenciosamente,




#492589 - 10/02/2020 13:24:37

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Citação:
:
:
exemplo em c#

try
            {
              string xml = "http://cep.republicavirtual.com.br/web_cep.php?cep=@cep&formato=xml".Replace("@cep", txtcep.Text);
              DataSet ds = new DataSet();
              ds.ReadXml(xml);
             campo recebe tal  = ds.Tables[0].Rows[0][1].ToString();
             campo recebe tal = ds.Tables[0].Rows[0][6].ToString();
             campo recebe tal  = ds.Tables[0].Rows[0][4].ToString();
             campo recebe tal= ds.Tables[0].Rows[0][3].ToString();
             campo recebe tal = ds.Tables[0].Rows[0][2].ToString();
            }
            catch
            {

            }


   oi, Fabricio!

tem um exemplo em vb6?

Atenciosamente,


não tenho certeza mas acho que vc poderia fazer algo tipo isso


declaração no topo do formulario

Private XCep As IXMLDOMNode
Private WebDisplay As VBControlExtender
Private myXML As DOMDocument60
Private X As IXMLDOMNode






On Error Resume Next
Dim xlink As String
Dim xtipo As String
Dim xendereco As String
Set myXML = New DOMDocument60

myXML.resolveExternals = True
myXML.ValidateOnParse = True
myXML.async = False
xlink = "http://cep.republicavirtual.com.br/web_cep.php?cep=" & TxtCep & "&formato=xml"
myXML.Load (xlink)
For Each X In myXML.documentElement.childNodes
Select Case X.nodeName
Case Is = "logradouro"
TxtEndereco = UCase$(X.childNodes(0).Text)
Case Is = "uf"
TxtEstado = UCase$(X.childNodes(0).Text)
Case Is = "cidade"
TxtCidade = UCase$(X.childNodes(0).Text)
Case Is = "bairro"
TxtBairro = UCase$(X.childNodes(0).Text)
Case Is = "tipo_logradouro"
xtipo = UCase$(X.childNodes(0).Text)
End Select
'x_endereco.Value = Trim(xtipo) & " " & xendereco
Next






#492590 - 11/02/2020 12:23:29

FUTURA
.
Cadast. em:Maio/2004


Citação:
não tenho certeza mas acho que vc poderia fazer algo tipo isso


declaração no topo do formulario

Private XCep As IXMLDOMNode
Private WebDisplay As VBControlExtender
Private myXML As DOMDocument60
Private X As IXMLDOMNode






On Error Resume Next
Dim xlink As String
Dim xtipo As String
Dim xendereco As String
Set myXML = New DOMDocument60

myXML.resolveExternals = True
myXML.ValidateOnParse = True
myXML.async = False
xlink = "http://cep.republicavirtual.com.br/web_cep.php?cep=" & TxtCep & "&formato=xml"
myXML.Load (xlink)
For Each X In myXML.documentElement.childNodes
Select Case X.nodeName
Case Is = "logradouro"
TxtEndereco = UCase$(X.childNodes(0).Text)
Case Is = "uf"
TxtEstado = UCase$(X.childNodes(0).Text)
Case Is = "cidade"
TxtCidade = UCase$(X.childNodes(0).Text)
Case Is = "bairro"
TxtBairro = UCase$(X.childNodes(0).Text)
Case Is = "tipo_logradouro"
xtipo = UCase$(X.childNodes(0).Text)
End Select
'x_endereco.Value = Trim(xtipo) & " " & xendereco
Next  






#492591 - 11/02/2020 14:51:53

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


em php



<?php  
/*
*  Função de busca de Endereço pelo CEP
*  -   Desenvolvido Felipe Olivaes para ajaxbox.com.br
*  -   Utilizando WebService de CEP da republicavirtual.com.br
*/  
function busca_cep($cep){  
    $resultado = @file_get_contents('http://republicavirtual.com.br/web_cep.php?cep='.urlencode($cep).'&formato=query_string');  
    if(!$resultado){  
        $resultado = "&resultado=0&resultado_txt=erro+ao+buscar+cep";  
    }  
    parse_str($resultado, $retorno);  
    return $retorno;  
}  
  
  
/*
* Exemplo de utilização  
*/  
  
//Vamos buscar o CEP 90020022  
$resultado_busca = busca_cep('90020022');  
  
echo "<pre> Array Retornada:
".print_r($resultado_busca, true)."</pre>";  
  
switch($resultado_busca['resultado']){  
    case '2':  
        $texto = "
    Cidade com logradouro único
    <b>Cidade: </b> ".$resultado_busca['cidade']."
    <b>UF: </b> ".$resultado_busca['uf']."
        ";    
    break;  
      
    case '1':  
        $texto = "
    Cidade com logradouro completo
    <b>Tipo de Logradouro: </b> ".$resultado_busca['tipo_logradouro']."
    <b>Logradouro: </b> ".$resultado_busca['logradouro']."
    <b>Bairro: </b> ".$resultado_busca['bairro']."
    <b>Cidade: </b> ".$resultado_busca['cidade']."
    <b>UF: </b> ".$resultado_busca['uf']."
        ";  
    break;  
      
    default:  
        $texto = "Fala ao buscar cep: ".$resultado_busca['resultado'];  
    break;  
}  
  
echo $texto;  
?>  



em asp



function busca_cep( cep )  
  
    url = "http://republicavirtual.com.br/web_cep.php?cep="& cep &"&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 ) &" "&_  
         "<b>Logradouro: </b> "&resultado( 14 ) &" "&_  
         "<b>Bairro: </b> "&resultado( 10 ) &" "&_  
         "<b>Cidade: </b> "&resultado( 8 ) &" "&_  
         "<b>UF: </b> "&resultado( 6 )  
      
    case else  
  
    texto = "Falha ao buscar cep: "& resultado( 4 )  
end select  
  
response.write texto  
%>  





em vb net




Function BuscaCep(ByVal cep As String) As Hashtable  
    Dim ds As DataSet  
    Dim _resultado As String  
    Dim ht As System.Collections.Hashtable  
    Try  
    ds = New DataSet()  
    ds.ReadXml("http://cep.republicavirtual.com.br/web_cep.php?cep=" + cep.Replace("-", "").Trim() + "&formato=xml")  
    If Not IsNothing(ds) Then  
    If (ds.Tables(0).Rows.Count > 0) Then  
    _resultado = ds.Tables(0).Rows(0).Item("resultado").ToString()  
    ht = New Hashtable  
    Select Case _resultado  
    Case "1"  
    ht.Add("UF", ds.Tables(0).Rows(0).Item("uf").ToString().Trim())  
    ht.Add("cidade", ds.Tables(0).Rows(0).Item("cidade").ToString().Trim())  
    ht.Add("bairro", ds.Tables(0).Rows(0).Item("bairro").ToString().Trim())  
    ht.Add("tipologradouro", ds.Tables(0).Rows(0).Item("tipo_logradouro").ToString().Trim())  
    ht.Add("logradouro", ds.Tables(0).Rows(0).Item("logradouro").ToString().Trim())  
    ht.Add("tipo", 1)  
      
    Case "2"  
    ht.Add("UF", ds.Tables(0).Rows(0).Item("uf").ToString().Trim())  
    ht.Add("cidade", ds.Tables(0).Rows(0).Item("cidade").ToString().Trim())  
    ht.Add("tipo", 2)  
    Case Else  
    ht.Add("tipo", 0)  
    End Select  
    End If  
    End If  
    Return ht  
    Catch ex As Exception  
    Throw New Exception("Falha ao Buscar o Cep" & vbCrLf & ex.ToString)  
    Return Nothing  
    End Try  
End Function  





c# de outra forma

using System;  
using System.Collections.Generic;  
using System.Text;  
using System.Data;  
namespace NcMaster  
{  
     public class WebCEP  
     {  
        #region "Váriavies"  
        string  _uf;  
        string _cidade;  
        string _bairro;  
        string  _tipo_lagradouro;  
        string _lagradouro;  
        string  _resultado;  
        string _resultato_txt;  
         #endregion  

        #region "Propiedades"  
        public string  UF  
        {  
            get { return _uf;}  
        }  
        public  string Cidade  
        {  
            get { return _cidade; }  
         }  
        public string Bairro  
        {  
            get { return  _bairro;}  
        }  
        public string TipoLagradouro  
         {  
            get { return _tipo_lagradouro;}  
        }  
        public  string Lagradouro  
        {  
            get { return _lagradouro;  }  
        }  
        public string Resultado  
        {  
             get { return _resultado; }  
        }  
        public string  ResultadoTXT  
        {  
            get { return _resultato_txt;  }  
        }  
        #endregion  
        #region "Construtor"  
         /// <summary>  
        /// WebService para Busca de CEP  
        ///  </summary>  
        /// <param  name="CEP"></param>  
        public WebCEP(string CEP)  
         {  
            _uf = "";  
            _cidade = "";  
            _bairro =  "";  
            _tipo_lagradouro="";  
             _lagradouro="";  
            _resultado="0";  
             _resultato_txt="CEP não encontrado";  
  
            //Cria um DataSet  baseado no retorno do XML  
            DataSet ds = new  DataSet();  
            ds.ReadXml("http://cep.republicavirtual.com.br/web_cep.php?cep="  + CEP.Replace("-","").Trim() + "&formato=xml");  
  
            if (ds !=  null)  
            {  
                 if (ds.Tables[0].Rows.Count >  0)  
                 {  
                    _resultado =  ds.Tables[0].Rows[0]["resultado"].ToString();  
                    switch  (_resultado)  
                    {  
                        case  "1":  
                            _uf =  ds.Tables[0].Rows[0]["uf"].ToString().Trim();  
                            _cidade =  ds.Tables[0].Rows[0]["cidade"].ToString().Trim();  
                            _bairro =  ds.Tables[0].Rows[0]["bairro"].ToString().Trim();  
                            _tipo_lagradouro =  ds.Tables[0].Rows[0]["tipo_logradouro"].ToString().Trim();  
                            _lagradouro =  ds.Tables[0].Rows[0]["logradouro"].ToString().Trim();  
                            _resultato_txt = "CEP completo";  
                            break;  
                        case "2":  
                            _uf =  ds.Tables[0].Rows[0]["uf"].ToString().Trim();  
                            _cidade =  ds.Tables[0].Rows[0]["cidade"].ToString().Trim();  
                            _bairro = "";  
                            _tipo_lagradouro =  "";  
                            _lagradouro =  "";  
                            _resultato_txt = "CEP  único";  
                            break;  
                         default:  
                            _uf = "";  
                            _cidade = "";  
                            _bairro =  "";  
                            _tipo_lagradouro =  "";  
                            _lagradouro =  "";  
                            _resultato_txt = "CEP não  encontrado";  
                            break;  
                     }  
                 }  
            }  
            //Exemplo do retorno da  WEB  
            //<?xml version="1.0"  encoding="iso-8859-1"?>  
            //<webservicecep>  
             //<uf>RS</uf>  
            //<cidade>Porto  Alegre</cidade>  
            //<bairro>Passo  D'Areia</bairro>  
             //<tipo_logradouro>Avenida</tipo_logradouro>  
             //<logradouro>Assis Brasil</logradouro>  
             //<resultado>1</resultado>  
             //<resultado_txt>sucesso - cep  completo</resultado_txt>  
             //</webservicecep>  
        }  
        #endregion  
     }  
}  




espero que qualquer um desse te ajude feche o topico nao deixe em aberto caso resolva seu problema








#492592 - 11/02/2020 15:31:52

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe

Última edição em 11/02/2020 15:32:52 por KERPLUNK

Citação:
:

c# de outra forma

using System;  
using System.Collections.Generic;  
using System.Text;  
using System.Data;  
namespace NcMaster  
{  
     public class WebCEP  
     {  
        #region "Váriavies"  
        string  _uf;  
        string _cidade;  
        string _bairro;  
        string  _tipo_lagradouro;  
        string _lagradouro;  
        string  _resultado;  
        string _resultato_txt;  
         #endregion  

        #region "Propiedades"  
        public string  UF  
        {  
            get { return _uf;}  
        }  
        public  string Cidade  
        {  
            get { return _cidade; }  
         }  
        public string Bairro  
        {  
            get { return  _bairro;}  
        }  
        public string TipoLagradouro  
         {  
            get { return _tipo_lagradouro;}  
        }  
        public  string Lagradouro  
        {  
            get { return _lagradouro;  }  
        }  
        public string Resultado  
        {  
             get { return _resultado; }  
        }  
        public string  ResultadoTXT  
        {  
            get { return _resultato_txt;  }  
        }  
        #endregion  
        #region "Construtor"  
         /// <summary>  
        /// WebService para Busca de CEP  
        ///  </summary>  
        /// <param  name="CEP"></param>  
        public WebCEP(string CEP)  
         {  
            _uf = "";  
            _cidade = "";  
            _bairro =  "";  
            _tipo_lagradouro="";  
             _lagradouro="";  
            _resultado="0";  
             _resultato_txt="CEP não encontrado";  
  
            //Cria um DataSet  baseado no retorno do XML  
            DataSet ds = new  DataSet();  
            ds.ReadXml("http://cep.republicavirtual.com.br/web_cep.php?cep="  + CEP.Replace("-","").Trim() + "&formato=xml");  
  
            if (ds !=  null)  
            {  
                 if (ds.Tables[0].Rows.Count >  0)  
                 {  
                    _resultado =  ds.Tables[0].Rows[0]["resultado"].ToString();  
                    switch  (_resultado)  
                    {  
                        case  "1":  
                            _uf =  ds.Tables[0].Rows[0]["uf"].ToString().Trim();  
                            _cidade =  ds.Tables[0].Rows[0]["cidade"].ToString().Trim();  
                            _bairro =  ds.Tables[0].Rows[0]["bairro"].ToString().Trim();  
                            _tipo_lagradouro =  ds.Tables[0].Rows[0]["tipo_logradouro"].ToString().Trim();  
                            _lagradouro =  ds.Tables[0].Rows[0]["logradouro"].ToString().Trim();  
                            _resultato_txt = "CEP completo";  
                            break;  
                        case "2":  
                            _uf =  ds.Tables[0].Rows[0]["uf"].ToString().Trim();  
                            _cidade =  ds.Tables[0].Rows[0]["cidade"].ToString().Trim();  
                            _bairro = "";  
                            _tipo_lagradouro =  "";  
                            _lagradouro =  "";  
                            _resultato_txt = "CEP  único";  
                            break;  
                         default:  
                            _uf = "";  
                            _cidade = "";  
                            _bairro =  "";  
                            _tipo_lagradouro =  "";  
                            _lagradouro =  "";  
                            _resultato_txt = "CEP não  encontrado";  
                            break;  
                     }  
                 }  
            }  
            //Exemplo do retorno da  WEB  
            //<?xml version="1.0"  encoding="iso-8859-1"?>  
            //<webservicecep>  
             //<uf>RS</uf>  
            //<cidade>Porto  Alegre</cidade>  
            //<bairro>Passo  D'Areia</bairro>  
             //<tipo_logradouro>Avenida</tipo_logradouro>  
             //<logradouro>Assis Brasil</logradouro>  
             //<resultado>1</resultado>  
             //<resultado_txt>sucess





_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#492701 - 17/02/2020 20:44:42

LEAO10
BRASILIA
Cadast. em:Agosto/2009


Gosto deste, porque é bem atualizado:

https://postmon.com.br/



Todos respiramos o mesmo ar, portanto devemos ter todos a mesma chance (Ayrton Senna)

#492702 - 17/02/2020 20:54:31

LEAO10
BRASILIA
Cadast. em:Agosto/2009


Em VB6, com objeto WebBrowser

    Dim Url As String
    Url = "http://api.postmon.com.br/v1/cep/" & CEPaBuscar & "?format=xml"
    WebBrowser.Navigate (Url) 'inicia a busca
    txtConteudoCep.Text = WebBrowser.Document.ActiveElement.InnerText

Todos respiramos o mesmo ar, portanto devemos ter todos a mesma chance (Ayrton Senna)

 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário