Previsao do tempo no meu site.

[sims 0]

Olá a todos,

 

Gostaria da ajuda de voces para puxar alguns dados deste site para colocar a previsao do tempo no meu site.

sei q e via xmlhttp mas nao domino se alguem puder me dar as linhas gerais ou indicar tutoriais fico muito agradecido.

 

a pagina atualiza a previsao de hora em hora.

por isso terei q pegar sempre a ultima informacao da tabela.

so q ano tenho nen ideia de como fazer isso

 

link da pagina com as informaçoes:

http://www.apolo11.com/frame_aeroportos_main.php?id=SBCF

 

o codigo fonte da pagina em questao (a pagina da tabela) e este:

 

<table valign=top bgcolor=white align=right cellspacing=1 cellpadding=0 width=410>  <tr>	<td valign=top bgcolor=eaeaea><font class=aero_texto> 28   05:00   20º	 88   1011   09   >10k   parcialmente nublado</font></td>  </tr>  <tr>	<td valign=top bgcolor=eaeaea><font class=aero_texto> 28   06:00   19º   100   1013   00   >10k   alguma nebulosidade</font></td>  </tr>  <tr>	<td valign=top bgcolor=eaeaea><font class=aero_texto> 28   07:00   19º   100   1014   03   >10k   alguma nebulosidade</font></td>  </tr>  <tr>	<td valign=top bgcolor=eaeaea><font class=aero_texto> 28   08:00   18º	 93   1016   07   4000   chuva fraca e trovoadas</font></td>  </tr>  <tr>	<td valign=top bgcolor=eaeaea><font class=aero_texto> 28   09:00   18º   100   1016   05   7000   chovendo fraco</font></td>  </tr></table></body></Html>

No caso ai eu tinha que pegar o 09:00 hs - 18º - Chovendo fraco.

 

Toda Ajuda e bem vinda.

 

Abraço a todos,

[sims 0]

Po Galera.Ninquem????sera que ninquem ta sabendo ou niquem ta querendo cooperar??to achando esse forum meio caido. o pessoal nao responde mais.Vamo ajudar ai galera.

[sims 0]

Olá Galera!!!

 

Consequi pegar as informaçoes so nao to conseguindo separa-las.

 

o codigo ta me dando

 

01 04:00 19º 100 1014 14 >10k muitas nuvens

 

correto.

mas eu preciso somente da hora , temperatura e do tempo.

no caso: 04:00 - 19º - Muitas Nuvens.

 

o codigo e o seguinte:

 

<%Function BinaryToString(strBinary) Dim intCount BinaryToString ="" For intCount = 1 to LenB(strBinary) BinaryToString = BinaryToString & chr(AscB(MidB(strBinary,intCount,1)))  NextEnd FunctionSet xml = Server.CreateObject("MSXML2.ServerXMLHTTP")xml.Open "GET", "http://www.apolo11.com/frame_tempo_texto.php?id=SBCF", Falsexml.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"xml.setRequestHeader "referer", "http://www.apolo11.com"xml.Sendvar = BinaryToString(xml.responsebody)'pega a hora do sistemahora = hour(now())'da o valor do minutominuto = ":00"'aredonda a hora pra baixohora = hora & minuto' essa parte aqui eu tenho q jogar a hora arredondada pra baixo para pegar a linha certa da tabela, ou seja 'a ultima previsao disponiveli = instr(var,"<td valign=top bgcolor=eaeaea><font class=aero_texto> 01   04:00")' aqui eu tenho q colocar a hora mas da erro se eu colocar assim 'class=aero_texto> 01   "&hora&"")' alguem pode me dar uma ajuda??x = instr(var,"</font>")var = mid(var,i,x)x = instr(var,"</TABLE>")var = mid(var,1,x+250)response.write var%>

 

E isso ai galera conto com a colaboração de voces.

 

ABraço

[Mário Monteiro 179]

pega tudo e divide os valores num arrayMEUARRAY = SPLIT("01 04:00 19º 100 1014 14 >10k muitas nuvens")depois voce imprime so os indices que contem as informações que voce quer tiozinho

[sims 0]

Olá Mario,

 

Cara eu nao entendi.

sou fraco em asp.

sera q você poderia me dar uma mao??

tentei fazer assim.

meuarray = split(var)tempo = meuarray(2)response.write tempo

so q nao ta dando.

[Mário Monteiro 179]

faz assimdepois do split voce poeFOR I = LBOUND(meuarray) TO UBOUND(meuarray)response.write("INDICE = " & I & " e VALOR = " & meuarray(I))NEXTpronto agora ai aparecer separado tudo que voce salvou no arrayai voce ve quais sao os indices que tem informaçoes que te interessam eso usa estes da forma que voce colocaoumeuarray(0) ou meuarray(4) ou outro indice, veja la o que te serve

[sims 0]

E ai Mario!!

tudo beleza??

cara ainda nao deu.

 

eu nao consigo pegar os dados corretos.

acho q e por que a tabela e toda avacalhada da uma olhada com o ocdigo q você me passou:

www.atualidadeonline.com.br/rogerio/tempo4.asp

 

e com o codigo q eu vou postar aki:

www.atualidadeonline.com.br/rogerio/tempo3.asp

 

nao ta vindo as variaveis certas.

 

da uma olhada no codigo:

 

<%Function BinaryToString(strBinary) Dim intCount BinaryToString ="" For intCount = 1 to LenB(strBinary) BinaryToString = BinaryToString & chr(AscB(MidB(strBinary,intCount,1)))  NextEnd FunctionSet xml = Server.CreateObject("MSXML2.ServerXMLHTTP")xml.Open "GET", "http://www.apolo11.com/frame_tempo_texto.php?id=SBCF", Falsexml.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"xml.setRequestHeader "referer", "http://www.apolo11.com"xml.Sendvar = BinaryToString(xml.responsebody)'pega a hora do sistemahora = hour(now())'da o valor do minutominuto = ":00"'aredonda a hora pra baixohora = hora & minuto' tem q se jogar a hora aki																	 7i = instr(var,"<td valign=top bgcolor=eaeaea><font class=aero_texto> 01   22:00")x = instr(var,"</font>")var = mid(var,i,x)x = instr(var,"</td>")var = mid(var,1,x+250)meuarray = split(var)FOR I = LBOUND(meuarray) TO UBOUND(meuarray)response.write("INDICE = " & I & " e VALOR = " & meuarray(I))NEXT%>

da uma olhada tbm na tabela:

http://www.apolo11.com/frame_tempo_texto.php?id=SBCF

da uma olhada no codigo fonte dela pra você ver q bagunca.

 

 

Obrigado pela ajuda.

Abraço!