dude.s 0 Denunciar post Postado Novembro 24, 2003 ;) Pessoal. Boa tarde! Existem sites que disponibilizam serviços de cotação do dolar, previsão do tempo, na sua pagina inicial. Estou procurando mas se alguem souber de algum me ajudaria muito. Compartilhar este post Link para o post Compartilhar em outros sites
d.eleete 0 Denunciar post Postado Novembro 24, 2003 Previsão do tempo tem o http://weather.lycos.com ... ja para cotação, acho q o banco central... Compartilhar este post Link para o post Compartilhar em outros sites
sitenovo 0 Denunciar post Postado Novembro 28, 2003 Seguinte, Veja no http://www.guianews.com.br []s rodney Compartilhar este post Link para o post Compartilhar em outros sites
Shivans 0 Denunciar post Postado Novembro 28, 2003 hmmmmmm nao sei c pode mas eu uso isso aki o... consulte antes pra nao ter problemas... <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td><iframe name="noticias" scrolling="no" frameborder="0" width="200" height="70" marginheight="0" src="http://www.estadao.com.br/economia/ticker/taxasPt0.gif"></iframe></td></tr></table></body></html> dai tem esse aki tb <script language="javascript" src="http://www.guianews.com.br/js/dolar_1.js"></script> de previsao eu tb to procurando veio uhehueuhe Compartilhar este post Link para o post Compartilhar em outros sites
hinom 5 Denunciar post Postado Novembro 28, 2003 previsao do tempo do yahoo é um dos melhores, conheço o serviço há mais de 2 anos. nunca deixou na mão:um exmplo: <script LANGUAGE="JavaScript">var wth = 'at_grazo,pt_lisbo,95050,99362';var tmpCode = 'f';<!-- aki os codigos das cidades -->wth = 'br_rdjan,br_spaul,at_grazo,fr_paris,br_cgran';<!-- temperature, c=celcius, f=fahrenheit -->tmpCode = 'c';code = '<script LANGUAGE="JavaScript"';code += 'SRC="http://data.geo.yahoo.com/geo/v1?w='+tmpCode+','+wth+'&hbc=000000';code += '&hfc=FFFFFF&hff=Arial&hfs=4&ibc=EEEEEE&ifc=0000ff&iff=';code += 'Times+New+Roman&ifs=3&ufc=FFFFFF&uff=Arial&ufs=2&ct=br&tz=br">';code += '<\/SCRIPT>';document.write(code);</SCRIPT> Compartilhar este post Link para o post Compartilhar em outros sites
Shivans 0 Denunciar post Postado Novembro 29, 2003 previsao do tempo do yahoo é um dos melhores, conheço o serviço há mais de 2 anos. nunca deixou na mão:um exmplo: <script LANGUAGE="JavaScript">var wth = 'at_grazo,pt_lisbo,95050,99362';var tmpCode = 'f';<!-- aki os codigos das cidades -->wth = 'br_rdjan,br_spaul,at_grazo,fr_paris,br_cgran';<!-- temperature, c=celcius, f=fahrenheit -->tmpCode = 'c';code = '<script LANGUAGE="JavaScript"';code += 'SRC="http://data.geo.yahoo.com/geo/v1?w='+tmpCode+','+wth+'&hbc=000000';code += '&hfc=FFFFFF&hff=Arial&hfs=4&ibc=EEEEEE&ifc=0000ff&iff=';code += 'Times+New+Roman&ifs=3&ufc=FFFFFF&uff=Arial&ufs=2&ct=br&tz=br">';code += '<\/SCRIPT>';document.write(code);</SCRIPT> esse eu nao conhecia vai ser d grande utilidade pra mim... valew tb...fui Compartilhar este post Link para o post Compartilhar em outros sites
lcs_sp 0 Denunciar post Postado Dezembro 2, 2003 Dim obj, textHTML, dados, f, ini, fim, parcial, datSet obj = CreateObject("MSXML2.ServerXMLHTTP")obj.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm"obj.sendtextHTML = obj.ResponseTextdados = LCase(textHTML)' Procura pela posição da string "Taxa de Venda"i = 1i = inStr(i,dados,"taxa de venda")' Procura pela 1ª tag <tr> depois de "Taxa de Venda"i = inStr(i,dados,"<tr")f = inStr(i,dados,"</tr") ' Pega a 1ª tag </tr> depois de <tr>dados = Mid(dados,i,(f-i)) ' Retira somente linha da interessedados = Replace(dados,"</td>","|",1,2) ' Substitui </font> por "|" (2 vezes)dados = Trim(LimpaHTML(dados)) ' Retira todas as tagsdados = Split(dados,"|") ' Separa criando a matrizdat = DateFunction Strzero(val,num) val = Trim(CStr(val)) Strzero = String(num-len(val),"0") & valEnd FunctionFunction LimpaHTML(matriz)Do While True ini = InStr(1,matriz,"<") If ini = 0 Then Exit Do fim = InStr(ini,matriz,">") parcial = Mid(matriz,ini,fim-ini+1) matriz = Replace(matriz,parcial,"")LoopLimpaHTML = matrizEnd FunctionDim strdollarvenda, strdollarcompra, strdatastrdata = (dados(0))strdollarvenda = (dados(2))strdollarcompra = (dados(1))response.write( "R$ " & strdollarvenda) Compartilhar este post Link para o post Compartilhar em outros sites
Shivans 0 Denunciar post Postado Dezembro 8, 2003 ja ta de bom tamanho ne??? Compartilhar este post Link para o post Compartilhar em outros sites
Bruno Ladeia 0 Denunciar post Postado Agosto 25, 2010 Não funciona :( Compartilhar este post Link para o post Compartilhar em outros sites