Eu costumo usar essa classe, WebCep.vb
Imports
System
Imports
System.Collections.Generic
Imports
System.Text
Imports
System.Data
Public
Class WebCEP
Private _uf As String
Private _cidade As String
Private _bairro As String
Private _tipo_lagradouro As String
Private _lagradouro As String
Private _resultado As String
Private _resultato_txt As String
''' <summary>
''' WebService para Busca de CEP
''' </summary>
''' <param name="CEP"></param>
'''
Public Sub New(ByVal CEP As String)
MyBase.New()
_uf =
""
_cidade =
""
_bairro =
""
_tipo_lagradouro =
""
_lagradouro =
""
_resultado =
"0"
_resultato_txt =
"CEP não encontrado"
'Cria um DataSet baseado no retorno do XML
Dim ds As DataSet = New DataSet
ds.ReadXml((
"http://cep.republicavirtual.com.br/web_cep.php?cep=" _
+ (CEP.Replace(
"-", "").Trim + "&formato=xml")))
If (Not (ds) Is Nothing) Then
If (ds.Tables(0).Rows.Count > 0) Then
_resultado = ds.Tables(0).Rows(0)(
"resultado").ToString
Select Case (_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"
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"
Case Else
_uf =
""
_cidade =
""
_bairro =
""
_tipo_lagradouro =
""
_lagradouro =
""
_resultato_txt =
"CEP não encontrado"
End Select
End If
End If
'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>
End Sub
Public ReadOnly Property UF() As String
Get
Return _uf
End Get
End Property
Public ReadOnly Property Cidade() As String
Get
Return _cidade
End Get
End Property
Public ReadOnly Property Bairro() As String
Get
Return _bairro
End Get
End Property
Public ReadOnly Property TipoLagradouro() As String
Get
Return _tipo_lagradouro
End Get
End Property
Public ReadOnly Property Lagradouro() As String
Get
Return _lagradouro
End Get
End Property
Public ReadOnly Property Resultado() As String
Get
Return _resultado
End Get
End Property
Public ReadOnly Property ResultadoTXT() As String
Get
Return _resultato_txt
End Get
End Property
End
Class
