DOLAR ONLINE 2
Caros amigos,
Eu sei que este tópico já foi colocado anteriormente, mas tenho algumas dúvidas que ainda não consegui resolver.
No tópico anterior tinha o seguinte código:
Private Sub Command1_Click()
texto = Inet1.OpenURL("http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm")
'a partir daqui que começa a tabela com os valores do dolar
inicio = InStr(texto, "Taxa de Venda")
'o valor de venda está na terceira coluna da tabela
cont = 0
While cont 3
inicio = InStr(inicio + 1, texto, "td")
cont = cont + 1
Wend
inicio = InStr(inicio, texto, "") + 1
fim = InStr(inicio, texto, "/td")
Label1.Caption = "Valor do dólar no último fechamento: " & "R$ " & Mid(texto, inicio, fim - inicio)
End Sub
Certo, mas este valor é o valor de venda. Como eu poderia obter o valor de compra? Não entendo nada de programação web.
Alguém poderia me ajudar?
Obrigado
Eu sei que este tópico já foi colocado anteriormente, mas tenho algumas dúvidas que ainda não consegui resolver.
No tópico anterior tinha o seguinte código:
Private Sub Command1_Click()
texto = Inet1.OpenURL("http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm")
'a partir daqui que começa a tabela com os valores do dolar
inicio = InStr(texto, "Taxa de Venda")
'o valor de venda está na terceira coluna da tabela
cont = 0
While cont 3
inicio = InStr(inicio + 1, texto, "td")
cont = cont + 1
Wend
inicio = InStr(inicio, texto, "") + 1
fim = InStr(inicio, texto, "/td")
Label1.Caption = "Valor do dólar no último fechamento: " & "R$ " & Mid(texto, inicio, fim - inicio)
End Sub
Certo, mas este valor é o valor de venda. Como eu poderia obter o valor de compra? Não entendo nada de programação web.
Alguém poderia me ajudar?
Obrigado
ao inves de usar o while cont MENOR 3, mude para 2...
a página de onde ele pega o dólar divide a tabela em: dia da cotação, valor de compra, valor de venda...
qualquer dúvida entre em contato
a página de onde ele pega o dólar divide a tabela em: dia da cotação, valor de compra, valor de venda...
qualquer dúvida entre em contato
Tópico encerrado , respostas não são mais permitidas