Ir para conteúdo

POWERED BY:

Arquivado

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

marcelocardoso

[Resolvido] Cotação do Dollar do Site Mesmo

Recommended Posts

Amigos e Colegas!!!

 

Queria fazer um arquivo assim no html: chamado de TAXAS.HTM

CODE

<HTML>
<HEAD>
<TITLE>COTACAO DOLLAR</TITLE>
</HEAD>
<BODY>
DATA 00/00/2008
VALOR 1.6000
</BODY>
</HTML>

 

E queria um código que pegasse os dados da DATA e VALOR do arquivo TAXAS.HTM

 

 

Alguém me conseguiria este código, e se possível explicado cada linha.

Para que eu aprenda.

 

 

Obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Precisa realmente ser esse arquivo htm? Pelo visto vai servir somente para guardar a cotação. Então porque não utiliza um TXT?

 

Para fazer isso com htm, você poderia utilizar FSO para ler o arquivo (caso ele esteja no mesmo servidor) ou o XMLHTTP (caso ele esteja em outro servidor.

 

Se resolver utilizar um TXT, você poderá manipulá-lo através do FSO. Aqui no Fórum tem vários exemplos.

 

Depois que você armazenar o conteúdo do arquivo em uma variável, você pode utilizar as funções INSTR, MID, LEFT, RIGHT para "navegar" na variável.

 

Lembrando que se utilizar FSO é mais fácil para navegar linha por linha do arquivo.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Amigo!

 

tentei usar aquele do taxas do Banco Central, mas está desatualizado, mas depois agora tentei usar aquele código do invest SHOP, e também dá erro.

 

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

Dá erro, deve ter alguma coisa faltando no código.

Acredito que SEJA COTAÇÕES e no R é OR, mas fiz tudo isso, mas ainda continua dando erro, portanto você não pode postar ele completo.

 

 

Obrigado!

Fui também no 4DEVELOPERS, mas não abre.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Linha corrigida.

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

Se não der certo, posta a mensagem de erro que apresenta.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Hargon, está dando este erro.

 

Erro de compilação do Microsoft VBScript erro '800a03ea'

Erro de sintaxe

/outros/dollarinvestshop.asp, line 10

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

A sim. Tem um OR a mais:

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

Tenta agora.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Procura sobre como manipular arquivo TXT utilizando FSO. Aqui no Fórum tem várias exemplos.

 

Se você mesmo que vai atualizar o TXT, você pode gravar as informações de forma padrão, assim facilita para você.

 

Por exemplo, se for só data e preço, você pode armazenar um em cada linha, o que vai facilitaria mais ainda, pois era só ler cada linha.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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