Arquivo Txt

[Rinaldo]

Boa tarde.

É possível fazer uma rotina em ASP onde se abre um arquivo txt, encontrar uma linha especifica e salva estas informações para mostrá-la em uma página?

Na realidade, criaria um loop para varrer um diretorio, abrir o ultimo arquivo, identificar uma linha especifia, copiá-la e mostra-la dinamicamente em uma página.

Obrigado.

Abs.

[cyberalexxx]

É possivel sim.

Olha aki um tutorial sobre arquivos TXT:

http://scriptbrasil.com.br/forum/index.php...ndpost&p=180803

Explica melhor o q você quer q eu te passo a lógica.

[Rinaldo]

Legal.

Vamos lá.

Em um pasta, que é alimentada automaticamente, tenho vários arquivos que contém informações necessárias com data, pagina, etc.

Ex.:

%%Title: 08gi2a01d_RINALDO.pdf

%%Creator: OneVision Asura Version 6.1 (SR 3) (Windows Build 11.105.S)

%%CreationDate: 2005-04-18 Ca1 pagina 03

%%+ grayscaleImageCompression NONE

Na 3ª linha, encontram-se as informações que preciso.

"2005-04-18 10:37:30 -0300"

Preciso copiar esta linha de vários arquivos para um banco de dados para depois mostrá-la numa página.

[filipeflc00]

sim

vou ver se acho aki e te mando

[cyberalexxx]

fiz isso aki meio correndo é só uma lógica, agora voce adapta a sua necessidade:

<%
'aki voce coloca a sua string se conexão com o banco
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\pasta") 
Set arquivos = principal.Files

For each arq in arquivos
   Set arquivo = FSO.OpenTextFile(arq,1)
      for x = 1 to 3
         linha3 = arquivo.Readline
         if x=3 then
            sql="Insert into tabela(campo) values (" & linha3 & ")"
            'aki voce executa a instrução de acordo com sua conexão com o banco    
         end if
      next
    Set arquivo = nothing
Next 
%>

[Rinaldo]

Está me dando este erro.

Esta propriedade ou método não tem suporte do objeto: 'Readline'

[cyberalexxx]

acabei de testar aki e funcionou, só estava faltando aspas simples no insert o q não tem nada a ver com o erro q voce postou.

Seu servidor ter suporte a FSO.

<%
'aki voce coloca a sua string se conexão com o banco
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\lcom")
Set arquivos = principal.Files

For each arq in arquivos
  Set arquivo = FSO.OpenTextFile(arq,1)
     for x = 1 to 3
        linha3 = arquivo.Readline
        if x=3 then
           sql="Insert into tabela(campo) values ('" & linha3 & "')"
           'aki voce executa a instrução de acordo com sua conexão com o banco    
        end if
     next
   Set arquivo = nothing
Next
%>

[Rinaldo]

Objeto Server error 'ASP 0177 : 800a003e'

Falha em Server.CreateObject

/lertexto.asp, line 20

A operação foi concluída com êxito.

[cyberalexxx]

Objeto Server error 'ASP 0177 : 800a003e'

Falha em Server.CreateObject

/lertexto.asp, line 20

A operação foi concluída com êxito.

voce esta testando localmente ou no web server??? verificou se tem suporte a FSO??

[Rinaldo]

Desculpe-me.

Funcionou. Na realidade, estava utilizando arquivos no diretorio que não continham textos.

Valeu, vocês. são bons mesmo.

Abs.

[cyberalexxx]

Desculpe-me.

Funcionou. Na realidade, estava utilizando arquivos no diretorio que não continham textos.

Valeu, vocês. são bons mesmo.

Abs.

beleza!!

entaum funcionou??

Posso fechar o tópico??

[Rinaldo]

Faz favor.

Muito obrigado.

[cyberalexxx]

fechado!!!