TRATAR HTML
Boa tarde,
Galera é o seguinte, estou querendo fazer um sistema de rastreamento dos correios, tipo eu faço uma postagem e cadastro o código, só que eu gostaria de acessar no meu sistema via WEBBROWSER e pegar os valores que os Correios informam e passar para um datagrid. Eu precisava apenas de uma dica de como fazer para pegar os valores do site.
No anexo tem um exemplo de um HTML que eu gostaria de extrair os dados dele, se alguém puder me dar uma dica de como se extrai esses dados eu agradeceria.
Muito Obrigado.
Galera é o seguinte, estou querendo fazer um sistema de rastreamento dos correios, tipo eu faço uma postagem e cadastro o código, só que eu gostaria de acessar no meu sistema via WEBBROWSER e pegar os valores que os Correios informam e passar para um datagrid. Eu precisava apenas de uma dica de como fazer para pegar os valores do site.
No anexo tem um exemplo de um HTML que eu gostaria de extrair os dados dele, se alguém puder me dar uma dica de como se extrai esses dados eu agradeceria.
Muito Obrigado.
Crie um form, coloque um grid e um webbrwoser e cole este código:
Private Sub Form_Load()
WebBrowser1.Navigate2 [Ô]c:\correios.html[Ô]
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
For i% = 0 To 2
MSFlexGrid1.TextMatrix(0, i%) = WebBrowser1.Document.All(22).children(0).cells(i%).innerText
Next i%
For i% = 1 To WebBrowser1.Document.All(22).children(0).Rows.Length - 1
If Mid(WebBrowser1.Document.All(22).children(0).Rows(i%).innerHTML, 5, 7) = [Ô]colSpan[Ô] Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = WebBrowser1.Document.All(22).children(0).Rows(i%).cells(0).innerText
Else
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = WebBrowser1.Document.All(22).children(0).Rows(i%).cells(0).innerText
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = WebBrowser1.Document.All(22).children(0).Rows(i%).cells(1).innerText
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = WebBrowser1.Document.All(22).children(0).Rows(i%).cells(2).innerText
End If
Next i%
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate2 [Ô]c:\correios.html[Ô]
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
For i% = 0 To 2
MSFlexGrid1.TextMatrix(0, i%) = WebBrowser1.Document.All(22).children(0).cells(i%).innerText
Next i%
For i% = 1 To WebBrowser1.Document.All(22).children(0).Rows.Length - 1
If Mid(WebBrowser1.Document.All(22).children(0).Rows(i%).innerHTML, 5, 7) = [Ô]colSpan[Ô] Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = WebBrowser1.Document.All(22).children(0).Rows(i%).cells(0).innerText
Else
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = WebBrowser1.Document.All(22).children(0).Rows(i%).cells(0).innerText
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = WebBrowser1.Document.All(22).children(0).Rows(i%).cells(1).innerText
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = WebBrowser1.Document.All(22).children(0).Rows(i%).cells(2).innerText
End If
Next i%
End Sub
Esqueci de dizer que é VB6
Mas mudaria bem pouco pra VB.NET
Mas mudaria bem pouco pra VB.NET
Valeu, vou quebrar a cuca aqui para passar para vb.net.
Obrigado, assim que tiver retorno posto aqui.
Obrigado, assim que tiver retorno posto aqui.
Cara já fiz de tudo aqui e não vai nem [Ô]chutado[Ô], sou muito burro para não conseguir.
Não costumo fazer isso, mas aà vai um [Ô]exemplo[Ô], dessa vez em VB.NET
Perfeito KERPELUNK, muito obrigado mesmo, agora dá para ter ideia e vou adaptar aqui.
Obrigado.
Obrigado.
Tópico encerrado , respostas não são mais permitidas