Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

DJ W

para mudar código

Por , em ASP Clássico

Recommended Posts

DJ W    0

DJ W
Postado

Fala galera, beleza?Bem peguei um script que busca a cotação do dólar e exibe , tá funcionando numa boa mas da forma como é mostrado não se adequa ao meu layout. Os dados da cotação estão sendo numa tabela com a seguinte estrutura:Data valor de venda valor de compravalor valor valorPreciso que seja exibo assimdata valorcompra valorvenda valoreis o código:

<html><head><title> Cotação do Dólar </title></head><%Set cod = Server.CreateObject("Microsoft.XMLHTTP")cod.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm", falsecod.send()pega = cod.ResponseTextcotacao = LCase(pega)Set cod = Nothingi = 1i = inStr(i,cotacao,"taxa de venda")i = inStr(i,cotacao,"<tr")f = inStr(i,cotacao,"</tr>") cotacao = Mid(cotacao,i,(f-i)) cotacao = Replace(cotacao,"</font>"," ",1,2)%><body bgcolor="#FFFFFF"><div align="center"><p> </p><p> </p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#0000CC">Cotação Diária do Dólar</font></b></p><p><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#0000CC">Direto do Banco Central!!!!!!</font></b></p>  <table width="41%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">    <tr>       <td> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Data</b></font></div></td>      <td> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Valor           de Venda</b> </font></div></td>      <td> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Valor           de Compra </b></font></div></td>    </tr>          <tr>       <td> <%response.write cotacao%> </td>    </tr>  </table><p><font face="Verdana, Arial, Helvetica, sans-serif" color="#006633">Feito por Ricardo Tardelli Pessoa - <a href="mailto:tardelli@aspbrasil.com.br">tardelli@aspbrasil.com.br</a></font></p></div>

Desde já agradeço qualquer ajuda......[]`sWescley

Compartilhar este post

Link para o post
Compartilhar em outros sites

hinom    5

hinom
Postado

só usar um pouco de java script:

 

 

<%

Set cod = Server.CreateObject("Microsoft.XMLHTTP")

cod.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm", false

cod.send()

pega = cod.ResponseText

cotacao = LCase(pega)

Set cod = Nothing

 

 

i = 1

i = inStr(i,cotacao,"taxa de venda")

i = inStr(i,cotacao,"<tr")

f = inStr(i,cotacao,"</tr>")

cotacao = Mid(cotacao,i,(f-i))

cotacao = Replace(cotacao,"</font>"," ",1,2)

cotacao = Replace(cotacao,"<tr><td align=center class=","")

cotacao = Replace(cotacao,"</td>","")

cotacao = Replace(cotacao,"<td align=right class=","")

cotacao = Replace(cotacao,">","")

cotacao = Replace(cotacao,"fundopadraobclaro2","")

' response.write chr(34) aspa dupla

%>

 

<table border="0" cellpadding="0" cellspacing="0">

<script language=javascript>

descr = "Data,Valor de Venda,Valor de Compra";

descr = descr.split(",");

 

dados = '<%=cotacao%>';

dados = dados.substr(2);

dados = dados.replace(/""/g,'|');

dados = dados.split("|");

for(i=0;i<dados.length;i++){

document.write("<tr><td align=right><b>"+descr+"</b></td><td width=5></td><td>"+dados+"</td></tr>");

}

</script>

</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

d.eleete    0

d.eleete
Postado

poxa... se você colocar isso aqui oh:

 

cotacao = trim(replace(cotacao," ",""))vData = Mid(cotacao, 47, 10)vVenda =Mid(cotacao, 103, 6)vCompra = Mid(cotacao, 155, 6)

você tem os valores separados :P

Compartilhar este post

Link para o post
Compartilhar em outros sites

DJ W    0

DJ W
Postado

Opa...valeu galera...desculpe a demora na resposta.....Realmente não conheçco muito de ASP por isso pedi ajuda....muito obrigado mesmo....[]'sWescley

Compartilhar este post

Link para o post
Compartilhar em outros sites

WebASP    0

WebASP
Postado 

<%	strHTML = GetHTML("http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm","GET")	VarInicio = "RAP>Taxa de Venda</th></TR><tr><td ALIGN=CENTER class=""fundoPadraoBClaro2"">"	VarFinal = "</td><td ALIGN=RIGHT class=""fundoPadraoBClaro2"">"	p1a = inStr(strHTML,VarInicio)	p1b = inStr(p1a+Len(VarInicio),strHTML,VarFinal)  txt_1 = Trim(mid(strHTML,p1a+Len(VarInicio),(p1b-p1a)-Len(VarInicio)))  '' DATA DA COTAÇÃO	Response.Write "<br>DATA: [" & txt_1 & "]"	VarInicio = txt_1 & "</td><td ALIGN=RIGHT class=""fundoPadraoBClaro2"">"	VarFinal = "</td><td ALIGN=RIGHT class=""fundoPadraoBClaro2"">"	p1a = inStr(strHTML,VarInicio)	p1b = inStr(p1a+Len(VarInicio),strHTML,VarFinal)  txt_2 = Trim(mid(strHTML,p1a+Len(VarInicio),(p1b-p1a)-Len(VarInicio)))  '' VALOR DE COMPRA DA COTAÇÃO	Response.Write "<br>VALOR DE COMPRA: [" & txt_2 & "]"	VarInicio = txt_2 & "</td><td ALIGN=RIGHT class=""fundoPadraoBClaro2"">"	VarFinal = "</td></tr></table></td></tr></table>"	p1a = inStr(strHTML,VarInicio)	p1b = inStr(p1a+Len(VarInicio),strHTML,VarFinal)  txt_3 = Trim(mid(strHTML,p1a+Len(VarInicio),(p1b-p1a)-Len(VarInicio)))  '' VALOR DE VENDA DA COTAÇÃO	Response.Write "<br>VALOR DE VENDA: [" & txt_3 & "]"	'' VARIAVEIS	'' txt_1 = DATA DA COTAÇÃO	'' txt_2 = VALOR DE COMPRA	'' txt_3 = VALOR DE VENDAFunction GetHTML(LinkHTML,MethodHTML)	Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")  objHTTP.open MethodHTML, LinkHTML, False  objHTTP.send()  GetHTML = objHTTP.ResponseText	Set objHTTP = NothingEnd Function%>

 

 

O code pra pegar em cada variavel oq você precisa

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito