Cota��o do dolar.

Question

Ol� a todos...Estou precisando colocar a cota��o do dolar da frente de um site que estou desenvolvendo. Me parece que tem que ser feito atrav�s de webservices, mas n�o acho exemplo em lugar nenhum... ...

Hal9000 · Answer

Ainda n�o achei uma solu��o!Ningu�m possui uma rotina em asp.net para isso?  :(  :(  :(...

Hal9000 · Answer

S� acho coisa em Asp e PHP  Ser� poss�vel?rs......

Guilhermehao · Answer

N�o sei se eh uma boa pratica de progama��o...
mas li sobre o assunto...e achei a seguinte op��o..

vamos obter a cota��o on-line do d�lar, dispon�vel na p�gina br.invertia.com do site terra.


using system.net;

using system.io;

...

private void dorequest()

{

   //cria uma requisi��o para a url

   webrequest rq = webrequest.create(

    "http://br.invertia.com/mercados/divisas");

   //obt�m a resposta

   httpwebresponse rp = 

    (httpwebresponse)rq.getresponse();

   //obt�m um stream contendo a resposta

   //retornada pelo servidor

   stream ds = rp.getresponsestream();

   //cria um streamreader para leitura

   streamreader rd = new streamreader(ds);

   //l� o conte�do

   string ct = rd.readtoend();

   //atribui o resultado ao textbox

   tbresponse.text = ct;

   //fecha os objetos

   rd.close();

   ds.close();

   rp.close();

   //exibe o resultado

   lbresultado.text = "r$ " + extractdolar(ct);

}

Ve ai o q q vira...e depois me fala...

Boa Sorte!!!

Guilhermehao · Answer

[code:1:19a9d242d2]private string extractdolar(string text){    //procura por indexador fixo   int i = text.lastindexof("dolcm");   //incrementa deslocamento   i += 16;   //captura o texto   return text.substring(i, 6);}[/code:1:19a9d242d2]...

Guilhermehao · Answer

Eu testei o codigo aqui...tive um problema com proxy...

j� vou colocar aqui o erro que deu e a solu��o..caso aconte�a...

ERRO:

The remote server returned an error: (407) Proxy Authentication Required

Solu��o:

rq.Proxy = WebProxy.GetDefaultProxy
rq.Proxy.Credentials = CredentialCache.DefaultCredentials

Atenciosamente,

Guilhermehao · Answer

Bixo...acho q vai fica um pouco dificil..pq eh mto hardCode...masconsegui finalmente fazer funcionar...trazendo o valor exato... vai ter q alterar a funcao q retorna o valor do dolar...[code:1:7aa171caba] Private Function extractdolar(ByVal text As String) As String        Dim i As Integer = text.LastIndexOf("DOLCM")        i += 33        Return text.Substring(i, 6)    End Function[/code:1:7aa171caba]Flw.....

Hal9000 · Answer

Valeu Guilherme!Funciona direitinho. tem um certo delay por causa do tempo at� consultar o site do Invertia, mas vai me servir bem agora.De quebra ainda aprendi a ler o conte�do de uma p�gina HtmlMais uma vez obrigado. :D...

Guilhermehao · Answer

Eu tb aprendi mto com este t�pico...=]Ateh logo..em alguma pr�xima pesquisa interessante...Abrass...

F�rum Cota��o do dolar. #24048