Ler arquivo txt remoto com asp

[Vinixop_s]

Olá pessoal... Bom dia!

Preciso muito resolver este problema e conto com vocês!

Segue o código e o problema!

<%

caminho = "http://grupoalphabrasil.com.br/tempo/txt/Brasilia-DF.txt"

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Set TXT = FSO.OpenTextFile(caminho)

response.write txt.readALL

txt.close

%>

Bom agora vamos ao problema!

Eu preciso abrir este texto que está em um outro servidor.

Não precisa ser necessariamente com FSO, eu preciso apenas colocar o valor deste arquivo txt em uma variável asp para trata-la dentro do site!

Estou a dias procurando uma solução e o mais próximo que consegui encontrar foi um leitor de RSS que lê apenas arquivos XML.

Desde já obrigadão!

[SK15]

Bem FSO só funciona dentro de arquivos no próprio servidor ...

Para LER, disse apenas LER ... você deve usar o conponente "XMLHTTP" ...

Referências:

http://www.macoratti.net/xml_vb3.htm

http://msdn.microsoft.com/en-us/library/ms762278(VS.85).aspx

http://msdn.microsoft.com/en-us/library/ms757849(VS.85).aspx

Exemplo Prático (não testei pois estou sem serve ASP disponivel aqui na hora):

<%
  Response.Buffer = True
  Dim xml

  '-- Cria o Objeto de leitura
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  
  '-- Use o valor abaixo nas versões 3.0 do XMLHTTP:
  '-- Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

  ' Abre a URL indicada no metodo GET
  xml.Open "GET", "http://grupoalphabrasil.com.br/tempo/txt/Brasilia-DF.txt", False
    
  '-- faz o Envio das Informações Requisitadas para o Servidor
  xml.Send

  '-- Pega o Conteudo do TXT e coloca na Variável
  ConteudoTXT = xml.responseText

  '-- Imprime na Tela
  Response.Write ConteudoTXT

  '-- Limpa o 'cache' da Operação
  Set xml = Nothing
%>

Editado Janeiro 28, 2010 por SK15

[Vinixop_s]

Bom dia pessoal!

SK15 muito obrigado pela resposta!

É isso mesmo, fiz como postou e deu tudo certinho!

Adorei também o material de referência!

Obrigado e um ótimo fim de semana!

[Vinixop_s]

Olha eu aqui de novo!

SK15 o código funcionou perfeitamente ou quase!

Eu procurei de todas as formas tentar arrumar o problema com a acentuação!

Salvei como utf-8, coloquei códigos nos cabeçalhos mas de nada adiantou!

Tem como resolver este problema?

Aguardo!

Obrigado!

[Marcos-rj]

Testa ai, coloca este codigo no topo do seu codigo.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  
<%   
response.Charset = "utf-8"  
response.ContentType = "text/html"  
%>

[Vinixop_s]

Bom dia pessoa!

Valeu pela dica Marcos, mas mesmo assim ainda não funcionou!

Aguardo ajuda de mais companheiros!

Obrigado!