[Resolvido] Cotacao Moeda

[Lucia_na 0]

Ola pessoal..

estou com uma duvida...

preciso pegar o valor do cambio(cotacao Moeda), em tempo real.

E com essa cotacao preciso fazer uns calculos no site e jogar o novo valor.

Achei no http://www.guianews.com.br que eles disponibilizam um script para colocar em meu site.

Acontece que ali nao tem como pegar o valor da moeda correspondente e sim so tem a visualizacao.

Alguem sabe se existe alguma funcao que busca moeda em tempo real e que eu posso usar essa moeda para

fazer calculos no meu site??

Obrigada

Luciana

[Ted k' 126]

procura no laboratório, eu até fiz um de cotação!!

[Lucia_na 0]

ola Ted..

Achei a sua funcao http://forum.imasters.com.br/index.php?showtopic=239495

porem pra mim da erro :

 

Microsoft VBScript runtime error '800a0009'

Subscript out of range

/TravelAce/formulario_TravelAce.asp, line 90

 

na linha 90 é onde tenho

' Coloca os valores nas variaveis

DOLAR_COMERCIAL_COMPRA = valores(3)

Pq sera que acontece isso?

Obrigada

[Ted k' 126]

a que postei foi essa:

http://forum.imasters.com.br/index.php...st&p=804756

 

testei agora, está funcionando beleza!

[Lucia_na 0]

ola...

certo vi sua funcao e fiz usei ela..

mas acontece que da o erro sim..

e pelo que percebi nao esta entrando nesse if...nao sei pq, sera que por acaso desativaram esse site ou algo assim que nao está trazendo resultados da cotacao.

Ele entra no for mas nao entra nesse if me ajude por favor...

for cont = 1 to len(cotacoes) step 1
	response.Write "entrou<br>" 'entra nesse
		if (mid(cotacoes,cont,1) = ";") or (mid(cotacoes,cont,1) = " ") or (mid(cotacoes,cont,1) = Chr(10)) then
			response.Write "entrou2<br>" mas nao entra aqui
			cont_valores = cont_valores + 1
			Redim Preserve valores(cont_valores)
			valores(cont_valores) = Cstr(str)
			response.Write valores(cont_valores) &"valores<br>"
			str = ""
		else
			str = str + mid(cotacoes,cont,1)
		end if
	next

Muito obrigada aguardo....

[Ted k' 126]

é preciso esse IF mesmo??

if (mid(cotacoes,cont,1) = ";") or (mid(cotacoes,cont,1) = " ") or (mid(cotacoes,cont,1) = Chr(10)) then

mais como não entendi isso dirento tente assim:

(mid(cotacoes,cont,1) = "")

juntado os espaços vazios!

[Lucia_na 0]

ahhhh

nao nem com esse outro if funcionou....

ele retorna no caminho do arquivo acima somente 1/2..nao entendi o pq...

[Lucia_na 0]

Mas de qualquer forma muito obrigada..

achei outra funcao, busca de uma outra fonte o dolar, mas funciona beleza..

se alguem precisar busquei daqui...

http://www.codigofonte.com.br/codigo/asp/d...o-em-tempo-real

 

 

muito obrigada pela ajuda

Luciana

[Ted k' 126]

estranho aqui esse código está ok, agora se modificou é outra coisa, mais se achou outro beleza, é bom que compartilhamos com os demais!!!

[Lucia_na 0]

Ola Ted k'

denovo eu.. so mais uma dúvida.. hehe

A cotação que busco desse exemplo que você me mandou vem pra mim do dia 15/01/2008.

Sera que falta algum parametro ou eles pararam de atualizar?

você sabe de algo.

E aproveitando você sabe se tem como buscar desse site

http://cotacoes.agronegocios-e.com.br/inve...;title=%20Dólar

ate achei na net mas o exemplo era em php.

Muito obrigada e desculpa te encomodar

Luciana

[Ted k' 126]

a data vem essa pq foi o ultimo dia que atualizaram...

 

irei desenvolver um para você hoje, te passo, tô aqui sem fazer nada mais tarde é bom que estudo (hehe) se puder aguardar compartilho com você e os demais!!!

[Lucia_na 0]

Oi Ted .....

 

Sim eu aguardo...

muito obrigada... http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

valeus!!

[Lucia_na 0]

ola Ted'k..

desculpa estar te encomodando. Mas estou precisando muito da questao que a gente falou aqui da cotacao...

Tem como fazer desse site http://cotacoes.agronegocios-e.com.br/inve...itle=%20D%F3lar ?

 

 

você sabe se tem algum exemplo na net sobre isso, procurei mas so achei um em php.

 

Muito obrigada

 

Luciana

[Ted k' 126]

usa o XMLHttp, ele pega o HTML das páginas!!!

Pesquisa sobre o assunto, fiquei sem tempo mesmo para fazer o código, desculpa!!

[Lucia_na 0]

ok..

obrigada pela diga vou tentar fazer

se conseguir vou postar aqui no forum para a galera..

obrigada